时间戳

首页 > 解决方案 > 在一个单元格中的多个可分离（连接）值上加入 R 数据框

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

问题描述

我正在尝试找到一种方法来对两个数据帧进行连接，但不是直接匹配（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)

标签： rdataframejoininner-join

解决方案

我们可以使用separate_rowsfromtidyr按分隔符拆分行，然后使用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

推荐阅读