Блог

У меня есть таблица A необработанных данных, в которой я пытаюсь переименовать имена столбцов и строки на основе другой таблицы, которая работает как своего рода таблица индексации.

Я создал вторую таблицу B, чтобы попытаться объединить имена rawdata с их желаемыми фактическими именами

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

Обновление: мне сказали быть более кратким в том, что я ищу.

Я ищу метод обновления значений из таблицы A на основе поиска совпадений с таблицей B.

Желаемый результат:

Используя tidyverse функцию, вы можете сделать это следующим образом :

 library(dplyr)
library(tidyr)

df1 %>%
  mutate(row = row_number()) %>%
  pivot_longer(cols = -row) %>%
  left_join(df2, by = c('name' = 'Qtitles', 'value' = 'answers')) %>%
  select(row, desiredtitles, desiredanswers) %>%
  pivot_wider(names_from = desiredtitles, values_from = desiredanswers) %>%
  select(-row)

# `Are you stressed?` `How often do you exercise?`
#  <chr>               <chr>                       
#1 Yes                 Daily                       
#2 No                  Weekly                      
#3 No                  Daily                       
#4 No                  Weekly                
 

данные

 df1 <- structure(list(Q1 = c("a1", "a2", "a2", "a2"), Q2 = c("a1", "a2", 
"a1", "a2")), row.names = c(NA, -4L), class = "data.frame")

df2 <- structure(list(Qtitles = c("Q1", "Q1", "Q2", "Q2"), desiredtitles = c("Are you stressed?", 
"Are you stressed?", "How often do you exercise?", "How often do you exercise?"
), answers = c("a1", "a2", "a1", "a2"), desiredanswers = c("Yes", 
"No", "Daily", "Weekly")), row.names = c(NA, -4L), class = "data.frame")
 

Возможно, этот код не будет хорошо масштабироваться, если возникнет много вопросов, но если вы преобразуете свой tables в data.frames , вы можете использовать следующий код:

 library(dplyr)
d1 <- data.frame(Q1 = c('a1', 'a2'), Q2 = c('a1', 'a2')) # You don't even need this data
d2 <- data.frame(Qtitles = c("Q1", "Q1", "Q2", "Q2"),   
                 desiredtitles = c("Are you stressed?","Are you stressed?",
                                   "How often do you exercise?","How often do you exercise?"),  
                 answers = c("a1", "a2", "a1", "a2"),   
                 desiredanswers = c("Yes", "No", "Daily", "Weekly"))
dlist <- split(d2, d2$Qtitles)
dfinal <- lapply(dlist, function(x) {
    y <- data.frame(x$desiredanswers)
    names(y) <- unique(x$desiredtitles)
    return(y)})
dfinal <- bind_cols(dfinal)
print(dfinal)
  Are you stressed? How often do you exercise?
1               Yes                      Daily
2                No                     Weekly