循环绘制R中的图形并将其保存为jpeg

Question

我正在尝试按循环绘制图。

输入数据：具有相同结尾* depth.txt的表，表中有2个制表符分隔的列：

Baba"\t"58.38

Tata"\t"68.38

Mama"\t"30.80

jaja"\t"88.65

输出：我想plot()为每个文件的每个* depth.txt（它们的名称与表的名称相同）获取一个jpeg文件（x轴为表的第一列，y轴为第二列）柱）

我创建了脚本的一部分，但是它不起作用：

files <- list.files(path="/home/fil/Desktop/", pattern="*depth.txt", full.names=T,recursive=FALSE)

for (i in 1:length(files))
plot(read.table(files[i],header=F,sep="\t")$V1,read.table(files[i],header=F,sep="\t")$V2)
dev.copy(jpeg,filename=files[i])
dev.off

它不起作用，能帮我吗？我是R的初学者。

Answer 1

以下内容会达到您想要的效果吗？

for (i in 1:length(files)) {
  dat <- read.table(files[i], header = FALSE, sep = '\t')
  jpeg(file = paste(files[i], '.jpeg', sep = ''))
  plot(dat$V1, dat$V2)
  dev.off()
}