如何使用 facet_grid 和文本位置更改直方图的颜色？

Posted 2023-02-16

【中文标题】如何使用 facet_grid 和文本位置更改直方图的颜色？

【英文标题】：How to change colour of histograms with facet_grid and the position of the text?

【发布时间】：2021-09-14 15:17:50

【问题描述】：

如何更改使用 facet_grid 制作的两个直方图的颜色？ 我想要绿色的“活动”直方图和红色的“失败”直方图。

另外，我怎样才能改变行文本的位置，以便让它更向下一点？

这是我的代码：

df %>%
  ggplot(aes(x = `Banks/turnover%Last avail. yr`)) +
  geom_histogram(
      bins = nclass.Sturges(`Banks/turnover%Last avail. yr`),colour = "black")+
  geom_vline(data = status_means, aes(xintercept = avg),  color="red", linetype="dashed")+
  geom_text(data = status_means , aes(x = avg, label = avg), y= Inf )+
  theme(legend.position="None")+
  facet_grid(~general_status)

【问题讨论】：

对于文本，您可能可以将vjust参数调整为1或更高以移动它。

【参考方案1】：

您需要在fill 参数中添加一个因子。在这里，我只使用active-failed，因为我不确定您的数据是如何区分的。

ggplot(df_all,
       aes(x = `Banks/turnover%Last avail. yr`, fill = as.factor(active-failed)))

然后，您可以添加一行来定义颜色：

scale_fill_manual(values = c("green", "red"))

正如@teunbrand 所说，您可以使用vjust 移动文本，使其不会被截断。

记得给good reproducible example，通过dput(head(df))提供一些数据会很有帮助。