如何使用饼图来使用facet_wrap？

Question

Seasons Frequency1  Frequency2
DJF      497        500
JJA      999        700
MAM      695        2000
SON      245        1000

您好，我正在使用此数据框制作多个饼图（一个使用Frequency1，另一个使用Frequency2）。我知道如何使用melt和facet_wrap(~id)。但这里我必须汇集数据（不知道如何表达）。我不想按季节进行 Facet_wrap。

我怎样才能以可以并排制作两个饼图的方式融合数据。我只使用Frequency1 制作了一个。

谢谢！

Answer 1

这是一种使用 生成带有分面的饼图的方法ggplot2。

数据：

dat <- read.table(text = "Seasons Frequency1  Frequency2
DJF      497        500
JJA      999        700
MAM      695        2000
SON      245        1000", header = TRUE)

将数据转换为长格式：

library(reshape2) 
dat2 <- melt(dat)

创建情节：

library(ggplot2)
ggplot(dat2, aes(x = "", y = value, fill = Seasons)) + 
  geom_bar(stat = "identity", width = 1, position = position_fill()) +
  coord_polar(theta = "y") + 
  facet_wrap( ~ variable)