R中为矩阵添加文本列后数值转字符的问题及解决方法咨询

这是个很典型的R语言数据结构坑——矩阵是同质数据结构，所有元素必须是同一类型，所以当你用cbind给矩阵添加字符型的Time列时，整个矩阵会被强制转换成字符型，自然就没法用colMeans、colSums这类数学函数了。下面给你两个简单的解决方案，完美匹配你的需求：

方案一：从一开始就用数据框（推荐） #

直接跳过矩阵，用数据框来存储混合类型的数据，因为数据框允许每列有不同的数据类型：

# 创建数值列组成的数据框
t_df <- data.frame(col1 = 7:9, col2 = 10:12)
# 添加字符型的Time列
t_df$Time <- "text"

# 验证数值列可以正常运算
colMeans(t_df[, 1:2])  # 会返回col1和col2的均值
colSums(t_df[, 1:2])   # 会返回col1和col2的总和

用str(t_df)查看结构，你会看到前两列是numeric类型，第三列是character类型，完全满足你的需求。

方案二：把已有的字符型矩阵转换为数据框并恢复数值类型 #

如果你已经生成了那个全字符型的矩阵，可以这样挽救：

# 先把矩阵转为数据框
t_df <- as.data.frame(t, stringsAsFactors = FALSE)
# 将前两列转换回数值型
t_df[, 1:2] <- lapply(t_df[, 1:2], as.numeric)

# 现在检查数据类型
str(t_df)
# 输出会显示：
# 'data.frame':	3 obs. of  3 variables:
#  $ V1   : num  7 8 9
#  $ V2   : num  10 11 12
#  $ Time : chr  "text" "text" "text"

转换完成后，数值列就能正常进行数学运算了。

保存为XLS文件 #

推荐用writexl或openxlsx包来保存，这两个包不需要依赖Java，使用起来很简单：

用writexl包 #

# 第一次使用先安装
install.packages("writexl")
library(writexl)

# 保存数据框为XLSX文件
write_xlsx(t_df, "your_output_file.xlsx")

用openxlsx包 #

# 第一次使用先安装
install.packages("openxlsx")
library(openxlsx)

# 保存数据框为XLSX文件
write.xlsx(t_df, "your_output_file.xlsx")

这样就完成啦——既能对数值列执行数学运算，又能把混合类型的表格保存为XLS文件。

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