テーマ別分析

1. 平均寿命の国際比較

1.1 gapmiderの利用

gapminderのデータは、tidy dataの例である。

  • Each variable must have its own column.
  • Each observation must have its own row.
  • Each value must have its own cell.
library(gapminder)
head(gapminder,3)
## # A tibble: 3 × 6
##   country     continent  year lifeExp      pop gdpPercap
##   <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
## 1 Afghanistan Asia       1952    28.8  8425333      779.
## 2 Afghanistan Asia       1957    30.3  9240934      821.
## 3 Afghanistan Asia       1962    32.0 10267083      853.
library(dplyr)
Japan <- gapminder %>%
filter(country=="Japan") %>%
select(year,lifeExp)
#head(Japan,3)
#tail(Japan,3)

library(patchwork)
library(ggplot2)
p1 <- ggplot(Japan, aes(x=year,y=lifeExp)) +
  geom_point()+
  geom_line() +
  ggtitle("日本人の平均寿命") +
  labs(x="年",y="平均寿命",caption = "出典: gapminder")+
  theme_minimal(base_family="HiraKakuProN-W3") 

日本のデータは、2007年の82.603まで収録されている。

library(dplyr)
library(gapminder)
jpn.chi <- gapminder %>%
filter(country=="China"|country=="Japan") %>% 
select(year,country,lifeExp)

p2 <- ggplot(jpn.chi, aes(x=year,y=lifeExp,group=country)) +
  geom_point()+
  geom_line(aes(linetype=country)) +
  ggtitle("日本と中国 の比較") +
  labs(x="年",y="平均寿命",subtitle="1952-2007",caption = "出典: gapminder")+
  scale_linetype_discrete(name="国名",labels=c("中国","日本" ))+
  theme_minimal(base_family="HiraKakuProN-W3")