测试列名称是否位于R中的行名称中

我想测试一个矩阵的列名是否包含在矩阵的行名中，即在下面的示例中，如果colnames（abun）和rownames（x）中

abun <- matrix(c(0.4,0,0.6,0.1,0.4,0.5), 
    nrow = 2, ncol = 3, byrow = TRUE, dimnames = list(c("x", "y"), 
    c("A","B","C")))

 abun
    A   B   C
x 0.4 0.0 0.6
y 0.1 0.4 0.5

x<-data.frame("Trait1" =c(1,1,0,1),
                    "Trait2"=c(1,1,1,1),
                    "Trait3" =c(1,1,0,1),
                    "Trait4" =c(1,0,1,1))
rownames(x)<-c("A","B","C","D") 

x
  Trait1 Trait2 Trait3 Trait4
A      1      1      1      1
B      1      1      1      0
C      0      1      0      1
D      1      1      1      1               

---

%rownames（x）中的

colnames（abun）%in

返回一个真/假向量，指示

colnames（abun）

中的哪个元素出现在

rownames（x）

中，您只是要求两个集合的交集吗

intersect(c("A","B","C","D") ,
          c("A","B","C"))
[1] "A" "B" "C"

要获得差异，请使用

setdiff

：

setdiff(c("A","B","C","D") ,
          c("A","B","C"))
[1] "D"

---

不，我只想测试colnames（一个bun（包含在行名称（x）中），如果它不是，我想在函数中抛出一条错误消息如果a包含在B中，a inter B=a……那么您可以使用if

（intersect（rownames（x），colnames（B））！=rownames（x））stop（…

intersect(c("A","B","C","D") ,
          c("A","B","C"))
[1] "A" "B" "C"

setdiff(c("A","B","C","D") ,
          c("A","B","C"))
[1] "D"