LifeCycleSavings adalah Data rasio tabungan 1960–1970.

A,Horizontal

library(ggplot2)
mydata <-cars  
p <- ggplot(mydata, aes(x=speed))
p2 <-ggplot(mydata, aes(x=speed, y=factor(dist)))
p + geom_boxplot()

p2 + geom_boxplot()

#fungsi dari geom_boxplot ini memvisualisasikan lima statistik ringkasan (median, dua engsel dan dua kumis), dan semua poin "terluar" secara individual.

B.vertikal

p2 <-ggplot(mydata, aes(y=speed, x=factor(dist)))
p2 + geom_boxplot()

#mengecek perhitungan
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
mydata2 <- filter(mydata, dist==46)
summary(mydata2)
##      speed           dist   
##  Min.   :13.0   Min.   :46  
##  1st Qu.:14.5   1st Qu.:46  
##  Median :16.0   Median :46  
##  Mean   :16.0   Mean   :46  
##  3rd Qu.:17.5   3rd Qu.:46  
##  Max.   :19.0   Max.   :46
#menukar sumbu x dan y
p2 + geom_boxplot()+coord_flip()

#mengganti warna

p2 + geom_boxplot(fill='purple')

p2 + geom_boxplot(aes(fill=factor(dist)))

p2 + geom_boxplot(aes(fill=factor(dist)))+theme_light()