0

うまく機能する 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私は別の好奇心も持っていますが、これは後で残すことにします。

ありがとう。

4

1 に答える 1

5

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))
于 2012-07-03T16:20:11.297 に答える