聚合和转换数据集
聚合和转换数据集
提问于 2014-03-12 03:45:31
我有一个示例数据集，如下所示：
df=data.frame(iter=c(1, 1, 2, 2), exp=c("A", "B", "A", "B"),
val=c(2.3, 3.6, 4.0, 5.0))表格形式如下：
iter exp val
1 A 2.3
1 B 3.6
2 A 4.0
2 B 5.0我试图以一种方式将其转换为组A和B，添加一个值为df$val[1]/df$val[2]、df$val[3]/df$val[4]等值的比率列，因此最终结果如下：
iter ratio
1 2.3/3.6
2 4.0/5.0我觉得这应该是一项蹒跚学步的工作，但我找不到一条路来完成它。任何帮助都是非常感谢的。
回答 3
Stack Overflow用户
回答已采纳
发布于 2014-03-12 04:21:24
试试这个：
library(plyr)
df2 <- ddply(df, .(iter), summarise, ratio=paste(val[which(exp=="A")],"/",val[which(exp=="B")],sep=""))这给了我：
iter ratio
1 2.3/3.6
2 4/5Stack Overflow用户
发布于 2014-03-12 04:27:16
library(data.table)
DT <- as.data.table(df)
DT[, list(ratio= val[exp=="A"] / val[exp=="B"]), by=iter]
iter ratio
1: 1 0.638889
2: 2 0.800000Stack Overflow用户
发布于 2014-03-12 05:19:56
这是基地的一个解决方案。它比plyr解决方案要复杂一些，但也许它是有指导意义的。
do.call(rbind,
by(df,
df$iter,
function(x) {
with(x,
data.frame(
iter=iter[1],
ratio=val[which(exp=='A')]/val[which(exp=='B')] ## Or use paste to get a text representation of the ratio
)
)
}
)
)
## i iter ratio
## 1 1 0.638889
## 2 2 0.800000它将数据帧by拆分为iter列，然后取A val元素与B元素的比率。它假设每个级别只有一个这样的值。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/22341607
复制相关文章
相似问题
腾讯云开发者
