労働時間の推移

概要

毎月勤労統計の長期時系列表を使って，就業形態別に総実労働時間数の推移をグラフにする。

コードと実行結果

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.1     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

# 毎月勤労統計調査      長期時系列表  実数・指数累積データ  
# 表番号1 実数・指数累積データ　実数

maikin <-
  read.csv("https://www.e-stat.go.jp/stat-search/file-download?statInfId=000032189776&fileKind=1",
           fileEncoding = "shift-jis") %>% 
  filter(`年` >= 1993 & 
         `月` == "CY" & 
         substr(`産業分類`, 1, 2) == "TL" &
         `規模` == "T")

w_status <- c("就業形態計", "一般労働者", "パートタイム労働者")

maikin %>% 
  mutate(`総実労働時間` = `総実労働時間` *12) %>% 
  ggplot(aes(x = `年`, y = `総実労働時間` , color = as.factor(`就業形態`))) +
  geom_line() +
  geom_point() +
  scale_color_hue(name = "就業形態", labels = w_status)