R 中每個字符變量的因變量箱線圖

Question

我有一個 dataframe 它有以下列：

   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))