如何通过R将两个不同文件中的行名和列名提供给一个数据帧

# 读取第一个文件
df1 <- read.table("file1.txt", header = TRUE)

# 读取第二个文件
df2 <- read.table("file2.txt", header = TRUE)

# 获取第一个文件的行名和列名
row_names_df1 <- rownames(df1)
col_names_df1 <- colnames(df1)

# 获取第二个文件的行名和列名
row_names_df2 <- rownames(df2)
col_names_df2 <- colnames(df2)

# 创建新的数据框
new_df <- data.frame(matrix(ncol = length(col_names_df1), nrow = length(row_names_df1)))
rownames(new_df) <- row_names_df1
colnames(new_df) <- col_names_df1

# 复制第一个文件的值到新数据框
for (i in 1:length(row_names_df1)) {
  for (j in 1:length(col_names_df1)) {
    new_df[i, j] <- df1[i, j]
  }
}

# 复制第二个文件的值到新数据框
for (i in 1:length(row_names_df2)) {
  for (j in 1:length(col_names_df2)) {
    new_df[i, j] <- df2[i, j]
  }
}

# 打印新数据框
print(new_df)