ggplot-具有自由尺度的geom_text facet_wrap

Question

我有以下数据：

thedata <-  data.frame(value= c(90,100,2,10)
                       ,category1 = c("A","A","B","B")
                       ,category2 = c("C","D","C","D"))

我正在寻找下图，这些图的标签恰好位于条形图的外部：

ggplot(thedata, aes(x=category2, y=value)) + 
  geom_bar(stat="identity", position="dodge", fill = "grey") +
  facet_wrap(~category1, scales = "free_x") +
  coord_flip() +
  geom_text(aes(label=value, hjust = -0.35))

使用此方法，标签不在图表范围内。如果使用expand_limits参数，它将覆盖scales = "free_x"参数。有什么建议可以说，在每个图表上增加10％的空间以容纳标签？

Answer 1

使用expand的{​​{1}}参数。有关详细信息，请参见scale_y_continuous。