发现每个值改变什么变量的另一个变量

Question

鉴于以下data.frame：

t x y 
--------- 
1 1 3 
1 1 3 
1 1 2 
2 1 2 
2 2 2 

我想形式

t cnt cux cuy 
--------------- 
1 3 1 2 
2 2 2 1 

其中CNT是用所有的行数的输出特定值t，cux/cuy是所有的计数独特的行x/y

另一个限制是答案必须适用于一个可变数字列。

谢谢。

Answer 1

您用文字描述的内容和您在预期输出中显示的内容不一致。特别是，根据您的输入，计算y的唯一值应该是2和1，而不是3和2。与书面说明会：

DF <- data.frame(t=c(1,1,1,2,2), x=c(1,1,1,1,2), y=c(3,3,2,2,2)) 

library("plyr") 

ddply(DF, .(t), function(DF) { 
    data.frame(cnt=length(DF$t), colwise(function(x) {length(unique(x))})(DF)) 
}) 

或者，如果你想获得真正的功能看：

library("functional") 

ddply(DF, .(t), function(DF) { 
    data.frame(cnt=length(DF$t), colwise(Compose(unique, length))(DF)) 
}) 

或完全与功能模式过分去：

merge(ddply(DF, .(t), summarise, cnt=length(t)), 
    ddply(DF, .(t), colwise(Compose(unique, length)))) 

这些都不给你要求的列名;而不是cux它是x。但是，他们可以在之后改变。

res <- 
merge(ddply(DF, .(t), summarise, cnt=length(t)), 
    ddply(DF, .(t), colwise(Compose(unique, length)))) 

names(res)[-(1:2)] <- paste("cu", names(DF)[-1], sep="") 

这给

> res 
    t cnt cux cuy 
1 1 3 1 2 
2 2 2 2 1