Here is a quick piece of code to create numeric response scores when data are read in as strings (e.g., “Strongly Agree, Agree, Neutral”).

library(tidyverse)
library(dplyr)
library(plyr)

df <- read.csv("path")

labels_to_values1 <- function(x){
  
  mapvalues(x, from = c("Strongly Agree", 
                        "Agree", 
                        "Slightly Agree", 
                        "Slightly Disagree", 
                        "Disagree", 
                        "Strongly Disagree"),
                        to = c(6,5,4,3,2,1))
  
}

recode_df <- df %>%
  select(column_to_modify1, column_to_modify2, column_to_modify2, etc) %>%
  apply(2, FUN = labels_to_values1) %>%
  data.frame()

Note that R will throw you warnings if all of the response options are not used, but the code will still work.

Bo\(^2\)m =)