R语言：如何利用指定航司列表批量移除数据框中的对应行？

Hey there! Let's fix this batch row removal issue for you—your earlier attempt likely didn't work because you were targeting row names instead of the actual airline name values in your first column. Here's a step-by-step solution:

Step 1: Extract your removal list as a character vector #

First, you need to pull the airline names from your a_name_remove table into a simple vector—this makes matching against your main dataset straightforward:

# Extract the airline names column into a usable vector
remove_vec <- a_name_remove$airline_name

Step 2: Remove matching rows (two reliable approaches) #

Assuming your original airlines data frame has an airline name column called airline_name (replace this with your actual column name if it's different), use one of these methods:

Method 1: Base R

Use logical indexing to keep only rows where the airline name is not in your removal list:

# Keep rows that don't match any name in remove_vec
airlines_clean <- airlines[!(airlines$airline_name %in% remove_vec), ]

Method 2: Tidyverse (dplyr)

If you prefer more readable syntax, use dplyr's filter() function:

# Load dplyr if you haven't already
library(dplyr)

# Filter out unwanted airlines
airlines_clean <- airlines %>% 
  filter(!airline_name %in% remove_vec)

Step 3: Verify the result #

Double-check that the rows were removed correctly with these quick checks:

# Number of rows removed (should align with your ~187 target, accounting for duplicates)
nrow(airlines) - nrow(airlines_clean)

# Count how many rows matched the removal list (sanity check)
sum(airlines$airline_name %in% remove_vec)

Pro Tip: Fix Case/Space Mismatches #

Airline names often have inconsistent capitalization or extra spaces (e.g., "United Airlines" vs "united airlines"). Standardize both lists before filtering to avoid missing matches:

# Convert both lists to lowercase and trim extra whitespace
remove_vec <- tolower(trimws(a_name_remove$airline_name))
airlines$airline_name <- tolower(trimws(airlines$airline_name))

# Run the filter again with standardized values
airlines_clean <- airlines %>% filter(!airline_name %in% remove_vec)

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