library(ggplot2)
library(scales)

交通事故死者数データ

データ作成

death <- data.frame(
  year=7:17,
  shisha=c(10679,9942,9640,9211,9006,9066,8747,8326,7702,7358,6871))

事故発生後24時間いないの交通事故者数1

ggplot(subset(death, year>=13), aes(x=year, y=shisha-6000)) +
  geom_bar(stat="identity", col="black", fill="grey") +
  scale_y_continuous(
    breaks = seq(0, 4000, by = 1000),
    labels = comma(seq(6000,10000, by=1000))
  ) +
  xlab("") +
  ylab("人数") +
  ggtitle("事故発生後24時間いないの交通事故者数") +
  theme_bw(base_family="Osaka")

plot of chunk unnamed-chunk-3

事故発生後24時間いないの交通事故者数2

ggplot(subset(death, year>=13), aes(x=year, y=shisha)) +
  geom_bar(stat="identity", col="black", fill="grey") +
  scale_y_continuous(label=comma) +
  xlab("") +
  ylab("人数") +
  ggtitle("事故発生後24時間いないの交通事故者数") +
  theme_bw(base_family="Osaka")

plot of chunk unnamed-chunk-4

事故発生後24時間いないの交通事故者数3

ggplot(death, aes(x=year, y=shisha)) +
  geom_bar(col="black", fill="grey", stat="identity") +
  scale_y_continuous(label=comma) +
  xlab("") +
  ylab("人数") +
  ggtitle("事故発生後24時間いないの交通事故者数") +
  theme_bw(base_family="Osaka")

plot of chunk unnamed-chunk-5

事故発生後24時間いないの交通事故者数4

ggplot(death, aes(x=year, y=shisha)) +
  geom_line() +
  geom_point(shape=1, size=2) +
  scale_y_continuous(label=comma) +
  xlab("") +
  ylab("人数") +
  ggtitle("事故発生後24時間いないの交通事故者数") +
  theme_bw(base_family="Osaka")