# 世界人口を標準人口とした日本の子宮頸がんの年齢調整死亡率 # データソースは下記サイトからダウンロードしたExcelワークシート # https://ganjoho.jp/reg_stat/statistics/dl/index.html years <- 1958:2017 ccasm <- c(3.8, 4.2, 4.0, 3.6, 3.6, 3.7, 3.5, 3.6, 3.4, 3.1, 3.0, 2.8, 2.6, 2.5, 2.6, 2.2, 2.3, 2.3, 2.4, 2.3, 2.3, 2.4, 2.3, 2.2, 2.1, 2.0, 2.0, 2.0, 1.9, 1.9, 1.9, 1.8, 1.8, 1.8, 1.8, 1.7, 1.7, 2.0, 1.9, 1.9, 1.9, 1.9, 2.0, 1.9, 2.0, 1.9, 2.0, 2.0, 1.9, 1.9, 2.0, 2.0, 2.0, 2.1, 2.1, 2.0, 2.2, 2.1, 2.0, 2.0) plot(ccasm ~ years, type="b", pch=16, xlab="年", ylab="年齢調整死亡率(人口10万対)", main="世界人口を標準人口とした日本女性の子宮頸がん年齢調整死亡率")