複数の線を持つ折れ線グラフ

2024年11月7日 14:52

某社のテキストにある図を再現してみました。
まずは、表計算ソフトでデータを整えます。
農林水産省「令和３年度食料需給表」より【国民1人・1年当たり供給粗食料】を利用しました。

> install.packages("readxl")
> install.packages("psych")
> library("readxl")
> library("psych")
> install.packages("tidyverse")
> install.packages("GGally")
> install.packages("ggthemes")
> install.packages("ggplot2")
> library(tidyverse)
> library(GGally)
> library(ggthemes)
> library(ggplot2)
> jyukyu <- read_excel("R3Shokuryo_jyukyu.xls")
> View(jyukyu)

確認出来たので、グラフにしてみます。

> data1 <- data.frame(year = jyukyu$年度, item = jyukyu$米, type = "米")
> data2 <- data.frame(year = jyukyu$年度, item = jyukyu$小麦, type = "小麦")
> data3 <- data.frame(year = jyukyu$年度, item = jyukyu$緑黄色野菜, type = "緑黄色野菜")
> data4 <- data.frame(year = jyukyu$年度, item = jyukyu$その他の野菜, type = "その他野菜")
> data5 <- data.frame(year = jyukyu$年度, item = jyukyu$肉類, type = "肉類")
> data6 <- data.frame(year = jyukyu$年度, item = jyukyu$鶏卵, type = "鶏卵")
> data7 <- data.frame(year = jyukyu$年度, item = jyukyu$魚介類, type = "魚介類")
> data8 <- data.frame(year = jyukyu$年度, item = jyukyu$砂糖類, type = "砂糖類")
> data9 <- data.frame(year = jyukyu$年度, item = jyukyu$油脂類, type = "油脂類")
> data10 <- data.frame(year = jyukyu$年度, item = jyukyu$みそ, type = "みそ")
> data11 <- data.frame(year = jyukyu$年度, item = jyukyu$しょうゆ, type = "しょうゆ")
> jyukyu2 <- rbind(data1, data2, data3, data4, data5, data6, data7, data8, data9, data10, data11)
>p1 <- ggplot(jyukyu2, aes(x=year, y=item, color=type)) + 
  geom_line() +
  xlab("年度") +
  ylab("国民１人・１年当たり供給粗食料 (kg)")
> p1