Объедините две таблицы, если заданное значение переменной является частью другой переменной

Есть base_table и value_table, как к ним присоединиться, если category в mix_category ? Спасибо!

library(tidyverse)
    
base_table <- data.frame(mix_category = c('ABC','WE','CF','Z236'))
#   mix_category
# 1          ABC
# 2           WE
# 3           CF
# 4         Z236

value_table <- data.frame(category = c('A','F','W','E','C','2'),
                          value = c('1','2','3','6','0','-1'))
#   category value
# 1        A     1
# 2        F     2
# 3        W     3
# 4        E     6
# 5        C     0
# 6        2    -1

Желаемый результат 1: если найти category в mix_category в первый раз, то вернуть первые category и value переменные, которые в value_table

#   mix_category category value
# 1          ABC        A     1
# 2           WE        W     3
# 3           CF        C     0
# 4         Z236        2    -1

Желаемый результат 2: если найти category в mix_category, то вернуть переменные category и value, которые находятся в value_table (если возвращается более одного, объединить их в строку с '_')

#   mix_category category value
# 1          ABC      A_C   1_0
# 2           WE      W_E   3_6
# 3           CF      C_F   0_2
# 4         Z236        2    -1

r dataframe join dplyr

13.06.2024 06:01

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Решение 1

Вы можете разделить столбец mix_category на строки, используя tidyr::separate_longer_position(), а затем сопоставить его с value_table.

match_table <- base_table %>%
  mutate(category = mix_category) %>%
  tidyr::separate_longer_position(category, width = 1) %>%
  inner_join(value_table, by = "category")

## Request 1
match_table %>% 
  slice_head(n = 1, by = mix_category)

# or
match_table %>% 
  left_join(base_table, ., by = "mix_category", multiple = "first")

#   mix_category category value
# 1          ABC        A     1
# 2           WE        W     3
# 3           CF        C     0
# 4         Z236        2    -1

## Request 2
match_table %>%
  summarise(across(everything(), ~ paste(.x, collapse = '_')),
            .by = mix_category)

#   mix_category category value
# 1          ABC      A_C   1_0
# 2           WE      W_E   3_6
# 3           CF      C_F   0_2
# 4         Z236        2    -1

Решение 2

Вы также можете использовать нечеткие соединения, поддерживаемые {powerjoin}.

library(powerjoin)

match_table <- power_left_join(base_table, value_table,
    by = c(~ stringr::str_detect(.x$mix_category, .y$category)))

## Request 1
match_table %>%
  slice_head(n = 1, by = mix_category)

#   mix_category category value
# 1          ABC        A     1
# 2           WE        W     3
# 3           CF        F     2
# 4         Z236        2    -1

## Request 2
match_table %>%
  summarise(across(everything(), ~ paste(.x, collapse = '_')),
            .by = mix_category)

#   mix_category category value
# 1          ABC      A_C   1_0
# 2           WE      W_E   3_6
# 3           CF      F_C   2_0
# 4         Z236        2    -1

13.06.2024 06:42