我尝试使用以下数据创建热图:
研究干预结果Study_1 Monetary_Incentive Emission_ReductionStudy_2 Govermental_Change ……
这很痛苦 geom_count 。这是一种使用方式 geom_point :
geom_count
geom_point
library(data.table) dt0 <- as.data.table(input) dt <- dt0[, .(studies = paste0(Study, collapse=","), n = .N), by=c("Outcome","Intervention")] dt[, n:=as.factor(n)] gg <- ggplot(dt) + geom_point(aes(x = Outcome, y = Intervention, size = n, text = studies)) + scale_size_manual(name = "Nr studies", values = as.numeric(levels(dt$n))) # better legend ggplotly(gg)