面包裹堆叠条形图中的条形高度均匀

如何解决面包裹堆叠条形图中的条形高度均匀

我想让多面包裹的堆叠条形图的条形高度全部相等，每个类别的百分比投影在它们的中间。我就是想不通。

使用以下代码我得到了这个数字：

    ggplot(na.omit(plot_data),aes(x = cycle,y = percent,fill = response)) + 
  geom_col() + 
  facet_grid(~mut)+
  geom_text(aes(label=percent(percent,accuracy = 1)),position = position_stack(vjust = .5),size = 4,color = "white") +
  labs(x="",y="Percentage")+
  scale_y_continuous(labels = percent)+
  theme_bw()+
  #scale_fill_brewer(palette = "Accent")+
  scale_fill_jco()+
  ggtitle("Response by mutation status (%)")+
  theme(strip.text = element_text(size=18))+
  theme(axis.line = element_line(size=1,colour = "black"),panel.grid.major = element_line(colour = "#d3d3d3"),panel.grid.minor = element_blank(),panel.border = element_blank(),panel.background = element_blank()) +
  theme(plot.title = element_text(size = 18,family = "serif",face = "bold"),text=element_text(family="serif"),axis.text.x=element_text(colour="black",size = 12),axis.text.y=element_text(colour="black",size = 12))

我希望它就像这个数字一样，但显然保留了刻面包装：

这是我的数据：

tibble [60 x 6] (S3: tbl_df/tbl/data.frame)
 $ PID: num [1:60] 1 2 3 4 5 6 7 8 9 10 ...
 $ mut: chr [1:60] "PP" "PN" "PP" "n/a" ...
 $ C2 : chr [1:60] "n/a" "n/a" "n/a" "PR" ...
 $ C4 : chr [1:60] "MR" "SD" "n/a" "n/a" ...
 $ C8 : chr [1:60] "MR" "MR" "n/a" "n/a" ...
 $ BE : chr [1:60] "MR" "MR" "n/a" "PR" ...

非常感谢您的帮助！