Замена значений столбца фрейма данных с использованием значений списка и имени списка в R

Я хотел бы заменить значения внутри столбца именем списка, зависящим от значений, находящихся внутри значений списка:

df <- data.frame(Activity = c("Checking emails", "Playing games", "Reading", "Watching TV", 
                         "Watching YouTube", "Watching TV", "Relaxing", "Getting ready", 
                         "Working/ studying", "Relaxing"))

mylist <-list(Tech_activity = c("Browsing social media", "Checking emails", 
"Video calling", "On my computer/ PC", "Watching YouTube", "Browsing the internet", 
"On my phone", "Watching TV"), Socialising = c("Spending time with friends", 
"Chatting/ talking/ having a conversation", "Spending time with family"
), Work = "Working/ studying", Transport = c("Travelling", "Walking", 
"Driving"), Household = c("Housework", "Cooking"), Leisure = c("Exercising/ Working out", 
"Getting ready", "Exercising/ working out", "Hobbies eg knitting", 
"Playing games", "Shopping", "Eating", "Listening to music", 
"Reading", "Smoking", "Playing with pets", "Personal caring", 
"Personal care", "Nothing", "Relaxing", "Waiting"))

Итак, если значение фрейма данных находится в значениях элемента в списке, замените df именем этого элемента, если нет, пропустите этот элемент и проверьте следующий элемент списка и так далее. (Пожалуйста, извините за двойной цикл for).

for (i in df$Activity){
  for (j in mylist){
    if (i %in% mylist[j]){
      i <- names(mylist[j])
    }
  }
}

Спасибо за любую помощь заранее.

r list data-cleaning

10.12.2020 13:37

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

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

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

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

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

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

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

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

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

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

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

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

924

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

Ответы 3

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

Вы можете сделать mylist в качестве фрейма данных, а затем merge с помощью df.

merge(df, stack(mylist), by.x = 'Activity', by.y = 'values')

tidyverse способ будет:

library(tidyverse)

enframe(mylist) %>%
  unnest(value) %>%
  right_join(df, by = c('value' = 'Activity'))

#   name          value            
#   <chr>         <chr>            
# 1 Tech_activity Checking emails  
# 2 Tech_activity Watching YouTube 
# 3 Tech_activity Watching TV      
# 4 Tech_activity Watching TV      
# 5 Work          Working/ studying
# 6 Leisure       Getting ready    
# 7 Leisure       Playing games    
# 8 Leisure       Reading          
# 9 Leisure       Relaxing         
#10 Leisure       Relaxing

Вау, очень полезно, спасибо. Это была перспектива, которой у меня не было

— 10.12.2020 14:08

10.12.2020 13:41

В базе R:

matches <- unlist(lapply(mylist, function(x) which(df$Activity %in% x)))
df$Activity[matches] <- gsub("\\d+$", "", names(matches))

df
#>         Activity
#> 1  Tech_activity
#> 2        Leisure
#> 3        Leisure
#> 4  Tech_activity
#> 5  Tech_activity
#> 6  Tech_activity
#> 7        Leisure
#> 8        Leisure
#> 9           Work
#> 10       Leisure

Я попытался принять оба ответа, поскольку они правильные и отличные, но это позволит мне сделать только один

— 10.12.2020 14:17

@ЭллиотМ без проблем. Выберите тот, который лучше всего отвечает на ваш вопрос.

— 10.12.2020 14:18

10.12.2020 13:48

Мы можем использовать tidyverse

library(tibble)
library(purrr)
library(dplyr)
enframe(mylist, value = 'Activity') %>%
      unnest(c(Activity)) %>%
      inner_join(df)

-выход

# A tibble: 10 x 2
#   name          Activity         
#   <chr>         <chr>            
# 1 Tech_activity Checking emails  
# 2 Tech_activity Watching YouTube 
# 3 Tech_activity Watching TV      
# 4 Tech_activity Watching TV      
# 5 Work          Working/ studying
# 6 Leisure       Getting ready    
# 7 Leisure       Playing games    
# 8 Leisure       Reading          
# 9 Leisure       Relaxing         
#10 Leisure       Relaxing

10.12.2020 17:45

Другие вопросы по теме

Фильтрация списков с одинаковым количеством разных элементов в Haskell

Как создать список динамически на основе различных условий в python?

Общая сумма списка чисел с итерацией списка

Изменение состояния одной переменной также изменяет другую переменную

Как напечатать карту со списком в качестве значения, которое растет по мере того, как каждый элемент списка будет иметь свои значения и более того? (Джава)

Как искать по атрибуту в списке? Джава

Как автоматически создать список экземпляров подкласса, чтобы иметь возможность вызывать метод «выполнить» для этих «скриптов» при запуске приложения?

Как я могу использовать строку в списке в качестве строковых методов в python?

Группировка элементов в списке таким образом, чтобы каждое семя создавало уникальную комбинацию

ValueError: слишком много значений для распаковки (ожидается 2) со списком кортежей в Python

Замена значений столбца фрейма данных с использованием значений списка и имени списка в R

Ответы 3

Другие вопросы по теме

Похожие вопросы