使用 R 语言将格式化数据保存到 Excel 表格

需要先将数据转换为矩阵形式，再使用 R 语言的 'write.table' 函数输出到 Excel 中。

代码如下：

# 将数据转换为矩阵
data_matrix <- matrix(c(
  'SLB', 'SLMH', 'SLLL', 'SDUL', 'SSAT', 'SRGF', 'SSKS', 'SBDM', 'SLOC', 'SLCL', 'SLSI', 'SLCF', 'SLNI', 'SLHW', 'SLHB', 'SCEC', 'SADC',
  '5 A', 0.099, 0.244, 0.393, 1.00, 1.03, 1.23, 8.04, 15.89, 48.13, -99.0, 0.12, 6.75, -99.0, 30.7, -99.0,
  '15 A', 0.108, 0.253, 0.396, 0.85, 0.88, 1.25, 6.80, 17.49, 47.51, -99.0, 0.09, 6.81, -99.0, 26.9, -99.0,
  '30 AB', 0.122, 0.267, 0.400, 0.70, 0.70, 1.28, 5.19, 19.84, 46.46, -99.0, 0.07, 6.91, -99.0, 26.0, -99.0,
  '60 BA', 0.135, 0.279, 0.404, 0.50, 0.57, 1.33, 3.33, 22.13, 45.36, -99.0, 0.06, 7.02, -99.0, 27.2, -99.0,
  '100 B', 0.135, 0.278, 0.403, 0.38, 0.57, 1.39, 1.94, 22.11, 44.77, -99.0, 0.05, 7.17, -99.0, 27.4, -99.0,
  '200 BC', 0.125, 0.265, 0.398, 0.05, 0.68, 1.45, 1.10, 20.41, 44.59, -99.0, 0.05, 7.35, -99.0, 27.3, -99.0
), nrow = 7, byrow = TRUE)

# 添加列名和行名
colnames(data_matrix) <- c('Sample', 'SLB', 'SLMH', 'SLLL', 'SDUL', 'SSAT', 'SRGF', 'SSKS', 'SBDM', 'SLOC', 'SLCL', 'SLSI', 'SLCF', 'SLNI', 'SLHW', 'SLHB', 'SCEC', 'SADC')
rownames(data_matrix) <- c('', '5 A', '15 A', '30 AB', '60 BA', '100 B', '200 BC')

# 输出到 Excel
write.table(data_matrix, 'output.xlsx', sep='	', row.names=TRUE, col.names=TRUE)

运行后会在当前工作目录下生成一个名为“output.xlsx”的 Excel 文件，其中包含整理好的数据。