L oop пользовательская функция ifelse в R с использованием строкового вектора

Question

Я написал функцию для значений NA в столбцах, если значения в связанных столбцах ниже порога размера выборки. Функция работает, если она применяется к 1 переменной за раз.

# Create dataframe
DF <- data.frame(VehicleType = c("Car","Car","LuxeryCar","Car","Car","LuxeryCar","LuxeryCar"),
                 Brand = c("Honda","Audi","Bentley","Chevrolet","Hyundai","Maserati","Porsche"),
                 VarA_Low=c(15000, 30000, 50000, 40000, 15000, 100000, 100000),
                 VarA_Medium=c(40000, 70000, 100000, 90000, 25000, 200000, 180000),
                 VarA_High=c(20000, 150000, 500000, 190000, 80000, 1000000, 500000),
                 VarA_SampleSize=c(39,44,51,35,45,65,53),
                 VarB_Low=c(15000, 30000, 50000, 40000, 15000, 100000, 100000),
                 VarB_Medium=c(40000, 70000, 100000, 90000, 25000, 200000, 180000),
                 VarB_High=c(20000, 150000, 500000, 190000, 80000, 1000000, 500000),
                 VarB_SampleSize=c(2,40,92,47,51,39,40))

# NA values if associated SampleSize is below 40
NA_values <- function(m) {
  m <- deparse(substitute(m))
  Var_L <- paste0(as.character(m), "_Low")
  Var_M <- paste0(as.character(m), "_Medium")
  Var_H <- paste0(as.character(m), "_High")
  Count <- paste0(as.character(m), "_SampleSize")
  DF[,Var_L] <- ifelse(DF[,Count] < 40, NA, DF[,Var_L])
  DF[,Var_M] <- ifelse(DF[,Count] < 40, NA, DF[,Var_M])
  DF[,Var_H] <- ifelse(DF[,Count] < 40, NA, DF[,Var_H])
  return(DF)
}

# Apply function to one variable at a time
DF <- NA_values(VarA)
DF <- NA_values(VarB)

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

# Declare variables as a string vector
Vars <- c("VarA", "VarB")

# Create dataframe to store results
DF_NA <- DF

# Loop over DF and store results in DF_NA
for (item in Vars) 
{
  DF_NA[, c(item)] <- NA_values(item)
}

В результате появляется сообщение об ошибке "выбраны неопределенные столбцы"

Answer 1

Сложность в том, что вам нужно обновить несколько столбцов в кадре данных за одну итерацию, а также «запомнить» их на следующей итерации.

Вот один из способов сделать это:

NA_values <- function(DF, cols, sample_col) {
   DF[cols] <- lapply(cols, function(x) ifelse(DF[, sample_col] < 40, NA, DF[,x]))
   return(DF)
}

Vars <- c("VarA", "VarB")

for (item in Vars) {
  cols <- paste0(item, c("_Low", "_Medium", "_High"))
  sample_col <- paste0(item, "_SampleSize")
  DF_NA <- NA_values(DF_NA, cols, sample_col)
}

DF_NA
#  VehicleType     Brand VarA_Low VarA_Medium VarA_High VarA_SampleSize VarB_Low VarB_Medium VarB_High VarB_SampleSize
#1         Car     Honda       NA          NA        NA              39       NA          NA        NA               2
#2         Car      Audi    30000       70000    150000              44    30000       70000    150000              40
#3   LuxeryCar   Bentley    50000      100000    500000              51    50000      100000    500000              92
#4         Car Chevrolet       NA          NA        NA              35    40000       90000    190000              47
#5         Car   Hyundai    15000       25000     80000              45    15000       25000     80000              51
#6   LuxeryCar  Maserati   100000      200000   1000000              65       NA          NA        NA              39
#7   LuxeryCar   Porsche   100000      180000    500000              53   100000      180000    500000              40