Вернуть конкретное значение в зависимости от условий: неверное количество измерений

Question

    A <- structure(list(Column_1 = structure(c(1L, 2L, 3L, 4L, 1L, 4L, 
    2L, 3L, 1L, 1L), .Label = c("X.1", "X.2", "X.3", "X.4"), class = "factor"), 
        Column_2 = c("one", "two", "three", "four", "five", "six", 
        "seven", "four", "two", "one"), Column_3 = c("C", "C", "C", 
        "B", "B", "C", "C", "C", "C", "B")), row.names = c(NA, -10L
    ), class = "data.frame")

    B <- structure(list(Column_3 = structure(c(5L, 10L, 9L, 3L, 2L, 7L, 
    6L, 1L, 4L, 8L), .Label = c("eight", "five", "four", "nine", 
    "one", "seven", "six", "ten", "three", "two"), class = "factor"), 
        X.1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), X.2 = c(11, 12, 13, 
        14, 15, 16, 17, 18, 19, 20), X.3 = c(21, 22, 23, 24, 25, 
        26, 27, 28, 29, 30), X.4 = c(31, 32, 33, 34, 35, 36, 37, 
        38, 39, 40)), row.names = c(NA, -10L), class = "data.frame")

    C <- structure(list(Column_3 = structure(c(5L, 10L, 9L, 3L, 2L, 7L, 
    6L, 1L, 4L, 8L), .Label = c("eight", "five", "four", "nine", 
    "one", "seven", "six", "ten", "three", "two"), class = "factor"), 
        X.1 = c(50, 51, 52, 53, 54, 55, 56, 57, 58, 59), X.2 = c(60, 
        61, 62, 63, 64, 65, 66, 67, 68, 69), X.3 = c(70, 71, 72, 
        73, 74, 75, 76, 77, 78, 79), X.4 = c(80, 81, 82, 83, 84, 
        85, 86, 87, 88, 89)), row.names = c(NA, -10L), class = "data.frame")

Выше три кадра данных A, B и C. Ниже приведен один кадр данных (D), который совпадает с кадром данных A, но имеет дополнительный столбец с ответами, для которых я пытаюсь найти ответы.Поэтому после того, как я запустил процесс, в фрейм данных A следует добавить столбец 4 из фрейма данных D.

Если в столбце 3 фрейма данных A указано B, то для следующего шага используйте фрейм данных B.Если столбец 3 кадра данных представляет собой C, то для следующего шага используйте кадр данных C.Как только правильный фрейм данных будет выбран, посмотрите на столбец 2 фрейма данных. Сопоставьте «значение» и выделите ROW в фрейме данных C (поскольку C - это фрейм данных, который мы будем использовать для этого примера).Затем вернитесь к кадру данных A и посмотрите на столбец 1. Сопоставьте «значение» и выделите КОЛОННУ.Найдите пересекающееся значение и поместите его в столбец 4 кадра данных. Ополосните и повторите.

Я нашел решение, выполняющее операторы ifelse, но получаю ошибку «Ошибка в таблице_1 [DF2, DF1]: неверное числоразмеры".Я прочитал из другого поста, что вы должны поместить кадры данных в матрицы?

    Table_1 <-
      ifelse(A$Column_3 == "C", C, B)

    DF1 <- 
      ifelse(A$Column_2 =="one", 1,
             ifelse(A$Column_2 =="two", 2,
                    ifelse(A$Column_2 =="three", 3,
                           ifelse(A$Column_2 =="four", 4,
                                  ifelse(A$Column_2 =="five", 5,
                                         ifelse(A$Column_2 =="six", 6,
                                                ifelse(A$Column_2 =="seven", 7,
                                                       ifelse(A$Column_2 =="eight", 8,
                                                                      ifelse(A$Column_2 =="nine", 9,
                                                                             ifelse(A$Column_2 =="ten", 10, ""))))))))))

    DF2 <- 
      ifelse(A$Column_1 == "X.1", 1 + 1,
             ifelse(A$Column_1 == "X.2", 2 + 1,
                    ifelse(A$Column_1 == "X.3", 3 + 1,
                           ifelse(A$Column_1 == "X.4", 4 + 1, ""))))

    A$Column_4 <- Table_1[DF2, DF1]


    D <- structure(list(Column_1 = c("X.1", "X.2", "X.3", "X.4", "X.5", "X.6", "X.7", "X.8", "X.9", "X.10"), Column_2 = c("one", 
    "two", "three", "four", "five", "six", "seven", "four", "two", 
    "one"), Column_3 = c("C", "C", "C", "B", "B", "C", "C", "C", 
    "C", "B"), Column_4 = c(50, 61, 72, 34, 5, 85, 66, 73, 51, 1)), row.names = c(NA, 
    -10L), class = "data.frame")

Answer 1

Во-первых, если вы планируете объединить множество операторов ifelse, было бы проще и проще использовать case_when.Однако, для этой проблемы, я думаю, это будет намного проще, если вы извлекаете данные из B и C, где мы делаем их длинными, а затем соединяем с A.

. Это можно сделать.довольно легко с dplyr и tidyr.Сначала мы изменим B и C

library(tidyr)
library(dplyr)

B_mod <- B %>% 
  gather(-Column_3, key = "identifier", value = "Value") %>% 
  mutate(data = "B")

C_mod <- C %>% 
  gather(-Column_3, key = "identifier", value = "Value") %>% 
  mutate(data = "C")

Теперь мы объединим эти измененные кадры данных в один длинный кадр данных.

full_mod <- bind_rows(B_mod, C_mod) %>% 
  mutate_if(is.factor, as.character)

Наконец, мысопоставим столбцы с A с нашим недавно созданным full_mod фреймом данных с left_join.В аргументе by столбцы в A находятся слева, а соответствующие им столбцы в full_mod - справа.

A %>% 
  mutate_if(is.factor, as.character) %>% 
  left_join(full_mod,
            by = c("Column_1" = "identifier",
                   "Column_2" = "Column_3",
                   "Column_3" = "data"))

, что дает нам:

   Column_1 Column_2 Column_3 Value
1       X.1      one        C    50
2       X.2      two        C    61
3       X.3    three        C    72
4       X.4     four        B    34
5       X.1     five        B     5
6       X.4      six        C    85
7       X.2    seven        C    66
8       X.3     four        C    73
9       X.1      two        C    51
10      X.1      one        B     1

Редактировать:

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