wang minjie

感谢您的鼓励，但我不敢接受您这个标题，我修改了。关于中文书我推荐 - 黄湘云老师的《现代应用统计》 https://github.com/XiangyunHuang - 张敬信老师的《R语言编程–基于tidyverse》https://github.com/zhjx19/ - 邓飞老师的《R语言进阶笔记》https://dengfei2013.gitee.io/r-language-advanced/ - 李东风老师的《R语言教程》https://www.math.pku.edu.cn/teachers/lidf/docs/Rbook/html/_Rbook/index.html 当然由于我的孤陋寡闻，更多的大牛书我还不知道。欢迎大家补充

https://www.bigbookofr.com/index.html https://r4ds.hadley.nz/index.html https://bookdown.org/xiangyun/msg/

it work for me, thanks @Matt-Int

```r data |> mutate(sum = draw1 + draw2 + draw3) |> mutate(across( draw1:draw3, function(x) x / sum, .names = "{stringr::str_replace(.col, 'draw', 'share')}" )) ```

thanks

scale_fill_manual(）与 scale_colour_manual() 可以合并，比如 ```r scale_colour_manual( aesthetics = c("colour", "fill") ) ``` 其次，多个geom_segment()也可以用purr::map()简化

```r df %>% ggplot(aes(x = x, y = y, fill = x)) + geom_col(show.legend = FALSE) + geom_tile(aes(x = as.numeric(factor(x)) - 0.2, y = y, fill = x, colour =...