annotate(geom = "text",x=5,y=2.8,
label=expression(italic("M. sieversii")))
image.png
第二个和第一个一样...=sample(b,60,replace = T))
画图
ggplot(df3,aes(x=x,y=y))+
geom_rect(aes(xmin=5,xmax=12,ymin=-Inf,ymax...annotate(geom = "text",x=5,y=2.8,
label="Gala")
image.png
接下来是最后一个,两条折线画到一起
这里采用的办法是两份数据集来叠加...ggplot()+
geom_rect(aes(xmin=5,xmax=12,ymin=-Inf,ymax=Inf),
fill="grey",alpha=0.3)+...五个颜色和透明度都是设置一样的,最后效果看起来 为 啥差别这么大呢?