对比R中的数据

# 创建示例数据框
df1 <- data.frame(
  ID = c(1, 2, 3),
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(25, 30, 35)
)

df2 <- data.frame(
  ID = c(1, 2, 4),
  Name = c("Alice", "Bob", "David"),
  Age = c(25, 31, 40)
)

# 对比两个数据框
comparison <- function(df1, df2) {
  # 找出存在于df1但不在df2中的行
  only_in_df1 <- setdiff(rownames(df1), rownames(df2))
  
  # 找出存在于df2但不在df1中的行
  only_in_df2 <- setdiff(rownames(df2), rownames(df1))
  
  # 找出两个数据框中相同行的差异
  common_rows <- intersect(rownames(df1), rownames(df2))
  diff_rows <- data.frame()
  for (row in common_rows) {
    if (!all(df1[row,] == df2[row,])) {
      diff_rows <- rbind(diff_rows, row)
    }
  }
  
  return(list(
    only_in_df1 = only_in_df1,
    only_in_df2 = only_in_df2,
    diff_rows = diff_rows
  ))
}

result <- comparison(df1, df2)
print(result)