data <- c(2492, 2585, 2747, 2491, 2526, 2781, 3282, 2826, 2997, 3037, 2741, 2409)
names(data) <- c("Jan", "Feb", "Már", "Ápr", "Máj", "Jún", "Júl", "Aug", "Sze", "Okt", "Nov", "Dec")
x <- barplot(data, main="Az R-help levelezési lista forgalma (2008)", sub="Forrás: https://stat.ethz.ch/mailman/listinfo/r-help")
