这是我的可重复示例和代码：
set.seed(42)
n <- 1000
dat <- data.frame(Confidence=1:5,
Type = ("Your confidence"),
Correct=sample(0:1, n, replace=TRUE)
)
dat %>%
group_by(Confidence,Type) %>%
summarize(Accuracy = mean(Correct),
se = (sd(Correct, na.rm = TRUE)/sqrt(n())))%>%
ggplot(aes(x=Confidence, y= Accuracy, color = Type, group = Type)) +
geom_line() +
geom_errorbar(aes(ymin = Accuracy - se, ymax = Accuracy + se), color = "Black", size = .15, width = .3) +
geom_point(size = 2)+
scale_y_continuous(labels = scales::percent)+
labs(y= "YOU ARE RIGHT ___% OF THE TIME.", x = "WHEN YOU ARE …