推荐很好的R语言ggplot2科研数据可视化参考资料

用户7010445

发布于 2023-01-06 20:08:46

2630

发布于 2023-01-06 20:08:46

文章被收录于专栏：小明的数据分析笔记本小明的数据分析笔记本

链接是

https://z3tt.github.io/beyond-bar-and-box-plots/

主要内容是介绍R语言ggplot2绘制柱形图和箱线图以及柱形图箱线图的替代方案的一些代码

示例数据提供的是一个链接

https://raw.githubusercontent.com/z3tt/DataViz-Teaching/master/data/weissgerber-data.csv

链接里出的图有

image.png

image.png

image.png

image.png

image.png

image.png

image.png

链接里数据和代码都有，如果能够坚持每天重复其中一幅图的代码，你也可以熟练使用ggplot2可视化自己的数据，这里需要注意的是链接开头的代码（下面截图）进行的是主题和字体的设置，这部分可以跳过，作图用自己想要的字体还相对挺麻烦的，如果不是很熟悉R语言的话很容易报错

封面图代码

data<-read.delim("data/20220622/example_data.csv",sep=",",header=TRUE)
library(ggplot2)
my_pal <- rcartocolor::carto_pal(n = 8, name = "Bold")[c(1, 3, 7, 2)]
g <- ggplot(data, aes(x = group, y = value, color = group, fill = group)) +
  scale_y_continuous(breaks = 1:9) +
  scale_color_manual(values = my_pal, guide = "none") +
  scale_fill_manual(values = my_pal, guide = "none")
g + 
  geom_boxplot(
    width = .2, fill = "white",
    size = 1.5, outlier.shape = NA
  ) +
  ggdist::stat_halfeye(
    adjust = .33, ## bandwidth
    width = .67, 
    color = NA, ## remove slab interval
    position = position_nudge(x = .15)
  ) +
  gghalves::geom_half_point(
    side = "l", 
    range_scale = .3, 
    alpha = .5, size = 3
  ) -> p1


g + 
  geom_violin(
    aes(fill = group, fill = after_scale(colorspace::lighten(fill, .5))),
    size = 1.2, bw = .2
  ) + 
  geom_boxplot(
    fill = "white",  size = 1.2, width = .2, 
    outlier.shape = NA, coef = 0
  ) +
  geom_point(
    position = position_jitter(width = .03, seed = 0),
    size = 5, alpha = .5
  ) +
  geom_point(
    position = position_jitter(width = .03, seed = 0),
    size = 5, stroke = .7, shape = 1, color = "black"
  ) -> p2

library(patchwork)
p1+p2

本文参与腾讯云自媒体分享计划，分享自微信公众号。

原始发表：2022-06-22，如有侵权请联系 cloudcommunity@tencent.com 删除

https