如何基于列删除行值

我有一个大的data.frame，例如：如何基于列删除行值

> m <- matrix(c(3,6,2,5,3,3,2,5,4,3,5,3,6,3,6,7,5,8,2,5,5,4,9,2,2), nrow=5, ncol=5) 
> colnames(m) <- c("A", "B", "C", "D", "E") 
> rownames(m) <- c("a", "b", "c", "d", "e") 
> m 
    A B C D E 
a 3 3 5 7 5 
b 6 2 3 5 4 
c 2 5 6 8 9 
d 5 4 3 2 2 
e 3 3 6 5 2

我想删除所有的行，其中A和/或B柱比CD和更大的价值E列。所以在这种情况下，行B，d，E应当去掉，我应该得到这样的：

A B C D E 
a 3 3 5 7 5 
c 2 5 6 8 9

因为data.frame有超过一百万行不能由一个删除一个。谢谢

来源

2017-10-05 Ioannis

如果A，B的最小值大于C，D，E的最大值，你想删除它们吗？ –

我会建议使用'data.frame'而不是'matrix'对象和'subset'函数 –

使用子集与pmin()和pmax()一起保留所需的值。我不确定我是否完全理解你的标准（你说“CD和E”，但是因为你想扔掉第e行，我认为你的意思是C，D 或 E），但下面似乎做了什么你想：

> m[pmax(m[,"A"],m[,"B"])<=pmin(m[,"C"],m[,"D"],m[,"E"]),] 
    A B C D E 
a 3 3 5 7 5 
c 2 5 6 8 9

来源

2017-10-05 10:53:11

准确地说，我想删除A列和/或B列的最小值大于最大值的行C，D和E列。谢谢 – Ioannis

# creating the df 
m <- matrix(c(3,6,2,5,3,3,2,5,4,3,5,3,6,3,6,7,5,8,2,5,5,4,9,2,2), nrow=5, ncol=5) 
colnames(m) <- c("A", "B", "C", "D", "E") 
rownames(m) <- c("a", "b", "c", "d", "e") 

# initialize as data frame. 
m <- as.data.frame(m) 
df_n <- m 
for(i in 1:nrow(m)){ 
    #print(i) 
    #print(paste(max(m[,1:2][i,]), max(m[,3:5][i,]))) 
    if(max(m[,1:2][i,]) > (max(m[,3:4][i,])) || max(m[,1:2][i,]) > ((m[,5])[i])){ 
    #df_n <- m[-i,] 
    df_n[i,] <- NA 
    } 
} 
#df_n 
df_n <- df_n[complete.cases(df_n), ] 
print(df_n) 

Results 
> print(df_n) 
    A B C D E 
a 3 3 5 7 5 
c 2 5 6 8 9

来源

2017-10-05 13:27:08 ngamita

@loannis这玩过我，直到我意识到你想要或意味着C，D或E.请纠正你的问题。 – ngamita

下面是与apply另一种解决方案：

m[apply(m, 1, function(x) max(x[1], x[2]) < min(x[3], x[4], x[5])),]

结果：

A B C D E 
a 3 3 5 7 5 
c 2 5 6 8 9

我想你真正的意思是删除行，其中MAX（A，B）>分钟（C，d，E），转化为保持行，其中A和B的所有值较小比全部 C，D和E的值。

来源

2017-10-05 15:51:42 useR

如何基于列删除行值

回答

相关问题