如何在R中重叠两个图表？

Question

我有以下数据框，我用它来使用下面给出的代码创建图表 -

数据 -

```structure(list(percents = c(52, 40, 34, 55, 48, 38, 17), label = c("Type 1", 
"Type 2", "Type 3", "Type 4", "Type 5", "Type 6", "Type 7")), class = "data.frame", row.names = c(NA, 
-7L))```

2018年图代码-

```df %>% mutate(r = sqrt(percents), x = r + cumsum(lag(2 * r, default = 0))) %>%
  ggplot() + 
  geom_circle(aes(x0 = x, r = r, y0 = r), size = 3, color = "gray") +
  geom_text(aes(x = x, y = r, label = paste0(percents, "%"), size = percents),
            fontface = "bold", color = "#643291") +
  geom_text(aes(x = x, y = 20, label = label), vjust = 0,
            fontface = "bold", color = "gray20", size = 3) +
  geom_segment(aes(x = x, xend = x, y = r + 3, yend = 18),
               color = "#643291", size = 2) +
  coord_equal() +
  scale_y_continuous(limits =c(-5, 25)) +
  scale_size_continuous(range = c(4, 8)) +
  theme_void() +
  theme(legend.position = "none") +
  labs(title ='2018')```


Then I have the following data for 2018 group B -

```structure(list(percents = c(48, 60, 66, 45, 52, 62, 83), label = c("Type 1", 
"Type 2", "Type 3", "Type 4", "Type 5", "Type 6", "Type 7")), class = "data.frame", row.names = c(NA, 
-7L))```

我使用与上面类似的代码（但不同的颜色来创建另一个图表）

 ```df %>% mutate(r = sqrt(percents), x = r + cumsum(lag(2 * r, default = 0))) %>%
  ggplot() + 
  geom_circle(aes(x0 = x, r = r, y0 = r), size = 3, color = "black") +
  geom_text(aes(x = x, y = r, label = paste0(percents, "%"), size = percents),
            fontface = "bold", color = "#643291") +
  geom_text(aes(x = x, y = 20, label = label), vjust = 0,
            fontface = "bold", color = "gray20", size = 3) +
  geom_segment(aes(x = x, xend = x, y = r + 3, yend = 18),
               color = "#643291", size = 2) +
  coord_equal() +
  scale_y_continuous(limits =c(-5, 25)) +
  scale_size_continuous(range = c(4, 8)) +
  theme_void() +
  theme(legend.position = "none") +
  labs(title ='2018')```

我的问题是，有没有一种方法可以重叠这两个图表，以像我现在所做的那样将两个线性圆圈集一起显示与并排显示？

谢谢！

Answer 1

我认为这可能会让你接近你正在寻找的东西，但我不确定它是否是一个很好的可视化。

a <- 
  structure(
    list(
      percents = c(52, 40, 34, 55, 48, 38, 17), 
      label = c("Type 1", "Type 2", "Type 3", "Type 4", "Type 5", "Type 6", "Type 7")
    ), 
    class = "data.frame", 
    row.names = c(NA, -7L)
  )

b <- 
  structure(
    list(
      percents = c(48, 60, 66, 45, 52, 62, 83), 
      label = c("Type 1", "Type 2", "Type 3", "Type 4", "Type 5", "Type 6", "Type 7")
    ), 
    class = "data.frame", 
    row.names = c(NA, -7L)
  )

df <- 
  bind_rows(a, b, .id = "source") %>% 
  group_by(label) %>% 
  mutate(
    r = sqrt(percents), 
    max_r = max(r) # get the bigger circle of the pair
  ) %>% 
  group_by(source) %>% 
  mutate(
    x = max_r + cumsum(dplyr::lag(2 * max_r, default = 0)))
  )

ggplot(df) +
  ggforce::geom_circle(
    aes(
      x0 = x, 
      r = r, 
      y0 = 0, 
      color = source
    ),
    size = 1
  ) + 
  geom_text(
    data = filter(df, source == 1), 
    aes(
      x = x, 
      y = 2.5, 
      label = str_c(percents, "%"), 
      color = source
    ), 
    show.legend = FALSE
  ) +
  geom_text(
    data = filter(df, source == 2), 
    aes(
      x = x, 
      y = -2.5, 
      label = str_c(percents, "%"), 
      color = source
    ), 
    show.legend = FALSE
  ) +
  geom_text(
    aes(
      x = x, 
      y = -15, 
      label = label
    )
  ) + 
  labs(color = NULL) +
  coord_equal(clip = "off") + # so "Type" labels aren't clipped
  theme_void()