ggplot2绘制分裂小提琴图和云雨图—科研工具箱

小提琴图其实是箱线图与核密度图的结合，箱线图展示了分位数的位置，小提琴图则展示了任意位置的密度，通过小提琴图可以知道哪些位置的密度较高。

不同图形可以反映数据不同的方面，这时候选取哪个图展示数据就需要斟酌一份，当然也可以结合起来。

加载R包

library(pacman)

# p_install_gh(\"psyteachr/introdataviz\") #github安装R包

# devtools::install_github(\"psyteachr/introdataviz\")

library(introdataviz)

library(tidyverse)

ggplot2绘制分裂小提琴图

colours <- c(\"#FF0000\",\"#00A08A\")

ggplot(ldt_long, aes(x = condition, y = rt, fill = language)) +

introdataviz::geom_split_violin(alpha = .4) +

geom_boxplot(width = .2, alpha = .6, show.legend = FALSE) +

stat_summary(fun.data = \"mean_se\", geom = \"pointrange\", show.legend = F,

position = position_dodge(.175)) +

scale_x_discrete(name = \"Condition\", labels = c(\"Non-word\", \"Word\")) +

scale_y_continuous(name = \"Reaction time (ms)\") +

scale_fill_manual(values = colours, name = \"Language group\") +

theme_minimal()

ggplot2绘制云雨图

rain_height <- .1

ggplot(ldt_long, aes(x = \"\", y = rt, fill = language)) +

introdataviz::geom_flat_violin(trim=FALSE, alpha = 0.4,

position = position_nudge(x = rain_height+.05)) +

geom_point(aes(colour = language), size = 2, alpha = .5, show.legend = FALSE,

position = position_jitter(width = rain_height, height = 0)) +

geom_boxplot(width = rain_height, alpha = 0.5, show.legend = FALSE,

outlier.shape = NA,

position = position_nudge(x = -rain_height*2)) +

stat_summary(fun.data = mean_se, mapping = aes(color = language), show.legend = FALSE,

position = position_nudge(x = rain_height * 3)) +

scale_x_discrete(name = \"\", expand = c(rain_height*3, 0, 0, 0.7)) +

scale_y_continuous(name = \"Reaction time (ms)\",

breaks = seq(200, 800, 100),

limits = c(200, 800)) +

coord_flip() +

facet_wrap(~factor(condition,

levels = c(\"word\", \"nonword\"),

labels = c(\"Words\", \"Non-Words\")),

nrow = 2) +

scale_fill_manual(values = colours, name = \"Language group\") +

scale_colour_manual(values = colours) +

theme_minimal() +

theme(panel.grid.major.y = element_blank(),

legend.position = c(0.8, 0.8),

legend.background = element_rect(fill = \"white\", color = \"white\")

)

进哥的shiny小程序里面可以很便捷的绘制分裂小提琴图和云雨图哦，感兴趣可以试试看

shiny绘图小程序（更新富集分析柱状图气泡图和棒棒糖图）