R语言：如何为列表中的数据框添加基于B列的新列D？

Hey there! Let's get this sorted out for you. You're on the right track with using lapply—the issue probably comes down to how you're structuring the function to modify each data frame and return it properly.

Step 1: Recap your scenario with test data #

First, let's simulate a test list of data frames that matches what you described (since you mentioned having test data already):

# 模拟你的列表数据（B列包含带分隔符的内容）
df1 <- data.frame(A = 1:3, B = c("apple_red", "banana_yellow", "cherry_red"))
df2 <- data.frame(A = 4:6, B = c("dog_brown", "cat_white", "bird_blue"))
my_data_list <- list(df1, df2)

You already know how to do this for a single data frame, like:

# 单data.frame的可行操作
df1$D <- gsub("_.*", "", df1$B)

Step 2: Fixing the lapply approach #

The common mistake here is forgetting to return the entire modified data frame from the lapply function. If you just run the assignment line, lapply will only return the values of the new column D instead of updating the whole data frame.

Here's the correct way to write it:

# 用lapply遍历列表，给每个data.frame添加列D
updated_list <- lapply(my_data_list, function(current_df) {
  # 给当前data.frame添加新列D，提取B列的第一部分
  current_df$D <- gsub("_.*", "", current_df$B)
  # 一定要返回修改后的data.frame！
  current_df
})

If you prefer using tidyverse syntax (with dplyr), this works too:

library(dplyr)

updated_list <- lapply(my_data_list, function(current_df) {
  current_df %>% 
    mutate(D = gsub("_.*", "", B))
})

Why you got the "unexpected symbol" error #

That error usually points to a syntax mistake—like missing curly braces {} to wrap multiple lines of code in your lapply function, or a typo in how you're referencing columns. For example, if you tried to write something like lapply(my_list, x$D <- gsub(...)) without wrapping it in a function, R would throw that error because it doesn't recognize the structure.

Verify the result #

If you print updated_list, you'll see each data frame now has the new column D with the first part of column B:

print(updated_list[[1]])
#   A           B      D
# 1 1    apple_red  apple
# 2 2 banana_yellow banana
# 3 3   cherry_red cherry

内容的提问来源于stack exchange，提问作者crazysantaclaus