R: dplyr- ошибка в использовании функции перекодирования

Question

Я новичок в R и пытаюсь перевести порядковые переменные в числовые значения. У меня есть переменная с именем «Founders_previous_company_employee_count», имеющая 3 разных записи в качестве входов - («Малый», «Средний», «Большой»), которые я записываю в 1,2,3 значения соответственно. Я попытался с помощью переоценивать функции из пакета plyr, используя приведенный ниже код

startupfull$employee_count_code<-as.numeric(revalue(startupfull$Founders_previous_company_employee_count,c("Small"=1, "Medium"=2, "Large"=3))) 

, который работает отлично. Тем не менее, я пытаюсь использовать функцию recode в пакете dplyr, я получаю сообщение об ошибке.

Код:

startupfull$prevcomp_empcount_code <- as.numeric(recode(startupfull$Founders_previous_company_employee_count,c("Small"=1, "Medium"=2, "Large"=3))) 

Error- Error: All replacements must be named

Что я здесь делаю неправильно?

Answer 1

x = c("Small", "Large", "Medium", "Large") 
as.numeric(factor(x, levels = c("Small", "Medium", "Large"))) 
[1] 1 3 2 3 

Answer 2

Для заданных входов в

dput(x) 

c("Small", "Large", "Medium", "Large") 

попробовать

as.numeric(recode(x, "Small" = "1", "Medium" = "2", "Large" = "3")) 

Answer 3

Это было бы более уместно в качестве комментария на ответ Aramis7d в выше, но у меня нет достаточной репутации комментировать.

В случае, если кто-то все еще запутался после прочтения этих ответов (например, я был), игнорируя тот факт, что перекодирование в числовое, вероятно, лучше всего использовать с использованием as.numeric() и factor(), как было предложено joel.wilson, решение, которое также будет работать, если перекодировка на нечисловые значения равна , просто избегайте обертывания набора пар перекодировки в c() при использовании recode() dplyr.

То есть, вместо этого:

startupfull$prevcomp_empcount_code <- 
    as.numeric(recode(startupfull$Founders_previous_company_employee_count, 
        c("Small"=1, "Medium"=2, "Large"=3))) 

Просто сделать это:

startupfull$prevcomp_empcount_code <- 
    as.numeric(recode(startupfull$Founders_previous_company_employee_count, 
         "Small"=1, "Medium"=2, "Large"=3))