在一个单元格中的多个可分离（连接）值上加入 R 数据框

Posted 2023-02-24

【中文标题】在一个单元格中的多个可分离（连接）值上加入 R 数据框

【英文标题】：Joining R dataframe on multiple separable (concatenated) values in one cell

【发布时间】：2021-05-22 21:19:32

【问题描述】：

我正在尝试找到一种方法来对两个数据帧进行连接，但不是直接匹配 (test<-inner_join(blood, behavior, by = c("IDy" = "IDx"))) 我希望能够将 '1|3|546' 分成单独的元素并匹配连接（如 '042' %in% '1|2|3|042'）。我能想到的唯一方法是在新行（1、2、3、042）上创建 3 个额外的行，每个值都在一个单元格中，但我宁愿将所有值都保存在一个单元格中。我不确定这是否是一个疯狂的想法。

# Creating behavior dataframe
IDx <- c('1|3|546', '1|2|3|983', '1|2|3|042', '952', '853', '061')
diet <- c("veg", "pes", "omni", "omni", "omni", "omni")
exercise <- c("high", "low", "low", "low", "med", "high")
behavior <- data.frame(IDx, diet, exercise)

# Creating blood dataframe
IDy <- c('983', '952', '853', '061', '042', '581', '249', '467', '841', '546')
blood_levels <- c(43543, 465, 4634, 94568, 850, 6840, 5483, 66452, 54371, 1347)
blood <- data.frame(IDy, blood_levels)

【参考方案1】：

我们可以使用tidyr中的separate_rows通过分隔符分割行，然后使用inner_join

library(dplyr)
library(tidyr)
behavior %>%
   separate_rows(IDx) %>% 
   inner_join(blood, by = c("IDx" = "IDy"))

-输出

# A tibble: 6 x 4
#  IDx   diet  exercise blood_levels
#  <chr> <chr> <chr>           <dbl>
#1 546   veg   high             1347
#2 983   pes   low             43543
#3 042   omni  low               850
#4 952   omni  low               465
#5 853   omni  med              4634
#6 061   omni  high            94568