代码之家 › 专栏 › 技术社区 › Marta López

按条件R将列拆分为多个列

multiple-columns split r

Marta López · 技术社区 · 2 年前

我想根据条件将一列拆分为几列。

例如,如果字符以P开头,它将转到一列,如果字符以F或C开头,它将转到其他列。

df <- data.frame(
  "name" = c("a", "b"),
  "ID" = c("P_GO_10;C_GO_23;C_GO_32", "P_GO_65;F_GO15;C_GO_97;F_GO_87"))

  name   ID
1    a P_GO_10;C_GO_23;C_GO_32
2    b P_GO_65;F_GO15;C_GO_97;F_GO_87



df_new <- data.frame(
  "name" = c("a", "b"),
  "ID_P" = c("P_GO_10", "P_GO_65"),
  "ID_C" = c("C_GO_23;C_GO_32","C_GO_97"),
  "ID_F" = c(NA, "F_GO_87"))

  name ID_P     ID_C               ID_F
1    a P_GO_10  C_GO_23;C_GO_32    <NA>
2    b P_GO_65  C_GO_97            F_GO_87

0 回复 | 直到 2 年前

rg4s 2 年前

您所要求的结果并不确切,但目前还没有其他答案。

使用 tidyverse 我们可以这样做:

df %>% 
  separate_rows(ID, sep = ";") %>% 
  mutate(ID_P = ifelse(grepl("^P", ID), ID, NA),
         ID_C = ifelse(grepl("^C", ID), ID, NA), 
         ID_F = ifelse(grepl("^F", ID), ID, NA)) %>% 
  select(-ID) %>% 
  pivot_longer(-name, names_to = "ID", values_to = "values") %>%
  drop_na() %>% 
  pivot_wider(names_from = ID,
              values_from = values,
              values_fn = list, 
              values_fill = list(values = NA))

jblood94 2 年前

不是特别优雅的base R解决方案:

df <- data.frame(
  "name" = c("a", "b"),
  "ID" = c("P_GO_10;C_GO_23;C_GO_32", "P_GO_65;F_GO15;C_GO_97;F_GO_87"))

id2 <- substr(unlist(id1 <- strsplit(df$ID, ";")), 1, 1)
m <- matrix(NA_character_, nrow(df), length(uid <- unique(id2)))
m[matrix(c(rep.int(1:nrow(df), lengths(id1)), match(id2, uid)), ncol = 2)] <- unlist(id1)
cbind(df, setNames(as.data.frame(m), paste0("ID_", uid)))
#>   name                             ID    ID_P    ID_C    ID_F
#> 1    a        P_GO_10;C_GO_23;C_GO_32 P_GO_10 C_GO_32    <NA>
#> 2    b P_GO_65;F_GO15;C_GO_97;F_GO_87 P_GO_65 C_GO_97 F_GO_87

推荐文章

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 年前