小编mar*_*rho的帖子

我将非常感谢任何帮助重新创建这个显示比例的“交叉表图”：

（来源：皮尤中心）

我想方法是使用具有适当形状的 geom_point ，但我真的无法比这更进一步

library(ggplot2)
df <- data.frame (col  = c("A","A","B","B"),
                  row = c("C", "D","C","D"),
                  val = c(4,10,29,31))

ggplot(df, aes(y = row, x = col)) + geom_point(size = df$val, shape = 15)

感谢您的指点。