3.41 Wykres pudełkowy - przykład (1)

# Rysowanie wykresu pudełkowego z użyciem języka R

data <- data.frame(
  men = c(143, 160, 165, 168, 172, 173, 175, 176, 177, 178, 179, 180, 180, 181, 181, 182, 182, 183, 183, 184, 186, 188, 190, 191, 200),
  women = c(140, 150, 155, 158, 160, 163, 163, 165, 166, 166, 168, 170, 170, 171, 172, 173, 173, 173, 175, 176, 177, 181, 182, 183, 196) ) # Zbiór danych

head(data) # Wyświetla pierwsze wiersze zbioru danych

##   men women
## 1 143   140
## 2 160   150
## 3 165   155
## 4 168   158
## 5 172   160
## 6 173   163

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tidyr) # Pakiet funkcji przydatny do transformacji danych

data <- gather(data = data, key = "plec", value = "wzrost", men:women ) # Format szeroki danych --> format długi danych

head(data)

##   plec wzrost
## 1  men    143
## 2  men    160
## 3  men    165
## 4  men    168
## 5  men    172
## 6  men    173

box <- ggplot(data = data) + geom_boxplot( aes( x = plec, y = wzrost ) ) + coord_flip() # Rysuje wykres pudełkowy

print(box) # Wyświetla wykres