R ggplot气泡图局部气泡显示没有在单个图表中

Question

R/ggplot 专家您好！

R 和 ggplot 学习器在这里。

我正在制作一个场景，并在思考如何以最佳方式显示数据。 我需要你们的建议和指导。

R 可重现的 ggplot：

library(ggrepel)

# Create the data frame.
sales_data <- data.frame(
  emp_name <- c("Sam", "Dave", "John", "Harry", "Clark", "Kent", "Kenneth", "Richard", "Clement", "Toby"), 
  month <- as.factor(c("Jan", "Feb", "Mar", "Jan", "Feb", "Mar", "Jan", "Feb", "Mar", "Jan")),
  dept_name <- as.factor(c("Production", "Services", "Support", "Support", "Services", "Production", "Production", "Support", "Support", "Support")), 
  revenue <- c(100, 200, 300, 400, 500, 600, 500, 400, 300, 200)
)

sales_data$month <- factor(sales_data$month, levels = c("Jan", "Feb", "Mar"))

categorical_bubble_chart <-  ggplot(sales_data, aes(x= month, y = dept_name, size = revenue, fill = revenue, label = revenue)) +
  geom_point(shape = 21, show.legend = FALSE) 

categorical_bubble_chart

输出图是：

到目前为止还不错！ 在当前场景中以最佳方式表示数据。这是它应该是什么样子。

我很难理解以下几点：

1. 如何在网格线之间显示月份类别（“Jan”、“Feb”、“Mar”）。部门也是如此。这样我就可以为每个组合制作一个类似网格的区域。

2. 现在，所有气泡都相互重叠。我想以不重叠的方式放置气泡。为此，我正在考虑在我的数据框中再添加一列并随机分配一个值，以便将其用于在网格区域内绘制它。但是我发现很难理解，当我的 x/y 已经是 month 和 dept_name 时，我可以提供什么随机值来使每个气泡彼此不同？

自过去 5-6 小时以来，我一直在考虑它的解决方案，但找不到解决方案。 任何方向或建议都将受到高度赞赏和未来读者的学习。

Answer 1

您正在寻找这样的东西吗？我在你的数据中找不到每个方面的气泡位置，所以我拿了收入。

require(ggplot2)
# Create the data frame.
sales_data <- data.frame(
  emp_name = c("Sam", "Dave", "John", "Harry", "Clark", "Kent", "Kenneth", "Richard", "Clement", "Toby"), 
  month = as.factor(c("Jan", "Feb", "Mar", "Jan", "Feb", "Mar", "Jan", "Feb", "Mar", "Jan")),
  dept_name = as.factor(c("Production", "Services", "Support", "Support", "Services", "Production", "Production", "Support", "Support", "Support")), 
  revenue = c(100, 200, 300, 400, 500, 600, 500, 400, 300, 200)
)

sales_data$month <- factor(sales_data$month, levels = c("Jan", "Feb", "Mar"))

categorical_bubble_chart <-  ggplot(sales_data, aes(x= revenue, y = revenue, size = revenue, fill = revenue, label = revenue)) +
  geom_point(shape = 21, show.legend = FALSE) +
  facet_grid(dept_name~month)

categorical_bubble_chart

给出：

Answer 2

作为@Wietze314 方法的替代方案，构建了“快速而肮脏”的单一图表：

ggplot(data = sales_data, aes(x = month, y = dept_name)) +
  geom_tile(data = expand.grid(sales_data$month, sales_data$dept_name), 
            aes(x = Var1, y = Var2), fill = NA, col = 'gray50', lty = 2) +
  geom_point(aes(size = revenue, col = revenue), 
             shape = 16, position = position_jitter(seed = 0), show.legend = F) +
  geom_text(aes(label = revenue), vjust = 1.6, position = position_jitter(seed = 0)) +
  theme_bw() +
  theme(
    axis.title = element_blank(),
    axis.ticks = element_blank(),
    plot.background = element_blank(), 
    axis.line = element_blank(), 
    panel.border = element_blank(), 
    panel.grid = element_blank()
    )