分组因子，数据框和tapply存在问题
我对R和统计数据非常陌生，并且无法让tapply（）工作。 我有一个有15列和数千行的数据框。 我用y1<-((x>0)&(x<=5))和类似的东西做了一堆逻辑向量，其中x是数据框中的列名。 然后将这些逻辑向量组合并使用因子（）将其转换为分组因子。 一切看起来都可以正常工作。
问题是，当我尝试在tapply(dataframe, group, sample, size=20)中使用tapply（），其中group是分组因子时，我得到错误：'参数必须具有相同的长度'。 当我尝试length(dataframe)我得到数据框中的列数（仅15），而length(group)返回行数（数千）。 我在创建逻辑向量和分组因子方面有错误吗？
这是dput（）的输出，如Maxim.K所示：（对不起，它不是很整洁）
structure(list(Lat = c(-90L, -90L, -90L, -90L, -90L, -90L, -90L,
-90L, -90L, -90L, -90L, -90L, -90L, -90L, -90L), Lon = -180:-166,
Jan = c(2.79, 2.79, 2.79, 2.79, 2.79, 2.79, 2.79, 2.79, 2.79,
2.79, 2.79, 2.79, 2.79, 2.79, 2.79), Feb = c(2.35, 2.35,
2.35, 2.35, 2.35, 2.35, 2.35, 2.35, 2.35, 2.35, 2.35, 2.35,
2.35, 2.35, 2.35), Mar = c(0.49, 0.49, 0.49, 0.49, 0.49,
0.49, 0.49, 0.49, 0.49, 0.49, 0.49, 0.49, 0.49, 0.49, 0.49
), Apr = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
May = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Jun = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Jul = c(0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Aug = c(0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Sep = c(0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Oct = c(1.75, 1.75, 1.75,
1.75, 1.75, 1.75, 1.75, 1.75, 1.75, 1.75, 1.75, 1.75, 1.75,
1.75, 1.75), Nov = c(2.77, 2.77, 2.77, 2.77, 2.77, 2.77,
2.77, 2.77, 2.77, 2.77, 2.77, 2.77, 2.77, 2.77, 2.77), Dec = c(2.65,
2.65, 2.65, 2.65, 2.65, 2.65, 2.65, 2.65, 2.65, 2.65, 2.65,
2.65, 2.65, 2.65, 2.65), Ann = c(1.07, 1.07, 1.07, 1.07,
1.07, 1.07, 1.07, 1.07, 1.07, 1.07, 1.07, 1.07, 1.07, 1.07,
1.07)), .Names = c("Lat", "Lon", "Jan", "Feb", "Mar", "Apr",
"May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", "Ann"
), row.names = c(NA, 15L), class = "data.frame")
对于团队：
来自头部的15个值（来自dput（））
structure(c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L,
8L, 8L), .Label = c("1", "2", "3", "4", "5", "6", "7", "8"), class = "factor")
...和尾巴
structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L), .Label = c("1", "2", "3", "4", "5", "6", "7", "8"), class = "factor")
我尝试使用tapply（）（大小为20）从所有8个类别中随机抽取样本。
完全不出所料，问题不在于问题和要求，而在于我的理解。 我误解了这个问题; 实际上，我只是应该从一列中抽样，而不是从整个数据框中抽样。
tapply可以在这里使用，你只需要添加group向量到你的data.frame ，然后使用tapply如下所示：
# Generating a 'group' vector with variability in its values
# and merging it to the existing data.frame (FOO)
set.seed(1)
FOO$group <- as.factor(sample( 1:8, nrow(FOO), replace=TRUE))
# Using tapply
tapply(FOO[,-16], FOO[,16], sample, size=20, replace=TRUE)
这可能是你作业的答案。
链接地址: http://www.djcxy.com/p/38287.html