플롯 트와의 이항 신뢰 구간 플롯

Question

플롯에 이항 신뢰 구간을 추가해야합니다.

여기 내 단계는 다음과 같습니다

library(binom) 
library(plotrix) 
x <- c(1:6) 
y <- c(68, 69, 70, 75, 75, 87) 

CI <- binom.confint(y, 265, conf.level = 0.95, methods = "exact") 
plot(x, y) 
plotCI(x, y, ui = CI$upper, li = CI$lower, add = TRUE) 

는 내가 제대로 다했지만 내 출력 플롯를 잘하지 않는 것 같아요 :

당신이 어떤 제안이 있습니까?

Answer 1

binom.confint 반환 신뢰 구간, (당신이 그것을 인쇄하여 CI 개체를 검사하려는 경우 이 사실을 눈치 챘을 것입니다.) (이 동시에 점과 오차 막대를 플롯하는 당신이 음모를 꾸미고 문을 결합한 제품입니다.)

plotCI(x,y,ui=CI$upper*CI$n,li=CI$lower*CI$n) 

을 시도

은 또한 당신이 비율과 CI를 그릴 수 :

plotCI(x,y/CI$n,ui=CI$upper,li=CI$lower) 

Answer 2

ggplot2를 사용하는 옵션을 고려 했습니까?
geom_smooth은 선형 모델 ("lm")의 예측에 대한 95 % 신뢰도 간격을 제공합니다.

data<-data.frame(y=c(20.7, 18, 21.4, 15.3, 27.3, 20),x=c(1:6)) 
library(ggplot2) 
g<-ggplot(data,aes(x,y)) 
g+geom_point()+geom_smooth(method="lm") 

출력은 다음과 같습니다하지 총 숫자에 비율에