上一期分享了重复数据箱式图的使用条件和数据格式小白学R(二)：重复测量数据/连续数据的箱式图(ggplot包)(1)，今天就奉上箱式图的代码和以及如何改箱式图上的p值大小。

1. 画箱式图

1.1 先看数据表dt2，其中time是时间分组(w1, w2, w4, w8), value是具体数值， group是分组(contro组和intervention组)

1.2 画图代码如下：

png(filename = "boxplot.png",width=2600,height=2600,res=500) #设定导出图片的格式为PNGggplot(data = dt2, aes(x = time, y = value,fill = group)) +  geom_boxplot(outlier.colour = NA) +  geom_dotplot(binaxis='y', stackdir='center', binwidth = 100, position = position_dodge(0.75))+  labs(fill = "group", x = "time", y = "Value") +  scale_y_continuous(lim = c(0, 8000)) +  theme_classic(base_size = 20) +  theme(legend.position = c(0.9, 0.7))+  stat_compare_means(method = "wilcox.test",                     label = "p.format")dev.off()

注：这里stat_compare_means是进行两两比较，由于非正态分布，所以用wilcox.test,重复测量数据这样比较的对错与否先不讨论哈。

1.3 出图：

2. 箱式图改颜色，改图例位置，改字体等都可以在help里搜相应函数，具体怎么改文档里讲解都很细致，但如果嫌图上p值太小，想改大怎么办呢？

这个小白也是搜了很多论坛，发现解决方案不少，在此就选一个简介易懂分享给大家：

png(filename = "igg.png",width=2600,height=2600,res=500)your_font_size <- 5 # 改变box上p值大小的coreggplot(data = dt2, aes(x = time, y = value,fill = group)) +geom_boxplot(outlier.colour = NA) +geom_dotplot(binaxis='y', stackdir='center', binwidth = 100, position = position_dodge(0.75))+labs(fill = "group", x = "time", y = "Value") +scale_y_continuous(lim = c(0, 8000)) +theme_classic(base_size = 20) +theme(legend.position = c(0.9, 0.7))+stat_compare_means(method = "wilcox.test",label = "p.format", size = your_font_size)dev.off()

代码第2行：your_font_size 及第11行：size = your_font_size就是解决问题的关键啦！

今天的内容你学费了嘛

喜欢请关注我呀！