ggplot2中 ggsave如何用？

邓飞

发布于 2021-01-12 07:11:40

4.6K00

代码可运行

文章被收录于专栏：育种数据分析之放飞自我育种数据分析之放飞自我

运行总次数：0

代码可运行

问题：我将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",.)