Я хочу сделать метку частоты над полосой на графике, а также пометить первую полосу как Type 1 и 2-ю полосу как Type 2, как мне это сделать?
s <- rbinom(50,1,0.7)+1
barplot(c(length(s[s==1]), length(s[s==2])), main = "S observed", ylab = "Frequency",
ylim = c(0, 40), xlab = "Type", col = "red")