打破tapply癮君子的習慣

我已經通過toying學習了R，並開始認爲我在濫用tapply功能。有更好的方法來做下面的一些行動嗎？當然，他們工作，但隨着他們變得更加複雜，我想知道我是否會失去更好的選擇。我在尋找一些批評，在這裏：打破tapply癮君子的習慣

tapply(var1, list(fac1, fac2), mean, na.rm=T) 

tapply(var1, fac1, sum, na.rm=T)/tapply(var2, fac1, sum, na.rm=T) 

cumsum(tapply(var1, fac1, sum, na.rm=T))/sum(var1)

更新：下面是一些示例數據...

 var1 var2 fac1   fac2 
1  NA 275.54 10  (266,326] 
2  NA 565.89 10  (552,818] 
3  NA 815.41 6  (552,818] 
4  NA 281.77 6  (266,326] 
5  NA 640.24 NA  (552,818] 
6  NA 78.42 NA  [78.4,266] 
7  NA 1027.06 NA (818,1.55e+03] 
8  NA 355.20 NA  (326,552] 
9  NA 464.52 NA  (326,552] 
10  NA 1397.11 10 (818,1.55e+03] 
11  NA 229.82 NA  [78.4,266] 
12  NA 542.77 NA  (326,552] 
13  NA 829.32 NA (818,1.55e+03] 
14  NA 284.78 NA  (266,326] 
15  NA 194.97 10  [78.4,266] 
16  NA 672.55 8  (552,818] 
17  NA 348.01 10  (326,552] 
18  NA 1550.79 9 (818,1.55e+03] 
19 101.98 101.98 4  [78.4,266] 
20  NA 292.80 6  (266,326]

更新數據轉儲：

structure(list(var1 = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, 101.98, NA), var2 = c(275.54, 
565.89, 815.41, 281.77, 640.24, 78.42, 1027.06, 355.2, 464.52, 
1397.11, 229.82, 542.77, 829.32, 284.78, 194.97, 672.55, 348.01, 
1550.79, 101.98, 292.8), fac1 = c(10L, 10L, 6L, 6L, NA, NA, NA, 
NA, NA, 10L, NA, NA, NA, NA, 10L, 8L, 10L, 9L, 4L, 6L), fac2 = structure(c(2L, 
4L, 4L, 2L, 4L, 1L, 5L, 3L, 3L, 5L, 1L, 3L, 5L, 2L, 1L, 4L, 3L, 
5L, 1L, 2L), .Label = c("[78.4,266]", "(266,326]", "(326,552]", 
"(552,818]", "(818,1.55e+03]"), class = "factor")), .Names = c("var1", 
"var2", "fac1", "fac2"), row.names = c(NA, -20L), class = "data.frame")

來源

2009-09-16 Totovader

正如評論：雖然這些都是明顯的例子，它會更容易幫助，如果您對VAR1，FAC1等 – Shane 2009-09-16 17:36:47

好點提供的樣本數據。添加數據樣本。 – Totovader 2009-09-16 18:15:43

建議：您可以使用dput（）函數來提取該示例數據的結構，然後在此處粘貼結果？使導入變得輕而易舉。 – 2009-09-16 18:32:09

對於第1部分，我更喜歡aggregate因爲它將數據保持爲每行格式更接近R的觀察值。

aggregate(var1, list(fac1, fac2), mean, na.rm=T)

來源

2009-09-16 20:19:21 Peter

打破tapply癮君子的習慣

回答

相關問題