删除R中的模式

我有一个如下所示的字符串，我想删除在“\u1”之后没有任何值的行。 我在R怎么做

 [985] "Pclo_"                "P2yr13_ S329"         "Basp1_ S131"         
 [988] "Stk39_ S405"          "Srrm2_ S351"          "Grin2b_ S930"        
 [991] "Matr3_ S604"          "Map1b_ S1781"         "Crmp1_"              
 [994] "Elmo1_"               "Pcdhgc5_"             "Sp4_"                
 [997] "Pbrm1_"               "Pphln1_"              "Gnl1_ S33"           
[1000] "Kiaa1456_"

---

我们可以使用

grep

grep("_$", v1, invert = TRUE, value = TRUE)

---

或

endsWith

v1[!endsWith(v1, "_")]

---

我们可以使用

子字符串

来获取向量中的最后一个字符，并选择它是否为

“u”

---

这回答了你的问题吗？

x <- c("Pclo_","P2yr13_ S329","Basp1_ S131")
x[substring(x, nchar(x)) != '_']
#[1] "P2yr13_ S329" "Basp1_ S131" 

x[sub('.*(.)$', '\\1', x) != '_']