Question

我为正确的绘图编写了代码，但无法将其另存为png文件。我在绘制之前使用了png（）函数，之后又使用了dev.off（），它将无法保存。我没有包括读取数据和创建变量btw。（Mac）

我已经尝试了一切，但没有任何效果。有没有保存全图的方法？

png(filename = "plot_3.png", width = 480, height = 480)

p1 <- (ggplot(PTsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                     , fill="gray") + ggtitle("Point") + 
xlab("Date") + ylab("Total Emission"))
p2 <- (ggplot(NPTsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                         , fill="gray") + ggtitle("NonPoint") + 
xlab("Date") + ylab("Total Emission"))
p3 <- (ggplot(Rsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                     , fill="gray") + ggtitle("Road") + 
xlab("Date") + ylab("Total Emission"))
p4 <- (ggplot(NRsum, aes(x=Group.1, y =x))
              + geom_bar(stat="identity", color="black"
                     , fill="gray") + ggtitle("NonRoad") + 
xlab("Date") + ylab("Total Emission"))
fullplot <- multiplot(p1,p2,p3,p4,cols=2)

dev.off()

我希望有一个名为plot3.png的文件，但它不存在

R图未保存为PNG，请检查我的代码

0 个答案: