如何在R中保留数据类型转置含字符型字符串的数据框

问题核心 #

使用t()转置混合数值和字符类型的数据框时，会先将数据框转换为矩阵，而矩阵仅支持单一数据类型，所有值会被强制转换为字符型，导致导出文件出现多余引号。我们可以用R基础函数手动构建转置后的data.frame，以此保留原数据的类型。

示例数据处理演示 #

# 构建示例数据框
data <- data.frame(dist = 1:5,
                   time = 6:10,
                   vel = 11:15,
                   pos = c("x","y","z","w","k"),
                   stringsAsFactors = FALSE)
row.names(data) <- c("indA","indB","indC","indD","indE")

# 手动构建转置后的data.frame，保留原类型
transposed_data <- data.frame(matrix(nrow = ncol(data), ncol = nrow(data)))
row.names(transposed_data) <- colnames(data)
colnames(transposed_data) <- row.names(data)

# 逐个列赋值，确保每一行保留原列的数据类型
for (col in colnames(data)) {
  transposed_data[col, ] <- data[[col]]
}

# 查看转置结果的类型
str(transposed_data)
#> 'data.frame':	4 obs. of  5 variables:
#>  $ indA: int  1 6 11 NA
#>  $ indB: int  2 7 12 NA
#>  $ indC: int  3 8 13 NA
#>  $ indD: int  4 9 14 NA
#>  $ indE: int  5 10 15 NA
#>  - attr(*, "row.names")= chr  "dist" "time" "vel" "pos"
# 查看pos行的类型
class(transposed_data["pos", ])
#> [1] "character"

批量处理文件的完整代码 #

# 获取目标文件夹下的所有制表符分隔文件（可通过pattern筛选特定后缀，比如\\.txt$）
files <- list.files(pattern = "\\.txt$")

for (file in files) {
  # 读取原文件，若原文件第一列为行名，需添加row.names = 1参数
  df <- read.table(file, header = TRUE, sep = "\t", stringsAsFactors = FALSE)
  
  # 创建空的转置数据框
  transposed_df <- data.frame(matrix(nrow = ncol(df), ncol = nrow(df)))
  row.names(transposed_df) <- colnames(df)
  colnames(transposed_df) <- row.names(df)
  
  # 逐个列赋值，保留原数据类型
  for (col in colnames(df)) {
    transposed_df[col, ] <- df[[col]]
  }
  
  # 生成输出文件名并导出，设置quote=FALSE避免引号，sep="\t"保持制表符分隔
  output_filename <- paste0("transposed_", file)
  write.table(transposed_df, 
              file = output_filename, 
              sep = "\t", 
              quote = FALSE, 
              row.names = TRUE, 
              col.names = NA)
}

关键说明 #

• 手动构建转置数据框的方式，让每一行对应原数据的一列，从而保留原列的数据类型，避免了矩阵强制统一类型的问题。
• write.table中设置quote=FALSE可彻底避免字符型值被添加引号，col.names=NA会让导出文件的第一列标题位置显示原行名的列名，符合制表符分隔文件的常规格式。

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