使用ggplot删除端点并更改特定主题中的网格

Question

我还没有找到针对ggplot的两个问题的解决方案：

1. 如何删除每个端点的连续性？查看蓝色图形的起点，从x轴到图形的起点有一条垂直的直线。与终点相同。我要删除这两条垂直线以及在x轴上平放的线。
2. 经济学人主题中的网格线是白色，但我希望它是黑色（这是《经济学人》所使用的）。我该如何更改？

代码：

ggplot(oDT) +
geom_density(aes(x = scaled, color = variable)) + theme_economist() +
scale_color_discrete(name = "", labels = c("Estimated", "Observed"))