问在R中记录逗号分隔项

EN

df1 <- 
  data.frame(NorthCode=c(4,5,6,7,99),
             NorthDef=c("happy","sad","tired","energetic","other"),
             SouthCode=c(7,8,9,5,99),
             SouthDef=c("happy","sad","tired","energetic","other"), 
             stringsAsFactors = F)

df2 <- 
  data.frame(Mood=c("4","5","6","7","4,5","5,6,99","99","7","8","9","5","7,8","8,5,99","99"),
             Region=c("north","north","north","north","north","north","north","south","south","south","south"    ,"south","south","south"), 
             stringsAsFactors = F)

df3 <- 
  data.frame(Mood=c("7","8","9","5","7,8","8,9,99","99","7","8","9","5","7,8","8,5,99","99"),
             PartofTown=c("north","north","north","north","north","north","north","south","south","south","south"   ,"south","south","south"),
             stringsAsFactors = F)

# Split the Moods into separate values
splitCodes <- strsplit(df2$Mood, ",")
# Add the Region as the name of each element in the new list
names(splitCodes) <- df2$Region

# Recode the values by matching the north values to the south values
recoded <- 
  lapply(
    seq_along(splitCodes),
    function(x){
      ifelse(rep(names(splitCodes[x]) == "north", length(splitCodes[[x]])),
             df1$SouthCode[match(splitCodes[[x]], df1$NorthCode)],
             splitCodes[[x]])
    }
  )

# Add the recoded values back to df2
df2$recoded <- 
  sapply(recoded,
         paste,
         collapse = ",")

# Check if the recoded values match your desired values    
identical(df2$recoded, df3$Mood)