Belajar Data Visualization with R

Untuk membuatnya pun cukup simple, bahkan jauh lebih mudah daripada menggunakan matplotlib punya Python!!!

ggplot(data = <DATA>) + 
  <GEOM_FUNCTION>(mapping = aes(<MAPPINGS>))

Simple Exercise

  • Run ggplot(data = mpg) apa yang terjadi? Blank canvas

  • Berapa banyak rows pada mpg? Berapa banyak cols nya? Kita bisa pake function dim(nama_data)

dim(mpg)
## [1] 234  11
  • Apa deskripsi data drv? Kita bisa pakai function ?mpg –> tipe drive train, front wheel, rear wheel, 4wd

  • Buat Scatter Plot hwy vs cyl

ggplot(data = mpg) +
  geom_point(mapping = aes(x = hwy, y = cyl))

  • Apa yang terjadi pada Scatter plot class vs drv? kenapa plot nya not useful? Karena kita nge compare data categorical dengan numerical
ggplot(data = mpg) +
  geom_point(mapping = aes(x = class, y = drv))

Lanjut Plotting

sapply(mpg, class)
## manufacturer        model        displ         year          cyl        trans 
##  "character"  "character"    "numeric"    "integer"    "integer"  "character" 
##          drv          cty          hwy           fl        class 
##  "character"    "integer"    "integer"  "character"  "character"
ggplot(data = mpg) + 
  geom_point(mapping = aes(x = displ, y = hwy)) + 
  facet_wrap(~ class, nrow = 2)

ggplot(data = mpg) +
  geom_point(mapping = aes(x = displ, y = hwy)) +
  facet_wrap(drv ~ cyl)

ggplot(data = mpg) +
  geom_point(mapping = aes(x = displ, y = hwy)) +
  facet_wrap(cty ~ cyl)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point() + 
  geom_smooth()
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'