Блог

Фрейм данных

 df<-structure(list(V1 = c(1L, 2L, 2L, 3L, 2L), V2 = c(1L, 3L, 3L, 
1L, 2L), V3 = c(2L, 2L, 1L, 2L, 3L)), .Names = c("V1", "V2", 
"V3"), class = "data.frame", row.names = c(NA, -5L))
  

Вопрос

Чтобы написать функцию, которая изменяет переменную на: A, если переменная равна 1 B, если переменная равна 2 C, если переменная равна 3

Что я пробовал

Я написал функцию, но почему-то она не может обновить значения вне функции. Если я запускаю ее напрямую, она работает.

 test_recode<-function(x){
        require("memisc")
        x<-cases("A"<-x==1,
                 "B"<-x==2,
                 "C"<-x==3)}
 test_recode(df$V1)
  

Функция выполняется без ошибок, но фрейм данных по-прежнему не изменяется.

Однако он хорошо работает без функции.

 df$V1<-cases("A"<-df$V1==1,
             "B"<-df$V1==2,
             "C"<-df$V1==3)
  

Дополнительные комментарии

Я провел некоторое исследование и обнаружил, что это связано с <- и <<- но когда я изменил x<- на x<< — он присвоил значения x буквально. Как я могу указать функции присваивать значения переменной, которую я указываю в качестве параметра?

Кроме того, мне нужно придерживаться использования memisc cases функции.

Очень простой подход был бы таким:

 apply(df, 2, function(x) chartr("123", "ABC", x))

#     V1  V2  V3 
#[1,] "A" "A" "B"
#[2,] "B" "C" "B"
#[3,] "B" "C" "A"
#[4,] "C" "A" "B"
#[5,] "B" "B" "C"
  

Другая возможность с помощью LETTERS ,

 sapply(df, function(i) LETTERS[i])
#     V1  V2  V3 
#[1,] "A" "A" "B"
#[2,] "B" "C" "B"
#[3,] "B" "C" "A"
#[4,] "C" "A" "B"
#[5,] "B" "B" "C"