응답시간 그림 그리기(WITH ERROR BAR)

setwd("C:\\Users\\user\\Desktop")
rs <- read.csv("ttt.csv")
head(rs)

##   intvwerID  estimate      se      ci_l      ci_u     t      p
## 1     24568 -112.8570 15.4543 -143.1504  -82.5628  -7.3 <.0001
## 2     24912  -30.6493 18.6376  -67.1830    5.8845 -1.64 0.1001
## 3     25394 -114.6750 16.6213 -147.2560  -82.0934  -6.9 <.0001
## 4     27009 -155.5580 15.3953 -185.7356 -125.3796 -10.1 <.0001
## 5     27358    7.2007 16.7773  -25.6864   40.0878  0.43 0.6678
## 6     27790  -36.0008 18.9530  -73.1527    1.1512  -1.9 0.0575

library(ggplot2)

ggplot(rs, aes(x=intvwerID, y=estimate)) + geom_point(size=3) + 
        geom_errorbar(aes(ymin=ci_l, ymax=ci_u), width=150, color="grey50", alpha=.5) +
        geom_hline(yintercept=0, color="red")

ggplot(rs, aes(x=as.factor(intvwerID), y=estimate)) + geom_point(size=3)+ 
        geom_errorbar(aes(ymin=ci_l, ymax=ci_u), width=1, color="grey50", alpha=.75) +
        geom_hline(yintercept=0, color="red") +
        theme(axis.text.x = element_text(angle=90))