data <- tabledown::FFMQ.CFA[, c(9,10,12,14)]
recode_code <- c( "1" = "Never or very rarely true", "2" = "Rarely true",
"3"= "Sometimes true","4" = "Often true","5" = "Very often or always true")
sample_tab <- gt_tab(data,recode_code)
Run the code above in your browser using DataLab