如何在R中提取矩阵指定行元素并以&分隔输出用于LaTeX表格

解决方案代码 #

# 构建原始矩阵
vec1 <-   c(1, 2, 3, 4)
vec2 <-  c(5, 6, 7, 8)
vec3 <-   c(9, 10, 11, 12)
vec4 <-  c(13, 14, 15, 16)
vec5 <-  c(17, 18, 19, 20)
vec6 <- c(21, 22, 23, 24)

Mat <- matrix(c(vec1, vec2, vec3, vec4, vec5, vec6), nrow = 6, ncol = 4, byrow = TRUE)

# 处理第1、3、5行，生成&分隔的输出
vect1 <- as.vector(Mat[c(1,3,5), ])
cat("[1]  ", paste(vect1, collapse = " & "), "\n")

# 处理第2、4、6行，生成&分隔的输出
vect2 <- as.vector(Mat[c(2,4,6), ])
cat("[1]  ", paste(vect2, collapse = " & "), "\n")

代码说明 #

1. 简化行提取：用Mat[c(1,3,5), ]直接选中目标行，替代逐个元素索引的繁琐写法，选中结果为3行4列的矩阵。
2. 转一维向量：通过as.vector()将选中的多行矩阵转换为一维向量，元素保持原行顺序排列。
3. 拼接成&分隔字符串：使用paste(..., collapse = " & ")将向量元素用&连接成单个字符串，完美适配LaTeX表格的列分隔需求。
4. 输出指定格式：用cat()输出带[1] 前缀的内容，匹配期望的输出样式；如果直接用于LaTeX，可去掉[1] ，只输出拼接后的字符串。

运行结果 #

执行代码后会输出：

[1]  1 & 2 & 3 & 4 & 9 & 10 & 11 & 12 & 17 & 18 & 19 & 20
[1]  5 & 6 & 7 & 8 & 13 & 14 & 15 & 16 & 21 & 22 & 23 & 24

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