Zastosowanie niestandardowej oceny opartej na tidyeval w przekodowaniu po prawej stronie mutacji

Rozważmy tabliczkę, w której każda kolumna jest wektorem znaków, który może przyjmować wiele wartości - powiedzmy „A” do „F”. library(tidyverse) sample_df <- tibble(q1 = c("A", "B", "C"), q2 = c("B", "B", "A")) Chciałbym utworzyć funkcję, która przyjmuje nazwę kolumny jako argument i koduje...