如何在工作目录的子目录中保存R中的绘图

Question

是否可以将R中的绘图保存到当前工作目录的子目录中？我尝试了以下,但这不起作用.我不知道如何将工作目录连接到我想要的文件名.

  wd <- getwd()

  png(filename=wd+"/img/name.png")

  counts <- table(dnom$Variant, dnom$Time)
  barplot(counts, main="Distribution of Variant and words of time",
    xlab="Temporal nouns", col=c("paleturquoise3", "palegreen3"),
    legend = rownames(counts))

另外,图像导出功能的默认保存目录是什么？

在下面运行David的建议时,返回的错误是:

Error in png(filename = paste0(wd, "/img/name.png")) : 
  unable to start png() device
In addition: Warning messages:
1: In png(filename = paste0(wd, "/img/name.png")) :
  unable to open file 'D:/Dropbox/Corpuslinguïstiek project/antconc resultaten/img/name.png' for writing
2: In png(filename = paste0(wd, "/img/name.png")) : opening device failed

Answer 1

试试这个:

File <- "./img/name.png"
if (file.exists(File)) stop(File, " already exists")
dir.create(dirname(File), showWarnings = FALSE)

png(File)

# ... whatever ...

dev.off()

if如果可以覆盖文件,则省略该语句.

如果img存在则dir.create可以选择省略.(如果您尝试创建已存在的目录,则不会导致问题.)

笔记

1)另一种可能性是放入img主目录.我们可以使用png("~/img/name.png")将文件保存到主img目录中的目录.如果不确定哪个目录是主目录试试path.expand("~").

2)还要注意savePlot在绘图命令之后(而不是之前)给出的命令.