R添加图例

Question

我编写了以下脚本，以在效果良好的for循环中生成多个图：

stat <- list.files("D:/...", pattern = "met")

par(mfrow = c(4, 4))
for (x in stat) {
plot((assign(x, read.csv(x, head=TRUE, sep=""))),typ="l", col="red")
}

我现在想要实现的是根据所读取文件的名称以递归方式添加每个图形的标题。

希望这很清楚，

最好，

PS我也有另一个好奇心，但我可能会留待以后。

谢谢。

Answer 1

添加title（ main ）参数以进行plot是否可以满足您的需求？

plot((assign(x, read.csv(x, head=TRUE, sep=""))),typ="l", col="red", main=x)

编辑OP评论

您可以为此使用gsub 。

plot((assign(gsub('\\.txt', '', x), 
      read.csv(x, head=TRUE, sep=""))),
     typ="l", 
     col="red", 
     main=gsub('\\.txt', '', x))

但是，您正在使用的循环分配构造是一种使用习惯的危险。 通常，这可以通过以列表形式读取所有文件，然后对它们进行lapply或对该主题进行一些变体来完成。

除非在该绘图步骤之后进行其他处理，否则您应该可以完全跳过assign步骤。

plot(read.csv(x, head=TRUE, sep=""),
     typ="l",
     col="red",
     main=gsub('\\.txt', '', x))