代码之家 › 专栏 › 技术社区 › Andrew Scotchmer

列值作为列名并用其他列值填充

data.table r

Andrew Scotchmer · 技术社区 · 1 年前

我的表格如下:

df <- data.table(ID = c(1,2,3,1,2,1,1,2,3),
                 vlaue = c("A", "B", "C", "A", "B", "A", "A", "B", "C"))

> df
      ID vlaue
  1:  1     A
  2:  2     B
  3:  3     C
  4:  1     A
  5:  2     B
  6:  1     A
  7:  1     A
  8:  2     B
  9:  3     C

我需要从中创建第二个表,其中列是唯一的ID值,行是相应的值列,

> df2
     1 2 3
  1: A B C
  2: A B  
  3: A    
  4: A B C

我试着重塑,dcast,玩矩阵,但没有什么能产生我想要的表格。

2 回复 | 直到 1 年前

Maël 1 年前

在里面 data.table :

library(data.table)
dcast(df[, gp := cumsum(ID == 1)], gp ~ ID, value.var = 'vlaue')
#    gp 1    2    3
# 1:  1 A    B    C
# 2:  2 A    B <NA>
# 3:  3 A <NA> <NA>
# 4:  4 A    B    C

在里面 dplyr :

library(tidyr)
library(dplyr)

df %>% 
  mutate(gp = cumsum(ID == 1)) %>% 
  pivot_wider(names_from = "ID", values_from = "vlaue") %>% 
  select(-gp)

ThomasIsCoding 1 年前

对于 `data.table`

如果 df 已经是 数据表 对象,我们可以使用 dcast 如下所示

> dcast(df, rowid(ID) ~ ID, value.var = "vlaue")[, -1]
   1    2    3
1: A    B    C
2: A    B    C
3: A    B <NA>
4: A <NA> <NA>

对于 `data.frame`

如果 df 是 数据帧 (而不是 数据表 ),你可以试试 dplyr approach by @MaÃ«l ,或基本R选项 reshape

reshape(
  transform(
    df,
    row = ave(ID, ID, FUN = seq_along)
  ),
  direction = "wide",
  idvar = "row",
  timevar = "ID"
)[-1]

它给出

  vlaue.1 vlaue.2 vlaue.3
1       A       B       C
4       A       B       C
6       A       B    <NA>
7       A    <NA>    <NA>

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前

列值作为列名并用其他列值填充

对于 data.table

对于 data.frame

对于 `data.table`

对于 `data.frame`