如何以更有效的方式编写代码：在R中删除多个条件非常复杂的行

62lalag4 于 2023-04-18 发布在其他

关注(0)|答案(2)|浏览(84)

下面是一个大型数据集的示例，我想从中删除地块（PARCELLE）1、3、4和8中编号大于3的样方（Qm）。

FIELD   SECTOR  PARCELLE    Qm  Total
North   A   1   1   2
North   A   1   2   3
North   A   1   3   0.5
North   A   1   4   0.5
North   A   1   5   1
North   A   1   6   0.5
North   B   2   1   10
North   B   2   2   3
North   B   2   3   4
North   B   2   4   2
North   B   2   5   7
North   B   2   6   25
North   C   3   1   0
North   C   3   2   0
North   C   3   3   2
North   C   3   4   5
North   C   3   5   0.5
North   C   3   6   1
North   D   4   1   0
North   D   4   2   0
North   D   4   3   0
North   D   4   4   0
North   D   4   5   0
North   D   4   6   85
North   E   5   1   0
North   E   5   2   5
North   E   5   3   0.5
North   E   5   4   0
North   E   5   5   0
North   E   5   6   0
North   F   6   1   0.5
North   F   6   2   0.5
North   F   6   3   0.5
North   F   6   4   0
North   F   6   5   0
North   F   6   6   0
North   G   7   1   0.5
North   G   7   2   0.5
North   G   7   3   2
North   G   7   4   2
North   G   7   5   0.5
North   G   7   6   0
North   H   8   1   0.5
North   H   8   2   1
North   H   8   3   60
North   H   8   4   0.5
North   H   8   5   0.5
North   H   8   6   1

我已经通过对每个包裹使用一条语句实现了这种操作。

New_Data <- Data_Frame[!(Data_Frame$PARCELLE == "1" & Data_Frame$Qm > 3), ]
New_Data <- New_Data[!(New_Data$PARCELLE == "3" & New_Data$Qm > 3), ]
New_Data <- New_Data[!(New_Data$PARCELLE == "4" & New_Data$Qm > 3), ]
New_Data <- New_Data[!(New_Data$PARCELLE == "8" & New_Data$Qm > 3), ]

我想压缩代码，但不知道如何在包裹编号上指定条件。我希望代码类似于以下内容：

New_Data <- Data_Frame[!(Data_Frame$PARCELLE == "1 & 3 & 4 & 8" & Data_Frame$Qm > 3), ]

来源：https://stackoverflow.com/questions/75998942/how-to-code-it-in-a-more-efficient-way-delete-multiple-row-with-a-very-complex

2条答案

按热度按时间

bogh5gae1#

使用%in%运算符：

Data_Frame[!(Data_Frame$PARCELLE %in% c(1, 2, 3) & Data_Frame$Qm>3),]

您还可以使用以下内容：

subset(Data_Frame, !(PARCELLE %in% c(1, 2, 3) & Qm > 3))

这两种方法的不同之处仅在于它们如何处理NA，第一种方法返回NA，其中数据是NA，而第二种方法丢弃NA数据

赞(0）回复(0）举报 2023-04-18

yx2lnoni2#

这应该做到：

df %>% filter(!(PARCELLE %in% c(1, 3, 4, 8) & Qm > 3))

# FIELD SECTOR PARCELLE Qm Total
# 1  North      A        1  1   2.0
# 2  North      A        1  2   3.0
# 3  North      A        1  3   0.5
# 4  North      B        2  1  10.0
# 5  North      B        2  2   3.0
# 6  North      B        2  3   4.0
# 7  North      B        2  4   2.0
# 8  North      B        2  5   7.0
# 9  North      B        2  6  25.0
# 10 North      C        3  1   0.0
# 11 North      C        3  2   0.0
# 12 North      C        3  3   2.0
# 13 North      D        4  1   0.0
# 14 North      D        4  2   0.0
# 15 North      D        4  3   0.0
# 16 North      E        5  1   0.0
# 17 North      E        5  2   5.0
# 18 North      E        5  3   0.5
# 19 North      E        5  4   0.0
# 20 North      E        5  5   0.0
# 21 North      E        5  6   0.0
# 22 North      F        6  1   0.5
# 23 North      F        6  2   0.5
# 24 North      F        6  3   0.5
# 25 North      F        6  4   0.0
# 26 North      F        6  5   0.0
# 27 North      F        6  6   0.0
# 28 North      G        7  1   0.5
# 29 North      G        7  2   0.5
# 30 North      G        7  3   2.0
# 31 North      G        7  4   2.0
# 32 North      G        7  5   0.5
# 33 North      G        7  6   0.0
# 34 North      H        8  1   0.5
# 35 North      H        8  2   1.0
# 36 North      H        8  3  60.0

赞(0）回复(0）举报 2023-04-18

我来回答

如何以更有效的方式编写代码：在R中删除多个条件非常复杂的行

2条答案

相关问题

热门标签

最新问答