如何在不修改原df2的前提下解决列表数据框bind_rows类型冲突问题

你可以通过遍历列表中的每个数据框，将Category列统一转换为字符类型，这样既不会修改原始的df2，又能顺利完成合并。下面是两种实现方式：

方式一：使用purrr包（tidyverse风格） #

library(tidyverse)

df1 <- data_frame(ID = paste0(LETTERS[1],1:4), valueA = seq(0.1,0.4,0.1), Category= "Apples" )
df2 <- data_frame(ID = paste0(LETTERS[1],5:8), valueB = seq(0.1,0.4,0.1),  Category= seq(0.1,0.4,0.1))
df3 <- data_frame(ID = paste0(LETTERS[1],9:12), valueC = seq(0.1,0.4,0.1),  Category= "Apples3")

list1 <- list(df1, df2, df3)

# 遍历列表，修改每个数据框的Category列为字符型（仅修改列表内的副本）
list_processed <- map(list1, ~mutate(.x, Category = as.character(Category)))

# 合并处理后的列表
bind_rows(list_processed)

方式二：使用base R的lapply #

df1 <- data.frame(ID = paste0(LETTERS[1],1:4), valueA = seq(0.1,0.4,0.1), Category= "Apples" )
df2 <- data.frame(ID = paste0(LETTERS[1],5:8), valueB = seq(0.1,0.4,0.1),  Category= seq(0.1,0.4,0.1))
df3 <- data.frame(ID = paste0(LETTERS[1],9:12), valueC = seq(0.1,0.4,0.1),  Category= "Apples3")

list1 <- list(df1, df2, df3)

# 遍历列表转换类型（仅修改列表内的副本）
list_processed <- lapply(list1, function(df) {
  df$Category <- as.character(df$Category)
  df
})

# 合并数据框
do.call(rbind, list_processed)

关键说明 #

• 两种方式都是在列表的副本上修改Category列的类型，原始的df2不会被改动。
• 将所有Category列统一为字符类型后，就能解决bind_rows因类型不兼容抛出的错误。

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