sample_data <-
data.frame
(study=
c
(
'G1'
,
'G2'
,
'G3'
,
'G4'
,
'G5'
),
index=1:5,
result=
c
(-.23, -.45, -.16, .6, .65),
error_lower=
c
(-.35, -.59, -.37, -.12, .24),
error_upper=
c
(-.17, -.25, -.03, .82, .91))
library
(ggplot2)
ggplot
(data=sample_data,
aes
(y=index, x=result,
xmin=error_lower,
xmax=error_upper)) +
geom_errorbarh
(height=.1, color=
"green"
, lwd=1.2) +
geom_point
( color=
"red"
, pch= 9, size=3) +
scale_y_continuous
(labels=sample_data$study)+
labs
(title=
"Forest Plot"
)+
geom_vline
(xintercept=0, color=
'blue'
, linetype=
'dashed'
, alpha=.5)