如何在R中高亮显示来自两个独立数据帧的公共行？

# 示例数据帧
df1 <- data.frame(
  ID = c(1, 2, 3, 4),
  Name = c("Alice", "Bob", "Charlie", "David"),
  Age = c(24, 27, 22, 30)
)

df2 <- data.frame(
  ID = c(3, 4, 5, 6),
  Name = c("Charlie", "David", "Eva", "Frank"),
  Age = c(22, 30, 25, 33)
)

# 找到公共行
common_rows <- merge(df1, df2, by = c("ID", "Name", "Age"))

# 高亮显示公共行
library(dplyr)
library(ggplot2)

# 将公共行标记为TRUE，其余为FALSE
df1$is_common <- df1$ID %in% common_rows$ID
df2$is_common <- df2$ID %in% common_rows$ID

# 使用ggplot2进行可视化
p1 <- ggplot(df1, aes(x = ID, y = Age, color = is_common)) +
  geom_point(size = 3) +
  scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +
  labs(title = "DataFrame 1")

p2 <- ggplot(df2, aes(x = ID, y = Age, color = is_common)) +
  geom_point(size = 3) +
  scale_color_manual(values = c("TRUE" = "red", "FALSE" = "black")) +
  labs(title = "DataFrame 2")

# 显示图形
print(p1)
print(p2)