行の値に基づくサブセット列

Question

これは簡単な質問かもしれませんが、私は答えを見つけることができませんでした。分子構造を持つn個の列を持つデータフレームがあるとします。各列の最後の行には、分散係数が表示されます。

例データセット：

a <- data.frame(matrix(runif(30),ncol=3)) 
b <- c(50.23,45.23,21) 
a<-rbind(a,b) 

     X1   X2   X3 
1 0.1097075 0.78584027 0.20925033 
2 0.6081752 0.39669748 0.65559913 
3 0.9912855 0.68462073 0.54741795 
4 0.8543848 0.53776889 0.43789447 
5 0.2579654 0.92188090 0.61292895 
6 0.6203840 0.73152279 0.82866311 
7 0.6643195 0.84953926 0.62192976 
8 0.5760624 0.30949900 0.11032929 
9 0.8888167 0.04530598 0.08089825 
10 0.8926815 0.61736284 0.19834310 
11 50.2300000 45.23000000 21.00000000 

にはどうすればいいので、私は唯一の最後の行に> 50 CVの列を取得するサブセットのですか？だから、私の新しいdata.frameはないだろう：

X1 
1 0.1097075 
2 0.6081752 
3 0.9912855 
4 0.8543848 
5 0.2579654 
6 0.6203840 
7 0.6643195 
8 0.5760624 
9 0.8888167 
10 0.8926815 
11 50.230000 

Answer 1

我々は

a[,a[nrow(a),]>50,drop=FALSE]