在ggplot geom\u栏中显示第二个变量不同

我想将第二个变量(图例,输入或输出)的显示与第一个变量(x轴,原因)不同。因此,我希望它是透明的,但带有条纹图案,而不是填充类别外的蓝色。

此外,在灰色区域中,我确实希望显示绝对数字,而在现在的蓝色区域中,我希望显示百分比。

有人知道如何分别调整第二个变量级别的图形显示质量吗?

这是我的数据

library(ggplot2)
library(cowplot)
dataframe <- data.frame(status = c("In", "In", "In", "Out", "Out", "Out"),
                    category = c("Before", "Because of", "After", "Before", "Because of", "After"),
                    number = c(100000, 95000, 80000, 15000, 20000, 30000),
                    perc = c(0.9, 0.83, 0.76, 0.09, 0.16, 0.23))

bar <- ggplot(data = dataframe,
          aes(x = category,
              y = number,
              fill = status))

bar +
  geom_bar(stat = "identity",
       colour = "black",
       width = 1) +
 labs(x = "Reason") +
 labs(y = "Number") +
 labs(fill = "In or out") +
 scale_x_discrete(limits = c("Before", "Because of", "After")) +
 geom_text(aes(label=number), vjust = -2) +
 scale_fill_manual(values = c('light grey', '#0099FF')) +
 background_grid(major = "y", minor = "none")