如何在R语言中比较两个数据框？附示例代码

Alright, let's break down how to compare these two data frames a and b in R—since they have different structures (different column counts, mixed column types), we'll approach this based on what specific aspects you want to compare:

Since both data frames have a col1 column, this is the most straightforward starting point:

• Check value overlap
  Use set operations to find values that exist in both, or only in one data frame:

  # Values present in both a$col1 and b$col1
  common_col1_vals <- intersect(a$col1, b$col1)
  
  # Values unique to a$col1
  only_in_a_col1 <- setdiff(a$col1, b$col1)
  
  # Values unique to b$col1
  only_in_b_col1 <- setdiff(b$col1, a$col1)
  

• Compare value distributions
  Use frequency tables or visualizations to see how col1 values are spread across both data frames:

  # Side-by-side frequency tables
  col1_freq <- cbind(
    table_a = table(a$col1),
    table_b = table(b$col1)
  )
  print(col1_freq)
  
  # For visual comparison (requires ggplot2)
  library(ggplot2)
  ggplot() +
    geom_histogram(aes(x = col1), data = a, fill = "blue", alpha = 0.5, bins = 10) +
    geom_histogram(aes(x = col1), data = b, fill = "red", alpha = 0.5, bins = 10) +
    labs(title = "Distribution of col1 in a vs b")
  

Both have space-separated text columns—here's how to analyze their content:

• Compare vocabulary sets
  Split the strings into individual words, then find common/unique terms:

  # Split text into word lists
  a_words <- unique(unlist(strsplit(a$col2, "\\s+")))
  b_words <- unique(unlist(strsplit(b$col4, "\\s+")))
  
  # Words present in both columns
  common_words <- intersect(a_words, b_words)
  
  # Words only in a$col2
  only_a_words <- setdiff(a_words, b_words)
  

• Check substring matches
  See if any entries in a$col2 appear as substrings in b$col4 (or vice versa):

  # Check if each a$col2 entry exists in any b$col4 entry
  a_in_b_text <- sapply(a$col2, function(x) any(grepl(x, b$col4)))
  # Result is a logical vector marking matches
  

If you want to validate basic structural differences:

# Print full structure of both data frames
str(a)
str(b)

# Compare row/column counts
cat("Data frame a:", nrow(a), "rows,", ncol(a), "columns\n")
cat("Data frame b:", nrow(b), "rows,", ncol(b), "columns\n")

# Compare column data types
col_types <- cbind(
  a_col_classes = sapply(a, class),
  b_col_classes = sapply(b, class)
)
print(col_types)

If you want to focus on rows where col1 values match, merge the data frames and inspect differences:

# Merge on col1 (includes all rows from both frames)
merged_df <- merge(a, b, by = "col1", all = TRUE)

# Filter to only rows with matches in both data frames
matching_rows <- merged_df[!is.na(merged_df$col2) & !is.na(merged_df$col4), ]

# Now you can directly compare text columns for matching col1 values
matching_rows[, c("col1", "col2", "col4")]

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