3.29 Wykres słupkowy

# Rysowanie wykresu słupkowego z użyciem języka R

knitr::opts_chunk$set(fig.width=4, fig.height=4) # Ustawienia wyświetlania
library(ggplot2) # Ładowanie pakietu funkcji

data = data.frame( x = c(1,1,5,5,5,5,5,3,3,3,3,4,4,5) ) # Wektor danych
barplot <- ggplot(data = data) + geom_bar( aes(x = x), stat = "count" ) # Funkcja pakietu ggplot2 tworząca wykres słupkowy