library(readr)

# データの読み込み
df <- read_csv("yamagata.csv", locale = locale(encoding = "SHIFT-JIS"))

df$`/項目` <- NULL
df$調査年 <- as.numeric(sapply(df$調査年, gsub, pattern="年度", replacement = ""))
df <- df[order(df$調査年),]

# 2015年度の就業者比率
data <- df[df$調査年 == 2015,
           c("#F01201_第1次産業就業者比率【％】",
             "#F01202_第2次産業就業者比率【％】",
             "#F01203_第3次産業就業者比率【％】")]

# ラベルの書き換え
colnames(data) <- c("第1次産業", "第2次産業", "第3次産業")

# 箱ひげ図
boxplot(data, horizontal = TRUE, main = "山形県市町村の就業者比率", xlab = "就業者比率【％】")