...+facet_wrap(~species)  #分面函数 ~指根据~后的列进行分面

...+facet_grid(Group~species)  #分面函数 横按照Group切分，竖着按照Species

sample() #随机抽样

sample(letters[1:5], 4)  #随机表现在重复运行出的结果每次顺序都不一致

[1] "d" "b" "a" "c"

+geom_bar(mapping = aes(x,y), stat='identity) #stat标识我不需要函数自带的运算功能，我自己提供y

ggplot(diamonds) + geom_bar(mapping = aes(x = cut, y = ..prop.., group = 1))

+theme_classic() #去除背景

+theme_bw()  #带格子

ggsave('xxx.png') #导出画板中的图片

ggsave(p1, filename = 'xxx.png') #导出赋值的图片

pdf('xx.pdf')——绘图——dev.off() #关闭画板并保存图片

library(eoffice)

topptx(p, 'xxx.pptx') #导出的图片可以通过取消组合来局部修改

#注意元素个数不能过多

library('ggstatsplot')

ggbetweenstats(morley, x= Expt,y= Speed,type = "robust",    xlab="The experiment number",ylab= "Speed-of-light measurement",outlier.tagging = TRUE,outlier.label= Run)