如何在一条水平线上的R中创建气泡图时间轴

Question

我想在R中创建一个气泡图表，其中每个气泡代表一次大规模射击：伤亡Killed和伤亡Injured如下所示：

基本上，我想在一个水平线上使用ggplot2气泡图，geom_point。如果没有y轴，则点的大小代表值（Killed和Injured）。

为了重现性，您可以在a shared google spreadsheet找到我在美国（2017年）的大规模枪击数据集。 （请注意，拉斯维加斯的可怕大规模射击是为了渐进的点数目的而被遗漏的，我将在稍后添加）。

我创建了以下情节，但如上所述，我希望在一条水平线上拥有所有的点（被杀和受伤）。

  data_per_date %>%
  filter(Incident.Date != "2017-10-01") %>% # Las Vegas shooting is left out for size purposes.
  ggplot(aes(x = Incident.Date, y = Killed)) +
  geom_point(aes(size = Injured),
             shape = 21,
             colour = "#FF6F00") + # Should be the orange transparant circles 
  geom_point(aes(size = Killed),
             alpha = 0.7,
             colour = "#B71C1C") # The red bubbles

• Ps 我知道这要问的很多，但我找不到像R这样的时间表。你聪明的人可能会有一些想法解决这个问题。
• 的 P.S。 2 我可以在像Skech或Illustrator这样的矢量图形工具中对齐点，但是想知道如何在R中执行此操作。