3.6.1

• 1
  line chart: geom_line()
  boxplot: geom_boxplot()
  histgram: geom_histgram()
  area chart: geom_area()

• 2
  drvのclassごとに回帰線と点の色が違う
  seは表示されない

ggplot(data = mpg, mapping = aes(x = displ, y = hwy, color = drv)) + 
      geom_point() + 
      geom_smooth(se = FALSE)

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

• 3
  show.legend = FALSEにすると凡例が表示されなくなる
  show.legend = FALSEを書かないと、凡例は表示される
  理由はわかりません…。

• 4
  Display confidence interval around smooth?

• 5
  見た目は変わらない。

p1 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) + 
            geom_point() + 
            geom_smooth()

p2 <- ggplot() + 
            geom_point(data = mpg, mapping = aes(x = displ, y = hwy)) + 
            geom_smooth(data = mpg, mapping = aes(x = displ, y = hwy))
grid.arrange(p1, p2, ncol = 2)

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

• 6

p6_1 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
              geom_point() +
              geom_smooth(se = FALSE)
p6_2 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
              geom_point() +
              geom_smooth(mapping = aes(group = drv), se = FALSE)
p6_3 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy, color = drv)) +
              geom_point() +
              geom_smooth(se = FALSE)
p6_4 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
              geom_point(mapping = aes(color = drv)) +
              geom_smooth(se = FALSE)
p6_5 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
              geom_point(mapping = aes(color = drv)) +
              geom_smooth(mapping = aes(linetype = drv), se = FALSE)
p6_6 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy, color = drv)) +
              geom_point(aes(fill = drv), shape = 21, color = "white", stroke = 2, size = 3)
grid.arrange(p6_1, p6_2, p6_3, p6_4, p6_5, p6_6, ncol = 2)

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'