2012-07-03 131 views
0

我寫了下面的腳本生成的幾個情節for循環效果很好:r添加傳說繪製

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") 
} 

我想什麼,現在實現的是遞歸根據添加的每個圖的標題讀取的文件的名稱。

希望這是明確的,

最佳,

附: 我也有另一個好奇心,但我會離開這可能以後。

謝謝。

回答

5

是否添加標題(main)參數plot你在找什麼?

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

編輯的有機磷農藥評論

您可以使用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)) 
+0

非常感謝,完美的作品。但我還有一個問題。由於與.TXT我也會有這樣的稱號文件完成的名字:有沒有辦法消除這種並保持標題,我需要的只是一部分。希望這是明確的。再次感謝 – g256

+2

這將是最好的一個不同的問題補充,但看到我的編輯。 – Justin

+0

謝謝,這是我正在尋找的。 – g256