创建圆形条形图

我正在尝试使用我的数据创建圆形条形图，但我什至无法组织数据框来做到这一点。我对来自 3 个不同年份（名为 Campana 的列）和来自一个省的 4 个地区（名为 zona 的列）的 121 个种子进行了分析。我想制作一个如图所示的图表，使用不同的区域（zonas）而不是字母 A-B-C-D，并使用堆叠条形图来显示每年真菌的发生率（频率）。每个真菌频率都在带有真菌名称的列中，例如 A.padwickii、Microdochium、Bipolaris 等。我不期望您完成所有工作，只是帮助我以正确的方式组织数据的第一步。

tibble::tribble(
     ~muestra_n, ~campana, ~zona, ~inc_pan, ~percent_gran_m_pan, ~peso_pan, ~percent_perdida_peso, ~severidad, ~phoma, ~microdochium, ~a_padwickii, ~bipolaris, ~curvularia, ~fusarium, ~exserohilum,
             16,        2,     2,       98,                14.6,      2.85,      9.90007401924501,        0.1,      0,            11,            0,          0,           0,         0,            0,
             18,        2,     2,     97.1,                 7.8,      1.34,      29.9991559044484,       0.44,     13,             0,            0,          0,           0,         0,            0,
             19,        2,     2,      100,                14.3,      1.35,    0.0288073746879383,       0.66,      0,            16,            0,          0,          18,         0,            0,
             20,        2,     1,      100,                 9.6,      1.49,      1.64930877284015,       0.09,      0,            12,            1,          2,          44,         0,            0,
             21,        2,     1,      100,                17.9,      3.04,      1.46085792877853,       0.56,      0,             9,            0,          0,           1,         0,            0,
             22,        2,     1,      100,                37.4,       2.1,      5.60829881602581,        0.6,     41,             8,            0,          0,           1,         0,            1
     )

没有足够的信息来确定，但希望这可以通过一些提示让您朝着正确的方向前进。根据我的经验，极坐标图往往需要根据其适合的位置（而不是任何特定标准）进行大量定制标签。当你制作它们时，这会让事情变得更加复杂。

library(tidyverse)
YOUR_DATA %>%

  # this step reshapes your data to a format more suited for ggplot2; each
  # fungi appearance is given its own row
  pivot_longer(phoma:last_col()) %>%

  # this sets up the main plot
  ggplot(aes(name, value)) +
  geom_col() +

  # these add the lines and text for zonas. If you have many of them, it 
  # might make sense to figure these out as a separate data frame and feed
  # these into lines like `geom_segment(data = SUMMARY) + geom_text(data = 
  # SUMMARY)`
  annotate("segment", x = c(0.5,2.5,4.5), xend = c(2.4,4.4,7), y = -10, yend = -10) +
  annotate("text", x = c(1.5,3.5,5.5), y = -20, label = LETTERS[1:3]) +

  # This adds space in the middle, changing it from a pie chart to a donut
  scale_y_continuous(limits = c(-100, NA)) +
  coord_polar() +   # converts into polar coordinates
  theme_void()      # gets rid of grid lines and axis labels