使用data.table和自定义函数从字符串变量中提取变量

library(data.table)
dt <- data.table(strings = c("variable1=1, variable2=2, variable3=3", 
                             "variable1=4, variable2=5, variable3=6"))

extract_variables <- function(string) {
  variables <- strsplit(string, ", ")[[1]]
  variable_names <- sapply(variables, function(x) strsplit(x, "=")[[1]][1])
  variable_values <- sapply(variables, function(x) strsplit(x, "=")[[1]][2])
  
  return(list(names = variable_names, values = variable_values))
}

dt[, c("names", "values") := as.data.table(lapply(strings, extract_variables))]