filter out rows where two columns don't match in r

main.r
# Create a sample dataframe
df <- data.frame(name = c("John", "Mary", "David", "John"),
                 nickname = c("John", "Jane", "David", "Jim"))

# Filter out rows where 'name' and 'nickname' don't match
filtered_df <- df[df$name == df$nickname, ]

# Print the filtered dataframe
print(filtered_df)
305 chars
10 lines

main.r
# Load the dplyr library
library(dplyr)

# Create a sample dataframe
df <- data.frame(name = c("John", "Mary", "David", "John"),
                 nickname = c("John", "Jane", "David", "Jim"))

# Filter out rows where 'name' and 'nickname' don't match
filtered_df <- df %>% 
  filter(name == nickname)

# Print the filtered dataframe
print(filtered_df)
352 chars
14 lines