我正在尝试创建一个线性模型的散点图。我已经成功地使用ggPredict和plot创建了这个图，但是无论我输入什么来改变它，轴都是浅灰色的（几乎不可见）：

self_acc2 <- ggpredict(model1, "mean.self")
plot(self_acc2)
p.model7 <- plot(self_acc2)
self_acc <- p.model7 +
  geom_point(data = dat_excluded, aes(x = mean.self, y = mean.acc),
             alpha = 0.5, colour = "blue", shape = "circle") +
  geom_line(size = 1) + 
  xlim(0, 9) +
  ylim(0, 1) +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor= element_blank(),
    panel.background = element_blank(),
    axis.line = element_line(colour = "black")) +
  xlab("Self-Rated Accuracy") +
  ylab("Mean accuracy") +
  ggtitle("Relationship Between Self-Rated Accuracy and Actual Accuracy of Health Understanding")
self_acc

我使用了：

theme(axis.line = element_line(colour = "black"))

但这并不影响颜色
我也试过：

plot(self_acc, colors="bw")

但这并没有改变什么。
我还需要把轴刻度线和没有任何工作，无论是。
（我使用R才几个月，如果这是最基本的，对不起!我也不知道如何正确地提出这个问题，所以我希望这是可以的）