R语言合并表格：基于CODE列信息避免错乱

非常抱歉之前的回答中的误解。根据你的说明，你可以使用CODE列中的信息来合并五个表格，并确保合并后的数据不会错乱。以下是修改后的示例代码：

library(dplyr)
library(tidyr)

# 读取五个表格
data1 <- read.csv('data1.csv')
data2 <- read.csv('data2.csv')
data3 <- read.csv('data3.csv')
data4 <- read.csv('data4.csv')
data5 <- read.csv('data5.csv')

# 合并五个表格为长型数据
long_data <- bind_rows(data1, data2, data3, data4, data5)

# 合并五个表格为宽型数据
wide_data <- bind_rows(data1, data2, data3, data4, data5) %>%
  pivot_wider(names_from = CODE, values_from = c('列名1', '列名2', '列名3'))

# 打印长型数据和宽型数据
print(long_data)
print(wide_data)

在这个修改后的示例代码中，我们使用bind_rows()函数将五个表格合并为一个长型数据框和一个宽型数据框，而不添加额外的列。保留原始的CODE列信息用于正确合并五个表格。然后，我们使用pivot_wider()函数将合并后的表格转换为宽型数据。

请根据你的实际数据和需求修改文件名、列名等，并根据具体需求进行适当的调整。