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

问题描述

我想用ggplot创建气泡网格图.像这样的东西:

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

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

I couldnt find any code or exampe online.

谢谢

推荐答案

使用具有离散x和y比例的 geom_point 可以帮助您入门.这是一个包含一些快速玩具数据的示例:

Using geom_point with discrete x and y scales will get you started. Here's an example with some quick toy data:

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())

根据需要使用 scale_size_continouous 的 range 参数来获得适合您数据集大小的气泡.

Play around with the range parameter of scale_size_continouous as needed to get bubbles of a reasonable size for your data set.

这篇关于如何在ggplot中创建气泡网格图?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！