Использование нестандартной оценки на основе Tidyeval при перекодировании в правой части mutate

Рассмотрим тиббл, где каждый столбец является символьным вектором, который может принимать много значений - скажем, от «A» до «F». library(tidyverse) sample_df <- tibble(q1 = c("A", "B", "C"), q2 = c("B", "B", "A")) Я хочу создать функцию, которая принимает имя столбца в качестве аргумента и...