r - 更改填充颜色方向

Question

在这种类型的绘图中，有没有办法将填充颜色的方向从外更改为内(中心)？

这是我的代码:

dat <- structure(list(
    Category = structure(1:15,
      .Label = c("ID1", "ID2", "ID3", "ID4", "ID5", "ID6", "ID7", "ID8", "ID9", "ID10", 
         "ID11", "ID12", "ID13", "ID14", "ID15"), class = "factor"),
    Percentage = c(0.8, 0.32, 0.15, 0.6, 0.4, 0.5, 0.3, 0.7, 1, 0.8, 0.3, 0.9, 0, 0.2, 0.46)),
  .Names = c("Category", "Percentage"), row.names = c(NA, 15L), class = "data.frame")

ggplot(data = dat) +
  geom_col(aes(x = Category, fill = Category, y = Percentage), width = 1) +
  geom_hline(yintercept = 1, color = "darkgrey", size = 1) + #ponto de partida
  geom_segment(aes(x = 1.5, xend = 4.5, y = .75, yend = .75), color = "darkgrey", size = 1) +#2017
  geom_segment(aes(x = 5.5, xend = 15.5, y = .75, yend = .75), color = "darkgrey", size = 1) +#2017
  geom_segment(aes(x = 1.5, xend = 15.5, y = .5, yend = .5), color = "darkgrey", size = 1) +#2018
  geom_segment(aes(x = .5, xend = 4.5, y = .25, yend = .25), color = "darkgrey", size = 1) +#2019
  geom_segment(aes(x = 5.5, xend = 15.5, y = .25, yend = .25), color = "darkgrey", size = 1) +#2019
  geom_vline(xintercept = seq(.5, 15.5, by = 1), color = "darkgrey", size = 1) +
  coord_polar() +
  theme_minimal() +
  labs(x = NULL, y = NULL) +
  theme(axis.text.y = element_blank(),
        legend.position = "none",
        panel.grid = element_blank())

Answer 1

您只需添加 scale_y_reverse() 即可让 y 值从外侧开始。

顺便说一句，图表很漂亮，感谢您提供可重现的示例!

ggplot(data = dat) +
  geom_col(aes(x = Category, fill = Category, y = Percentage), width = 1) +
  geom_hline(yintercept = 1, color = "darkgrey", size = 1) + #ponto de partida
  geom_segment(aes(x = 1.5, xend = 4.5, y = .75, yend = .75), color = "darkgrey", size = 1) +#2017
  geom_segment(aes(x = 5.5, xend = 15.5, y = .75, yend = .75), color = "darkgrey", size = 1) +#2017
  geom_segment(aes(x = 1.5, xend = 15.5, y = .5, yend = .5), color = "darkgrey", size = 1) +#2018
  geom_segment(aes(x = .5, xend = 4.5, y = .25, yend = .25), color = "darkgrey", size = 1) +#2019
  geom_segment(aes(x = 5.5, xend = 15.5, y = .25, yend = .25), color = "darkgrey", size = 1) +#2019
  geom_vline(xintercept = seq(.5, 15.5, by = 1), color = "darkgrey", size = 1) +
  scale_y_reverse()+
  coord_polar() +
  theme_minimal() +
  labs(x = NULL, y = NULL) +
  theme(axis.text.y = element_blank(),
        legend.position = "none",
        panel.grid = element_blank())

此外，以高分辨率呈现:

require(Cairo)
ggsave("/path/", height=10,width=10, dpi=300, type="cairo-png")
# change height/width/dpi as necessary