R 情节美的变化

我不熟悉R中的图形。我正在尝试构建一个森林图来比较优势比和CI。然而，我从一篇stckoverflow文章中得到的代码似乎比我需要的更美观。下面是数据、代码和图像的示例。我试图删除所有的颜色美学，只需要白色背景，黑色线条和不同的黑色形状的优势点。我还可以把未调整的贫血放在第一位，而不是给定图像中的默认贫血

资料

滞后污染或lcl ucl
其他落后种姓未调整贫血1.32 0.9 1.93
其他落后种姓调整贫血1.25 0.84 1.87
附表种姓未调整贫血1.66 1.09 2.51
附表种姓调整贫血1.4 0.9 2.19
附表部落未调整贫血2.3 1.34 3.93
附表部落调整贫血1.93 1.08 3.44
一般性未调整贫血1
一般调整后贫血1

R码

ggplot（dat，aes（x=inclute，y=or，ymin=lcl，ymax=ucl））+geom_点范围（aes（颜色=因子（滞后）），位置=位置减淡（宽度=0.3））+
ylab（“比值比和95%置信区间”）+geom_hline（aes（yintercept=1））+scale_color_离散（name=”“）+xlab（“”）

提前谢谢

试试这个

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'))

试试这个

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'))

---

像这样的<代码>ggplot（dat，aes（x=因子（污染，水平=c（“未调整贫血”，“调整贫血”）），y=或，ymin=lcl，ymax=ucl））+geom_点范围（aes（形状=滞后），位置=位置减淡（宽度=0.3））+ylab（“优势比和95%CI”）+geom_hline（aes（yintercept=1））+scale_颜色离散（名称=”）+xlab（“”）+theme_bw（）谢谢你。一切都按我所希望的那样进行了刚才有一个图例标题为“lag”，我不想，有没有办法删除图例标题？谢谢老板再次感谢。只需添加

主题（legend.title=element\u blank（））

谢谢老板。它成功了！！！像这样的<代码>ggplot（dat，aes（x=因子（污染，水平=c（“未调整贫血”，“调整贫血”）），y=或，ymin=lcl，ymax=ucl））+geom_点范围（aes（形状=滞后），位置=位置减淡（宽度=0.3））+ylab（“优势比和95%CI”）+geom_hline（aes（yintercept=1））+scale_颜色离散（名称=”）+xlab（“”）+theme_bw（）谢谢你。一切都按我所希望的那样进行了刚才有一个图例标题为“lag”，我不想，有没有办法删除图例标题？谢谢老板再次感谢。只需添加

主题（legend.title=element\u blank（））

谢谢老板。它成功了！！！