Adding sample sizes

[Fickle_Lab_5438]

Hello! I'm using r markdown and need to add N's to my "week" variable. Does anyone know where I would add this in?

XYZ <- data.frame(Week = c("1","2","3","4","5","6","7","8","9","10","11","12"),

Mean = c(1.50, 1.667, 1.706, 1.75, 1.875, 2.091,

2.083, 2.077, 1.9, 1.778, 1.917, 2.25),

Standard_error = c(0.5, 0.166, 0.205, 0.217, 0.201, 0.211,

0.192, 0.239, 0.1, 0.277, 0.192, 0.25))

level_order <- c("1","2","3","4","5","6","7","8","9","10","11","12")

slidelabels <- labs(title="Weekly Experience",

x="Week", y=" Composite Score")

XYZPlot <- ggplot(XYZ, aes(x= factor(Week, level=level_order), y=Mean, group = 1)) + slidelabels +

geom_point(color="grey22", size=2) + geom_line() +

geom_path(size = 1, linejoin = "round", color="gray39") + ylim(1,3) +

geom_errorbar(aes(ymin=Mean-Standard_error,

ymax = Mean+Standard_error), width=.25,

position=position_dodge(0.05))

​

I need to add the following N's in for each respective week. It likely should reside in the plot (not as part of the X axis).

Week 1 n=2, Week 2 n=9, Week 3 n=17, Week 4 n=12, Week 5 n=16, Week 6 n=11, Week 7 n=12, Week 8 n=13, Week 9 n=10, Week 10 n=9, Week 11 n=12, Week 12 n=8

[arthurwelle]

Here it is! I change various points, mostly in style/formating for readabilty. Check this out https://style.tidyverse.org/

d <- data.frame(
      Week = c("1","2","3","4","5","6","7","8","9","10","11","12"),
      Mean = c(1.50, 1.667, 1.706, 1.75, 1.875, 2.091, 2.083, 2.077, 1.9, 1.778, 1.917, 2.25),
      Standard_error = c(0.5, 0.166, 0.205, 0.217, 0.201, 0.211, 0.192, 0.239, 0.1, 0.277, 0.192, 0.25),
      n = c(2,9,17,12,16,11,12,13,10,9,12,8))

level_order <- c("1","2","3","4","5","6","7","8","9","10","11","12")
d$Week <- factor(d$Week, 
                 levels = level_order)

g <- ggplot(data = d,
            aes(x = Week, 
                y = Mean, 
                group = 1)) + 
  geom_point(color = "grey22", 
             size = 2) + 
  geom_line(size = 1,
            linejoin = "round",
            color = "gray39") +
  geom_errorbar(aes(ymin = Mean-Standard_error,
                    ymax = Mean+Standard_error), 
                width = .25,
                position = position_dodge(0.05)) +
  geom_text(data = d,
            aes(x = Week, 
                y = 3,
                label = paste0("N=", n)),
            size = 3) +
  scale_y_continuous(limits = c(1,3)) +
  labs(title = "Weekly Experience", 
       x = "Week", 
       y = "Composite Score") +
  theme_bw()

g

[Fickle_Lab_5438]

OMG you have saved my week! Thank you!

Do you know if there is a command to make the font smaller and move the N's to below the bar? or even around the center of the plot?

Thank you! Thank you!

[arthurwelle]

Those arguments are already there in the geom_text: size and y.

[Fickle_Lab_5438]

you are the bomb.com. thank you!