使用 ggplot2 重新创建圆形图

Question

我正在尝试使用 R 和 ggplot2 重新创建以下插图:

我创建了以下代码:

library(ggplot2)

df <- data.frame(names = c(
  "Enterprise Business Rules",
  "ApplicationBusiness Rules",
  "Interface Adapters",
  "Frameworks & Drivers"))

ggplot(df, aes(x = factor(1), fill = names)) +
  geom_bar(width = 1) +
  coord_polar() +
  xlab("") + ylab("") +
  theme_void() +
  theme(legend.title = element_blank())

但是输出不正确:

我不知道如何更改图层的顺序。也许我错过了关于 ggplot2 和 data.frame 的一些非常重要的东西。

Answer 1

默认情况下，名称按字母顺序排列。您可以通过将 names 作为一个因素并使用 levels 参数指定顺序来解决这个问题。另外，您可以使用 guide_legend 函数的 reverse = TRUE 参数反转图例中的名称顺序。

library(ggplot2)

names <- rev(c(
  "Enterprise Business Rules",
  "ApplicationBusiness Rules",
  "Interface Adapters",
  "Frameworks & Drivers"))
df <- data.frame(names = factor(names, levels = names))

ggplot(df, aes(x = factor(1), fill = names)) +
  geom_bar(width = 1) +
  coord_polar() +
  xlab("") + ylab("") +
  theme_void() +
  theme(legend.title = element_blank()) +
  guides(fill = guide_legend(reverse = TRUE))

^{由 reprex package 于 2019-04-04 创建(v0.2.1)}