Question

我正在绘制多个情节：

a <- dir(pattern="stuff.*\\.txt$")
for (i in 1:length(a)) {
  b <- read.table(a[i])
  jpeg(paste("/../.../", i, ".jpg"))
  plot(b$V1,b$V2, main=?)
  dev.off()
}

我想说出所有jpg＆amp;主要=？原始文件名。这段代码中的所有jpgs都是从1到N命名的。他们有什么办法吗？

Answer 1

也许我错过了什么，但变量a[i]是原始数据文件名。所以你只需要这样做：

plot(b$V1, b$V2, main=a[i])

在“粘贴”功能中，默认分隔符是一个空格，因此：

paste("A", "B")

给出A B。相反，您需要：paste( A , B , sep="")。在创建jpeg文件时，您应从数据中删除.txt或.csv文件扩展名。如下所示：

library(tools)
fname = file_path_sans_ext(a[i])
jpeg(paste("/../.../", fname, ".jpg", sep=""))

应该工作

用原始名称命名多个图

1 个答案: