Here’s a simple way to calculate 95% confidence intervals around a mean value.

data %>%
  summarise(
    mean = mean(outcome),
    sd = sd(outcome),
    n = n(),
    error = qnorm(0.975) * sd / sqrt(n),
    lower_ci = mean - error,
    upper_ci = mean + error)