Question

我是R的新手，尝试使用ggplot2后保存箱形图。我可以在R显示窗口中成功制作箱形图。但是，该图的质量不好出版。因此，我正在使用功能dev.off（）将图形（箱形图）以.jpg格式保存在工作目录中。运行以下代码后，我可以在目录中看到一个空白图，没有任何箱形图。感谢您为解决此问题所付出的努力。

我的代码：

options(scipen = 500)
library(ggplot2)   
library(RColorBrewer)

dat <- read.csv(file="Streamflow_4.5.csv",head=TRUE,sep=",")

jpeg(paste('P1.jpg',sep=''), quality=100, height=1800, width=3000,
     pointsize=14, res=600)
dat$Scenario <- factor(dat$Scenario, 
  labels=c("Base","Climate Change", "No Till", "Cover Crop", "Filter Strip"))
P1 <- ggplot(dat, aes(x=Scenario, y=Streamflow, fill=Scenario)) + 
    geom_boxplot()
dev.off()

Answer 1

您已经绘制了情节，但没有将其调用到窗格中。

jpeg('P1.jpg', quality=100, height=1800, width=3000, pointsize=14, res=600)
P1 <- ggplot(dat, aes(x=Scenario, y=Streamflow, fill=Scenario)) + geom_boxplot()
P1
dev.off()

简单添加P1。看看是否可行。

如果不需要存储图解，也可以将其简化如下：

jpeg('P1.jpg', quality=100, height=1800, width=3000, pointsize=14, res=600)
ggplot(dat, aes(x=Scenario, y=Streamflow, fill=Scenario)) + geom_boxplot()
dev.off()

仅供参考，设置工作目录并执行rm(list=ls())是R编码中最可怕的事情之一！尝试不做！

使用dev.off（）保存600分辨率的.JPG箱形图

1 个答案: