改变字符列以使用 R 中的 else if 语句调整膨胀值

Question

我正在尝试在我的数据框中突变一列工资，以调整通货膨胀，因为我有一个名为adj_SALARY的多年样本。工资列是一个字符向量（由unadj_SALARY表示），我需要将值乘以居民消费价格指数（如下所示为分数）的比率，以将所有值转换为2017年美元。我还有列作为虚拟变量，指示YEAR_2014，YEAR_2015，YEAR_2016，YEAR_2017和YEAR_2018。我已尝试运行下面的代码，但仍然遇到一条错误消息，“在 if （YEAR_2014 == 1） { ：条件的长度

enter code here NHIS_test <- NHIS1 %>% 
   mutate(adj_SALARY = if(YEAR_2014 == 1) {
as.numeric(as.character(NHIS1$unadj_SALARY))*(242.839/230.280) }
else if(YEAR_2015 == 1) { 
  as.numeric(as.character(NHIS1$unadj_SALARY))*(242.839/233.916) }
else if (YEAR_2016 == 1) {
  as.numeric(as.character(NHIS1$unadj_SALARY))*(242.839/233.707) }
else if (YEAR_2017 == 1) {
  as.numeric(as.character(NHIS1$unadj_SALARY))*(242.839/236.916)}
else if (YEAR_2018 == 1) { 
  as.numeric(as.character(NHIS1$unadj_SALARY))*(1)})

Answer 1

我们可以使用ifelse/case_when而不是如果/elseifelse是矢量化的

library(dplyr)
NH1S1 %>%
     mutate(unadj_SALARY = as.numeric(as.character(unadj_SALARY)),
            adj_SALARY = 
             case_when(
                YEAR_2014 == 1 ~  unadj_SALARY *(242.839/230.280),
                      YEAR_2015 == 1 ~  unadj_SALARY *(242.839/233.916),
                      YEAR_2016 == 1 ~ unadj_SALARY *(242.839/233.707),
                      YEAR_2017 == 1 ~ unadj_SALARY *(242.839/236.916),
                      YEAR_2018 == 1 ~ unadj_SALARY))

注意：与其在'unadj_SALARY'上多次执行数字转换，不如执行一次，然后将其用于进一步的转换/计算