更改文本和图表的颜色-r中的ggplot2

我想让文本和几何图形区域填充一种特定的颜色。 颜色代码为：#795fc6
我试过了，但它不起作用，填充=0.1的颜色根本不合适

我的数据集由4662个观测值的26个变量组成。 对于这个图，我只需要两个变量。分析日期（日期格式YYYY-MM-DD）y轴是分析期间每天发生的所有观察结果的总和

这是分析日期列的可复制示例：

df = c("2017-11-12", "2018-03-28", "2018-06-30", "2018-06-22", "2018-09-24" ,"2018-11-21")

这是我目前的计划：

ggplot(data = DatasetApp, aes(x=analysis_date, fill=0.1)) +
  geom_area(stat="bin",axis.text.x=col=c("#795fc6")) +
  labs(x="Date",y="Number of Observations", title = "Number of observations pre and post GDPR", col="#795fc6")+
  geom_vline(xintercept = as.numeric(DatasetApp$analysis_date[GDPR_date]), color=c("#5034c4"))+
  theme_minimal()

---

因此，简而言之，您希望绘图完全为紫色。
可以使用

aes

参数之外的

fill

参数更改区域填充。文本颜色在

主题

函数内设置，参数为

文本

（更改标题和轴标题的颜色）和

轴。文本

（更改轴标签）

数据

df <- data.frame(date = as.Date(c("2017-11-12", "2018-03-28",
                                  "2018-06-30", "2018-06-22", 
                                  "2018-09-24" ,"2018-11-21"), 
                                format = "%Y-%m-%d"))

绘图

---

欢迎来到SO！为了帮助我们帮助您，您能否通过共享您的数据样本使您的问题重现？看见只需在控制台中键入

dput（数据集的名称）

，然后将以

结构（..

开头的输出复制并粘贴到您的帖子中。如果您的数据集有很多观察结果，您可以对前二十行数据执行

dput（head（数据集的名称，20））

。

ggplot(data = df, aes(x=date)) +
  geom_area(stat="bin", fill = "#795fc6") +
  labs(x="Date",
       y="Number of Observations", 
       title = "Number of observations pre and post GDPR")+
  geom_vline(xintercept = df[3,1], 
             color="#5034c4")+
  theme_minimal() +
  theme(text = element_text(color = "#795fc6"),
        axis.text = element_text(color = "#795fc6"))