使用R语言转置Dataframe时丢失数据，寻求解决方法

你这段代码丢失数据的核心原因是：把原数据的第一列设为行名后，这部分数据就不再属于DataFrame的数据列范畴，data.table::transpose()只会转置数据列（也就是原SA的第2列及以后），导致原第一列的内容直接被排除在转置结果外，自然丢失。另外后续手动设置行列名的逻辑也和实际转置后的结构不匹配，会引发额外问题。

方法一：利用data.table转置的内置参数直接处理 #

这种方法不用提前修改行名，一步到位保留原第一列数据：

# 转置时保留原第一列作为新的行标识
SA2 <- data.table::transpose(SA, keep.names = "原列标识")
# 将原第一列的内容设为新的列名
colnames(SA2) <- c("原列标识", SA[, 1])
# 若不需要开头的"原列标识"行，直接删除
SA2 <- SA2[-1, ]

方法二：先保留目标数据再转置 #

如果需要更灵活的控制，可以先把要转成列的行数据单独存起来，再转置剩余部分：

# 先保存原第一列（要转为新列名的内容）
target_col_names <- SA[, 1]
# 转置除第一列外的所有数据列
SA2 <- data.table::transpose(SA[, -1])
# 设置新的列名为之前保存的内容
colnames(SA2) <- target_col_names
# 设置新的行名为原数据的列名（排除第一列）
rownames(SA2) <- colnames(SA)[-1]
# 若需要转回普通data.frame格式
SA2 <- as.data.frame(SA2)

额外注意点 #

如果原数据包含多种数据类型（比如字符和数值混合），转置时可能会被强制统一类型，导致数据异常。可以通过data.table::transpose的type.convert = TRUE参数自动识别类型，或者提前统一数据类型后再转置。

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