在R语言中按条件删除矩阵行：移除首列含超2个字母的行

首先咱们先把你提到的矩阵在R里定义出来，方便后续演示：

my_matrix <- matrix(c("A/B", 3, 4, 5, 7,
                      "A/C", 8, 6, 7, 7,
                      "A/B/C", 8, 8, 5, 4),
                    nrow = 3, byrow = TRUE)

你最初的思路方向是对的，但需要更精准的判断逻辑——因为第一列的元素是用斜杠分隔字母的，要判断字母数量是否超过2，本质是看斜杠的数量：斜杠数+1就是字母数。比如"A/B"有1个斜杠（对应2个字母），"A/B/C"有2个斜杠（对应3个字母）。

方法一：基础R实现（无需额外包） #

这是最稳妥直接的方式，用基础R函数就能完成：

# 筛选出第一列斜杠数量小于2的行（即字母数≤2）
filtered_matrix <- my_matrix[sapply(gregexpr("/", my_matrix[, 1]), length) < 2, ]

执行后得到的filtered_matrix就是你要的结果：

[,1]  [,2] [,3] [,4] [,5]
[1,] "A/B" "3"  "4"  "5"  "7" 
[2,] "A/C" "8"  "6"  "7"  "7" 

方法二：利用字符长度（适合固定格式场景） #

如果你的第一列格式非常固定（比如始终是「单个字母+斜杠+单个字母」，总长度固定为3），也可以用你最初想到的nchar()函数快速筛选：

filtered_matrix <- my_matrix[nchar(my_matrix[, 1]) == 3, ]

不过这个方法有局限性：如果第一列出现类似"AB/C"这种长度为4但依然是两个字母的情况，就会误删，所以更推荐第一种方法。

内容的提问来源于stack exchange，提问作者João Carvalho