如何从R中两个不同的表中获取基于info的比例表

install.packages("dplyr")
install.packages("tidyverse")
library(dplyr)
library(tidyverse)

table1 <- read.csv("table1.csv")  # 从CSV文件导入表1
table2 <- read.csv("table2.csv")  # 从CSV文件导入表2

colnames(table1)
colnames(table2)

merged_table <- inner_join(table1, table2, by = "info")  # 内连接两个表，基于info列
proportion_table <- merged_table %>%
  group_by(info) %>%
  summarise(proportion = n() / nrow(merged_table))  # 计算比例表

print(proportion_table)