Бокплоты зависимых переменных с каждой символьной переменной в R

Question

У меня есть фрейм данных, который имеет следующие столбцы:

   ks3score    ks4score      ethnic      gender    SECshort    hiquamum   singlepar       house 
  "numeric"   "numeric" "character" "character" "character" "character" "character" "character" 
        fsm      parasp    computer     tuition      pupasp    homework    attitude         asc 
"character" "character" "character" "character" "character" "character" "character" "character" 
        sen     truancy      absent     IDACI_n     FSMband 
"character" "character" "character"   "numeric" "character" 

Я хочу нарисовать блок-диаграмму для каждой символьной переменной и ks4score, теперь я использовал приведенный ниже код, но не достаточно краткий:

boxplot(ks4score ~ ethnic, df)
boxplot(ks4score ~ gender, df)
...

Просто интересно, есть ли способ улучшить его? Спасибо.

Answer 1

Вы можете попробовать:

cols <- names(df)[sapply(df, is.character)]
all_plots <- lapply(cols, function(x) boxplot(reformulate(x, 'ks4score'), df))