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

Question

如何更改用 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)

Answer 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))提供一些数据会很有帮助。

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

How to change colour of histograms with facet_grid and the position of the text?

r

ggplot2

facet-grid