# 代码来源:https://www.r2omics.cn/
# 加载R包,没有安装请先安装 install.packages("包名")
library(tidyverse)
# 读取箱线图数据文件
df = read.delim("https://www.r2omics.cn/res/demodata/boxplot.txt",# 将此处换成你自己电脑里的文件
header = T # 指定第一行是列名
)
# 把数据转换成ggplot常用的类型(长数据)
df = df %>%
pivot_longer(-1,names_to = "Sample",values_to = "Value")
# 绘图
ggplot(df,aes(x=Value,
fill=Sample, # fill填充颜色,根据变量名赋值
color=Sample))+ # color图形边界颜色,根据变量名赋值
geom_density(alpha=0.2, # 填充颜色透明度
linewidth=1, # 线条粗细
linetype = 1 # 线条类型1是实线,2是虚线
)+
theme_bw() # 主题