将多个具有相同名称的假人合并为一个答案

【问题标题】：Merging multiple dummies with same name into one将多个具有相同名称的假人合并为一个
【发布时间】：2023-01-07 22:01:53
【问题描述】：

我的问题如下：我虚拟化了多列：

type 1	type 2
fire	leaf
leaf	fire

进入

type 1$fire	type$leaf	type 2$fire	type2$leaf
1	0	0	1
0	1	1	0

我已经删除了列名称的第一部分

fire	leaf	fire	leaf
1	0	0	1
0	1	1	0

我怎样才能得到这个结果？

fire	leaf
1	1
1	1

我使用 fastDummies 来创建假人谢谢你

【问题讨论】：

你试过什么了？你卡在哪儿了？你使用哪种技术？
当前的标签非常通用。你也可以标记你的平台吗？
没错，我试过创建一个循环，但我不是一个好的程序员，我真的不知道该怎么做

标签： r merge data-cleaning dummy-variable

【解决方案1】：

library(tidyverse)

df <- read_table("type_1    type_2
fire    leaf
leaf    fire")

df %>% 
  pivot_longer(everything()) %>% 
  count(name, value) %>% 
  pivot_wider(names_from = value, values_from = n)

# A tibble: 2 × 3
  name    fire  leaf
  <chr>  <int> <int>
1 type_1     1     1
2 type_2     1     1

【讨论】：