r - 如何从 geom_tile 制作 donut chart

Question

我想根据分类数据制作一个简单的圆形 donut 注释图。所以，我先做一个简单的geom_tile绘图，然后添加 coord_polar()功能。但是，我似乎无法控制ylim来制作 donut chart ，因为它会产生以下错误:

Error: Discrete value supplied to continuous scale.

现在我被这个数字困住了:

重现情节，并帮助我:

examp = data.frame(rep(c("A","B"),each=12),
               rep(c("C","D"),times=12),
               rep(c("E","F","G"),each=8),
               rep(c("E","H","G"),each=8),
               1:24)
colnames(examp) = c("col1", "col2", "col3","col4","person")
examp$person = paste0("per.",examp$person)
examp2 <- melt(examp, id.var = 'person')

ggplot(examp2, aes(x=person,y=variable)) +
  geom_tile(aes(fill = value), colour = "white")+ 
  scale_y_discrete(breaks=y_breaks, labels=y_labels) +
  coord_polar()+
  theme(panel.background=element_blank(),
        axis.title=element_blank(),
        panel.grid=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks=element_blank(),
        axis.text.y=element_text(size=5))

Answer 1

是否在scale_y_discrete()内指定扩展量为你工作？

ggplot(examp2, aes(x=person, y=variable)) +
  geom_tile(aes(fill = value), colour = "white")+ 
  scale_y_discrete(expand = expansion(mult = c(0.5, 0), add = 0)) + # change amount if needed
  coord_polar()+
  theme(panel.background=element_blank(),
        axis.title=element_blank(),
        panel.grid=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks=element_blank(),
        axis.text.y=element_text(size=5))

(我跳过了中断/标签，因为您实际上并没有在问题中定义它们。)