有多个操作者的子集管[关闭]

Question

结束了。 这个问题是 不可复制或由错别字造成的。. 目前不接受回答。

---

想改进这个问题？ 请更新问题，使之成为 题外话 为Stack Overflow。

已关闭 7天前.

改进这个问题

我有一个数据框架，我想从这个数据框架中创建一个子集，但是有两个不同的操作符。

所以在步骤中。

1. 我想用低收入计数30%的数据集做子集。
2. 我想用for_Hincome_14_18 < 80%来对数据集进行子集。
3. 然后，我想用EITHER Education_count < 50%或Foreign count > 50%作为数据集的子集。

数据集看起来是这样的。

merged_zerototwen <- data.frame(
  foreign_Count_18 = c(20, 20, 40, 42, 20, 20),
  income_Count_18 = c(230, 397, 916, 1297, 223, 4343),
  for_Hincome_14_18 = c(206, 397, 482, 876, 123, 1343),
  Education_Count_18 = c(60, 100, 40, 92, 20, 20)
)

管道

ongoing_displacement__14to18 <- merged_zerototwen %>%
  subset(income_Count_18 < quantile(merged_zerototwen$income_Count_18, c(.30), na.rm=TRUE))  %>%
  subset(for_Hincome_14_18 < quantile(merged_zerototwen$for_Hincome_14_18, c(.80), na.rm=TRUE))  %>%
  subset(Education_Count_18 < quantile(merged_zerototwen$Education_Count_18, c(.50), na.rm=TRUE) | foreign_Count_18 > quantile(merged_zerototwen$foreign_Count_18, c(.50))) 

然而，我的数据集并没有按照我的要求去做 因为我的初始数据集中有500行，当我子集这个数据集时，我有80行。但是当我去掉这一行的时候。

subset(for_Hincome_14_18 < quantile(merged_zerototwen$for_Hincome_14_18, c(.80), na.rm=TRUE))

我的行数少了，60行？

Answer 1

移除 $merged_zerototwen 从每行工作。