R语言数据框行删除需求：基于分组、列交集与变量条件

Got it, let's work through this problem with clear, actionable code using tidyverse tools you're likely already using (or can easily adopt).

Step-by-Step Explanation & Code #

First, make sure you have the dplyr package loaded (it’s part of the tidyverse suite):

library(dplyr)

Then, we’ll use group_by() to segment your data by region and sector, then apply a filter to remove rows that meet your deletion criteria:

# Apply grouping and filtering logic
filtered_data <- df %>%
  group_by(region, sector) %>%
  # Keep rows that DON'T match the deletion condition
  filter(!(x == 1 && length(intersect(region.id, sector.id)) == 0)) %>%
  # Optional: ungroup to avoid unexpected behavior in later operations
  ungroup()

Breakdown of the Logic #

• group_by(region, sector): This clusters your data into groups where each group shares the same region and sector values—exactly what you need to check the intersection per group.
• The filter() statement: We’re using a logical negation (!) to keep rows that don’t match your deletion rules. The deletion condition is a combination of two checks:
  1. The value in column x is 1 (x == 1)
  2. There’s no overlap between region.id and sector.id for the group (length(intersect(region.id, sector.id)) == 0)
• ungroup(): This resets the data to a non-grouped state, which is a good practice to avoid unexpected behavior in subsequent data operations.

Note on Data Types #

If region.id and sector.id are single values (not vectors/lists), this code still works perfectly—intersect() will return the value if they’re equal (length 1) or an empty vector (length 0) if they’re not, so the logic holds exactly as intended.

内容的提问来源于stack exchange，提问作者user113156