x 轴上带有时间的华夫饼图

Question

我想在 R 的 x 轴上绘制一个华夫饼图 plot，类似于下面的这个。 有人可以帮忙吗？ 谢谢。

数据集在这里：

df <- data.frame(spec = c("Rehab", "Cardiology", "Endocrine", "Respiratory", "General Surgery"), 
                 start.month = c(11,11,7,3,1) )

Answer 1

也许是这样的？

library(ggplot2)

df2 <- do.call(rbind, lapply(seq(nrow(df)), function(i)
  data.frame(month = factor(month.abb[12:df$start.month[i]], levels = month.abb),
                            spec = df$spec[i])))
df2$spec <- factor(df2$spec, levels = names(rev(sort(table(df2$spec)))))

ggplot(df2, aes(month, spec, colour = spec)) + 
  geom_point(size = 8, shape = 15) +
  coord_cartesian(ylim = c(1, 9)) +
  labs(y = "Cumulative no. of specialties",
       x = "Months",
       colour = "Specialties") +
  scale_color_manual(values = c("#ffc000", "#ed7d31", "#5a9bd5",
                                "#70ad46", "#44546b")) +
  theme_classic() +
  theme(axis.text.y.left = element_blank(), 
        axis.ticks.length.y = unit(0, "points"),
        legend.background = element_rect(colour = "black"),
        axis.text = element_text(size = 16),
        axis.title = element_text(size = 16))