用R语言整理格式后存储到Excel中： SLB SLMH SLLL SDUL SSAT SRGF SSKS SBDM SLOC SLCL SLSI SLCF SLNI SLHW SLHB SCEC SADC

需要先把数据转化为矩阵形式，再使用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="\t", row.names=TRUE, col.names=TRUE)

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