相互繪制子數據以進行比較

Question

我根據“索引”拆分了一個數據框，以並排繪制每個組，以進行比較：

Grp <- split(TOC, TOC$Index)

$`1`
   Site Index depth_ft TOC_mg.g IC_mg.g
1     Z     1        5       12      NA

$`1`
   Site Index depth_ft TOC_mg.g IC_mg.g
1     A     2        2       11      NA

... 
...

如果我一步一步說，我可以輕松地繪制數據

plot(Grp$`1`$TOC_mg.g, Grp$`1`$depth_ft)

但是，當我想使用“ lapply”一次繪制所有組時，我只看到其中沒有任何數據點的XY軸（ https://docs.google.com/file/d/0B6GUNg-8d30vdmZBMVhKVlR0TkE/edit?usp=分享 ）!! 誰能告訴我怎么了？

#plot
par(mfrow=c(1,5))
lapply(1:length(Grp), function(i) 
  plot(Grp$`i`$TOC_mg.g, Grp$`i`$depth_ft, ylim=c(0, max(TOC$depth_ft)), 
       xlim= c(min(TOC$TOC_mg.g, na.rm=T), max(TOC$TOC_mg.g, na.rm=T)), lwd=2, col=2 ))

Answer 1

您應該使用Grp[[i]]$...而不是Grp$ i $...例如

lapply(1:length(Grp), function(i) 
  plot(depth_ft~TOC_mg.g,data=Grp[[i]], 
       ylim=c(0, max(TOC$depth_ft)), 
       xlim= c(min(TOC$TOC_mg.g, na.rm=T), max(TOC$TOC_mg.g, na.rm=T)), 
    lwd=2, col=2 ))

SO上有幾篇關於$和[[索引之間的區別的文章，但是我現在找不到正確的詞法來搜索它們（搜索$和[[效果不佳）。