包括了组间的差异比较和所有样本的差异比较的两种字母标记方式 代码如下： library(openxlsx) ###批量显著性检验及作图 library(agricolae) library(tidyverse) library(tidyr) # 读取数据 dat
记录一下长宽数据的转换 宽数据根据分组转换为长数据 library(openxlsx) library(tidyr) dat_wide = read.xlsx("C:/Users/law/Desktop/长宽数据转换.xlsx", sheet = 2) dat_groups &
一、垂直辅助线 如图想在已经绘制好的图像上添加辅助线 使用代码： p = p+ geom_vline(xintercept=4.5, # 4.5是插入的位置，下面的每个刻度代表1 linetype = 2, # 辅助线的类型，有0-
这个是原始的代码，我想使用一个变量动态来代替里面的se或者是sd，一搬来说直接的文本格式肯定是行不通的，于是我问AI找到了解决方案 p <- p + geom_text(data = plotdata, aes(x = group,
library(ggpubr) show_line_types() # 展示所有线条的类型
一、ggpubr包 library(ggplot2) library(ggpubr) show_point_shapes() #显示点的形状(ggpubr包内的函数） 使用方法: 其中的形状21-25是可以设置填充颜色和描边颜色的，fil