问题：
我将ggsave应用在pipe %>%符号中，报错！
报错信息：
Error in UseMethod(“grid.draw”) :
"grid.draw"没有适用于"c(‘LayerInstance’, ‘Layer’, ‘ggproto’, ‘gg’)"目标对象的方法
查阅了资料，ggplot2中调用ggsave有以下三种：
1. 把ggplot2保存为对象，然后调用
p1 = ggplot(diamonds, aes(x=cut,y = price,colour = cut)) + geom_boxplot()
p1
ggsave("plot.png",p1 )
保存的文件：
2. 在pipe中调用时，直接用+号，而不是%>%
ggplot(diamonds,aes(x = cut, y = price, colour = cut)) + geom_boxplot() + ggsave("plot2.png")
这里，直接用+连接ggsave，而不是%>%
文件如下：
3. 用括号括起来，然后用%>%
(ggplot(diamonds,aes(x = cut, y = price, colour = cut)) + geom_boxplot()) %>% ggsave("plot3.png",.)
这里面，用（）将ggplot作图的代码括住，它会输出到屏幕上，使用%>%将其作为对象传递给ggsave，用.表示它，写作ggsave("plot3.png",.)，即可。
保存文件：
4. 代码汇总
library(tidyverse)
data("diamonds")
head(diamonds)
# method 1
p1 = ggplot(diamonds, aes(x=cut,y = price,colour = cut)) + geom_boxplot()
p1
ggsave("plot.png",p1 )
# method 2
ggplot(diamonds,aes(x = cut, y = price, colour = cut)) + geom_boxplot() + ggsave("plot2.png")
# method 3
(ggplot(diamonds,aes(x = cut, y = price, colour = cut)) + geom_boxplot()) %>% ggsave("plot3.png",.)
