下面有一个虚拟数据框,我想计算站点分布之间的成对重叠百分比.基本上,site1和site2重叠的百分比是多少,site2与site3,site1与site3?
structure(list(site = c("site1", "site1", "site1", "site1", "site1",
"site1", "site1", "site1", "site1", "site1", "site2", "site2",
"site2", "site2", "site2", "site2", "site2", "site2", "site2",
"site2", "site3", "site3", "site3", "site3", "site3", "site3",
"site3", "site3", "site3", "site3"), total = c(0.4191, 0.2844,
0.2611, 0.2743, 0.2938, 0.3287, 0.2992, 0.4062, 0.2946, 0.2671,
0.3832, 0.3875, 0.3118, 0.4506, 0.4215, 0.4266, 0.3518, 0.4446,
0.4255, 0.3208, 0.2377, 0.2818, 0.2526, 0.2425, 0.2973, 0.4539,
0.357, 0.2865, 0.3624, 0.3026)), class = c("grouped_df", "tbl_df",
"tbl", "data.frame"), row.names = c(NA, -30L), groups = structure(list(
site = c("site1", "site2", "site3"), .rows = structure(list(
1:10, 11:20, 21:30), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), row.names = c(NA, -3L), class = c("tbl_df",
"tbl", "data.frame"), .drop = TRUE))
ggplot(aes(x = total, group = site, fill = site)) +
geom_density(adjust = 1.5, alpha = 0.3)