1

すべての colnames(abun) が rownames(x) に存在することを必要とするかなり長い関数を作成していますが、その逆は必要ありません。要件が満たされない場合、関数がエラー メッセージをスローするように設計しました。エラー メッセージとともに、どの 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","E")))

abun
    A   B   E
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               



if(any(colnames(abun) %in% rownames(x) != TRUE))
stop("The following species names in abun are missing trait information")
4

2 に答える 2

2

先ほどの質問に戻ります

colnames(abun)[
    !colnames(abun) %in% rownames(x)
    ]

これにより、必要な値が返されます。

于 2013-10-02T08:56:08.157 に答える
1

このようなもの？

if(any(colnames(abun) %in% rownames(x) != TRUE))
stop("The following species names in abun are missing trait information:",
     paste(setdiff(colnames(abun), rownames(x)), collapse=" "))

setdiff を提案してくれた @Hadley に感謝します!

于 2013-10-02T08:56:40.093 に答える