Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/75.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 基于行值的子集列_R_Subset - Fatal编程技术网

R 基于行值的子集列

R 基于行值的子集列,r,subset,R,Subset,这可能是一个简单的问题,但我还没有找到任何答案。假设您有一个数据框架,其中有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.

这可能是一个简单的问题,但我还没有找到任何答案。假设您有一个数据框架,其中有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
我们能做到

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

A-A,不要偷看数据是如何生成的!:)
a[,a[nrow(a),]>50,drop=FALSE]