Add number of points in topright of each plot in ggplot

Question

Is it possible to add number of points (as text in top right) inside each plot in R.

Thanks

library(tidyverse)

a <- rnorm(100, mean = 0, sd = 1)
b