data forest

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.5

## Registered S3 methods overwritten by 'tibble':
##   method     from  
##   format.tbl pillar
##   print.tbl  pillar

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

df$Predictor <- factor(df$Predictor , levels = rev(unique(df$Predictor )), ordered=TRUE)
df %>% 
  ggplot(aes(x = OR, y = Predictor, fill= Status))  +
  geom_errorbarh(aes(xmin = Lower, xmax = Upper, colour=Status ),  width=0.4, alpha=6, size=0.5) +
  geom_point(aes(colour = Status), size = 1 ) +
  geom_vline(aes(xintercept = 1), linetype = 3) +
  scale_x_log10()  +
  theme_bw()+xlab("Odds Ratios")+ ylab("")+scale_colour_manual(values=c("red", "blue"))+  theme(axis.text.y = element_text(colour=df$color),
        axis.ticks.y=element_blank())

## Warning: Ignoring unknown parameters: width

## Warning: Vectorized input to `element_text()` is not officially supported.
## Results may be unexpected or may change in future versions of ggplot2.

ggsave("4jan.png")

## Saving 7 x 5 in image