ggplotを利用した折れ線グラフの作り方のご紹介です。基本的な作り方と複数の折れ線を出す方法をご紹介します。変わり種として回帰直線を追加する方法もあります。
折れ線グラフ
library(tidyverse)
library(scales)
d <- read.csv("https://raw.githubusercontent.com/maruko-rosso/datasciencehenomiti/master/data/ShopSales.csv")
theme_set(theme_bw())
折れ線グラフ
d %>%
group_by(date) %>%
summarise(price = sum(price)) %>%
ggplot(aes(x = as.Date(date) , y = price)) +
geom_line()
![](https://datasciencehenomiti.com/wp-content/uploads/2021/02/image-8-1024x731.png)
折れ線グラフ +ポイントプロット
折れ線グラフをよりわかりやすくするテクニックとして以下のようなやり方もあります。
d %>%
group_by(date) %>%
summarise(price = sum(price)) %>%
ggplot(aes(x = as.Date(date) , y = price)) +
geom_line() +
geom_point()
![](https://datasciencehenomiti.com/wp-content/uploads/2021/02/image-9-1024x731.png)
折れ線グラフと回帰直線
以下のようにすることで回帰直線を追加することができます。
d %>%
group_by(date) %>%
summarise(price = sum(price)) %>%
ggplot(aes(x = as.Date(date) , y = price)) +
geom_line() +
geom_point() +
geom_smooth(method = "lm")
![](https://datasciencehenomiti.com/wp-content/uploads/2021/02/image-10.png)
複数の折れ線グラフ
d %>%
group_by(date,staff) %>%
summarise(price = sum(price)) %>%
ggplot(aes(x = as.Date(date) , y = price,fill = staff, col = staff)) +
geom_line() +
scale_fill_brewer(palette='Set1')
![](https://datasciencehenomiti.com/wp-content/uploads/2021/02/image-11-1024x731.png)