R数据集
x <- data.frame(term = c("A", "B", "C"))
x$points <- list(
data.frame(title=c("Iliad", "Odyssey"), value=c(-1194, -800)),
data.frame(title=c("Iliad", "Odyssey"), value=c(-44, -29)),
data.frame(title=c("Iliad", "Odyssey"), value=c(55, -700))
)
cat(toJSON(x, pretty=TRUE))所需结果
title A(value) B(value) C(value)
Iliad -1194 -44 55
Odyssey -800 -29 -700任何人都可以帮助我得到所需的结果
发布于 2017-03-14 11:29:40
以下是merge和Reduce的base R选项
setNames(Reduce(function(...) merge(..., by = 'title'), x$points),
c('title', as.character(x$term)))
# title A B C
#1 Iliad -1194 -44 55
#2 Odyssey -800 -29 -700https://stackoverflow.com/questions/42771419
复制相似问题