21W poprzedniej części omówiłem podstawy tworzenia wykresu punktowego. Ten typ wykresu świetnie nadaje się do prezentowania danych typowo natury matematycznej, tam gdzie jest wartość X i wyliczona dla niego wartość Y. Tak można by np. narysować wykres funkcji sinus itp. Jak jednak udało się to pokazać prezentowanie wagi kurczaków korzystających z różnej diety też się udało 🙂
Teraz pora na wykres kolumnowy i jego odmianę – słupkowy. Sprawa ma się dość prosto, bo do rysowania tego rodzaju wykresu służy funkcja barplot. Do funkcji należy przekazać dwa argumenty: dane do prezentacji oraz jaka właściwość tych danych ma wpływać na wysokość słupków:
barplot(data = chickwts,height = chickwts$weight)
Może tylko nie tego się spodziewaliśmy… Jakby trochę za dużo tych słupków? Ilość słupków zależy jednak od rodzaju danych, jakie przekazujemy do funkcji. Skoro w danych znajdują się informacje o ponad 70 kurczakach, to i mamy 70 słupków. Gdyby chcieć zobaczyć tylko 6 słupków dla 6 rodzajów karmy, to należałoby przed narysowaniem wykresu odpowiednio przetworzyć dane. Zacznijmy od sztuczki, jaką zastosowaliśmy poprzednio do wykresu punktowego. Skoro każdy punkt można pokolorować, to da się też pokolorować każdy słupek!
my_colors <- c('red', 'yellow', 'green', 'orange', 'violet', 'blue')
color_column <- my_colors[as.numeric(chickwts$feed)]
barplot(data = chickwts,height = chickwts$weight,
col=color_column, pch = shapes_column)
legend("topleft", legend = levels(chickwts$feed),
col = my_colors )
To jeszcze nie jest idelany wykres, ale zobacz, jak ładnie przemawia. Każdy kolor określa inną karmę i patrząc na niego łatwo odgadnąć, która z tych karm dobrze tuczy kurczaki, a która nadawałaby się na kurację odchudzającą 🙂
