改变ggplot中的美学

Question

我是R中图表的新手。我正在尝试构建一个森林图来比较优势比和CI。然而，我从stckoverflow帖子得到的代码似乎比我需要的更美观。以下是数据，代码和图像的示例。我试图去除所有的颜色美学，只需要白色背景，黑色线条和不同的黑色形状的赔率点。我也可以先调整未调整的贫血症，而不是给定图像中的默认贫血症。

数据

lag pollute or  lcl ucl
Other Backward Caste    Unadjusted anaemia  1.32    0.9 1.93
Other Backward Caste    Adjusted anaemia    1.25    0.84    1.87
Schedule Caste  Unadjusted anaemia  1.66    1.09    2.51
Schedule Caste  Adjusted anaemia    1.4 0.9 2.19
Schedule Tribe  Unadjusted anaemia  2.3 1.34    3.93
Schedule Tribe  Adjusted anaemia    1.93    1.08    3.44
General Unadjusted anaemia  1   1   1
General Adjusted anaemia    1   1   1

R代码

ggplot(dat, aes(x = pollute, y = or, ymin = lcl, ymax = ucl)) + geom_pointrange(aes(color=factor(lag)), position=position_dodge(width=0.3)) + 
  ylab("Odds ratio & 95% CI") + geom_hline(aes(yintercept = 1)) + scale_color_discrete(name = "") + xlab("")

先谢谢!!

Answer 1

试试这个，

library(ggplot2)
ggplot(dat, aes(x = pollute, y = or, ymin = lcl, ymax = ucl)) + 
  geom_pointrange(aes(shape = lag), position=position_dodge(width=0.3)) +  
  ylab("Odds ratio & 95% CI") + 
  geom_hline(aes(yintercept = 1)) +
  scale_color_discrete(name = "") +  xlab("") +
  theme(panel.background = element_rect(fill = 'white'))