在一个data.frame中创建多个子集（可能带有ddply）

Question

我有一个很大的data.frame，我希望能够通过一个变量使用分位数子集来减少它。例如：

x <- c(1:10,1:10,1:10,1:10,1:10,1:10,1:10,1:10,1:10,1:10) 
df <- data.frame(x,rnorm(100)) 

df2 <- subset(df, df$x == 1) 
df3 <- subset(df2, df2[2] > quantile(df2$rnorm.100.,0.8)) 

我想直到结束是一个包含X = 1,2,3，...，10位数的所有一个data.frame。

有没有办法用ddply做到这一点？

Answer 1

你可以尝试：

ddply(df, .(x), subset, rnorm.100. > quantile(rnorm.100., 0.8)) 

而且题外话：你可以使用df <- data.frame(x,y=rnorm(100))命名上即时的列。

Answer 2

下面是使用ave（）命令的一个不同方法。 （非常快的计算这样）

使包含跨X

df$quantByX <- ave(df$rnorm.100., df$x, FUN = function (x) quantile(x,0.8)) 

的每一级分位数计算选择新柱和X列项的新列。

df2 <- unique(df[,c(1,3)]) 

结果是具有在x列中的唯一项目和为x的每个电平所计算出的位数一个数据帧。