Penggunaan evaluasi non-standar berbasis rapi dalam recode di sisi kanan mutasi

Pertimbangkan tibble di mana setiap kolom adalah vektor karakter yang dapat mengambil banyak nilai - misalkan "A" hingga "F". library(tidyverse) sample_df <- tibble(q1 = c("A", "B", "C"), q2 = c("B", "B", "A")) Saya ingin membuat fungsi yang menggunakan nama kolom sebagai argumen, dan mengode...