"#349839","#EA5D2D",
"#EABB77","#F09594","#2072A8")
普通折线图的代码
library(ggplot2...)
p=ggplot(data=top_genus,
aes(x=Compartment,y=RA,
group=Genus,colour=Genus))+...abundance (%)")+
geom_line()+
scale_x_discrete(limits=c("RS","RE","VE","SE","LE","P","BS"))+
scale_colour_manual...image.png
论文中提供的代码没有用BS的数据,所以会有警告信息
image.png
平滑曲线他用到的是 ggalt包中的 geom_xspline函数
library(ggalt)
p2ggplot...geom_xspline(spline_shape = -0.5)+
scale_x_discrete(limits=c("RS","RE","VE","SE","LE","P"))+
scale_colour_manual