Hello,

I am trying to produce a bar graph showing the task completion rate for 4 tasks. There are 5 people in my sample. My data shows that all participants completed task 1,2, and 4. No one completed task 3.

I am trying to make a bar graph showing the completion in percentage with the error bar (90% adjusted-wald binomial confidence interval). Does anyone know how to do this?

Below is my code for the bar graph. I just need the code for the error bar.

```
# data
data <- data.frame(
Task=c("4","3","2","1"),
Rate = c(1,0,1,1)
)
p <- ggplot(data) +
geom_bar( aes(x=Task, y=Rate), stat="identity", fill="salmon1", alpha=0.7) +
scale_y_continuous(labels = scales::percent_format())
mynamestheme <- theme(plot.title = element_text(face = "bold", size = (14)),
axis.title = element_text(size = (13), colour = "black"),
axis.text = element_text(colour = "black", size = (10)))
p + theme_classic() + mynamestheme + labs(title = "Task Completion Rate (Confidence at 90%)") + theme(plot.title = element_text(hjust = 0.5)) + labs(y="Task Completion Rate", x = "Task ")
```