【原】ggplot2中 ggsave如何用？

育種數(shù)據(jù)分析 2021-11-18

展開全文

問(wèn)題：我將ggsave應(yīng)用在pipe %>%符號(hào)中，報(bào)錯(cuò)！「報(bào)錯(cuò)信息：」

?
Error in UseMethod("grid.draw") : "grid.draw"沒(méi)有適用于"c('LayerInstance', 'Layer', 'ggproto', 'gg')"目標(biāo)對(duì)象的方法
?

查閱了資料，ggplot2中調(diào)用ggsave有以下三種：

1. 把ggplot2保存為對(duì)象，然后調(diào)用

p1 = ggplot(diamonds, aes(x=cut,y = price,colour = cut)) + geom_boxplot() 
p1

ggsave("plot.png",p1 )

保存的文件：

2. 在pipe中調(diào)用時(shí)，直接用`+`號(hào)，而不是`%>%`

ggplot(diamonds,aes(x = cut, y = price, colour = cut)) + geom_boxplot() + ggsave("plot2.png")

這里，直接用+連接ggsave，而不是%>%文件如下：

3. 用括號(hào)括起來(lái)，然后用`%>%`

(ggplot(diamonds,aes(x = cut, y = price, colour = cut)) + geom_boxplot()) %>%  ggsave("plot3.png",.)

這里面，用（）將ggplot作圖的代碼括住，它會(huì)輸出到屏幕上，使用%>%將其作為對(duì)象傳遞給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",.)