如何在 ggplot 中创建气泡网格图？

I want to create bubble grid charts with ggplot. somthing like this:

我在网上找不到任何代码或示例。

Thanks

Using geom_point具有离散的 x 和 y 尺度将帮助您入门。这是一个包含一些快速玩具数据的示例：

library(tidyverse)

offenses <- c("robbery", "violence", "drugs")
actions <- c("formal", "informal", "considered")
counts <- sample(10:100, 9, replace = TRUE)

data <- expand.grid(offenses = offenses, actions = actions) %>% bind_cols(counts = counts)

ggplot(data,
       aes(x = str_to_title(offenses), 
           y = str_to_title(actions),
           colour = str_to_title(offenses),
           size = counts)) +
  geom_point() +
  geom_text(aes(label = counts), 
            colour = "white", 
            size = 3) +
  scale_x_discrete(position = "top") +
  scale_size_continuous(range = c(10, 30)) + # Adjust as required.
  scale_color_brewer(palette = "Set2") +
  labs(x = NULL, y = NULL) +
  theme(legend.position = "none",
        panel.background = element_blank(),
        panel.grid = element_blank(),
        axis.ticks = element_blank())

玩转range的参数scale_size_continouous根据需要为您的数据集获得合理大小的气泡。