数据框排列/重新排列并删除重复的列

Janjua 发表于 Dev

诺言

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

任何人都可以帮助我获得所需的结果

格雷戈尔·托马斯（Gregor Thomas）

library(tidyr)
unnest(x, points) %>%
    spread(key = term, value = value)
#     title     A   B    C
# 1   Iliad -1194 -44   55
# 2 Odyssey  -800 -29 -700

当然，您可以使用将"(value)"字符串添加到列名称中paste。我将其留给您（尽管我认为在列名中包含括号是个坏主意）。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。