8. 折れ線グラフ
-8.1 日本人と中国人の平均寿命
-8.2 自民党と民進党の当選者年齢
-8.3 Exercise
-8.4 米国下院の政治的二極化(経済的次元)
-8.5 Exercise

9. コロプレス地図
-9.1 都道府県の人口を緑の濃淡で示したマップ
-9.2 都道府県の人口増減を赤と青で示したマップ
-9.3 Exercise

10. ドットプロット
-10.1 データの読み込み
-10.2 基本的なドットプロット
-10.3 グループ分けしたドットプロット
-10.4 2009年衆院選:都道府県別自民党の当選割合(コロプレス)

このセクションで使っている packages

library("gapminder")
library("DT")
library("tidyverse")
## ─ Attaching packages ──────────────────────── tidyverse 1.2.1 ─
## ✔ ggplot2 3.1.0     ✔ purrr   0.2.5
## ✔ tibble  1.4.2     ✔ dplyr   0.7.8
## ✔ tidyr   0.8.2     ✔ stringr 1.3.1
## ✔ readr   1.3.0     ✔ forcats 0.3.0
## ─ Conflicts ────────────────────────── tidyverse_conflicts() ─
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

メッセージの意味:tidyverseパッケージは上記 2 つの関数とコンフリクトを起こす。
→ このセクションでは後に filter()関数を使う。
→その際には次のコマンドを入力する必要がある。
filter()dplyr::filter()

・ggplot で文字バケしない設定

theme_set(theme_classic(base_size = 10,
                        base_family = "HiraginoSans-W3"))

8. 折れ線グラフ

8.1 日本人と中国人の平均寿命

Gapminder

Gapminderは R に組み込まれているデータセット
・含まれる変数は次のとおり:
(1) country: 国名
(2) continent: 大陸名
(3) lifeExp: 寿命平均
(4) pop: 人口
(5) gdpPercap: 一人当たりGDP
(6) year: 1952-2007 (every 5 years)

・Rに組み込まれているデータの様子をのぞき見て (glimpse) みる

data(gapminder)
glimpse(gapminder)
Observations: 1,704
Variables: 6
$ country   <fct> Afghanistan, Afghanistan, Afghanistan, Afghanistan, ...
$ continent <fct> Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia, Asia...
$ year      <int> 1952, 1957, 1962, 1967, 1972, 1977, 1982, 1987, 1992...
$ lifeExp   <dbl> 28.801, 30.332, 31.997, 34.020, 36.088, 38.438, 39.8...
$ pop       <int> 8425333, 9240934, 10267083, 11537966, 13079460, 1488...
$ gdpPercap <dbl> 779.4453, 820.8530, 853.1007, 836.1971, 739.9811, 78...

・gapminder のサマリーは

summary(gapminder)  
        country        continent        year         lifeExp     
 Afghanistan:  12   Africa  :624   Min.   :1952   Min.   :23.60  
 Albania    :  12   Americas:300   1st Qu.:1966   1st Qu.:48.20  
 Algeria    :  12   Asia    :396   Median :1980   Median :60.71  
 Angola     :  12   Europe  :360   Mean   :1980   Mean   :59.47  
 Argentina  :  12   Oceania : 24   3rd Qu.:1993   3rd Qu.:70.85  
 Australia  :  12                  Max.   :2007   Max.   :82.60  
 (Other)    :1632                                                
      pop              gdpPercap       
 Min.   :6.001e+04   Min.   :   241.2  
 1st Qu.:2.794e+06   1st Qu.:  1202.1  
 Median :7.024e+06   Median :  3531.8  
 Mean   :2.960e+07   Mean   :  7215.3  
 3rd Qu.:1.959e+07   3rd Qu.:  9325.5  
 Max.   :1.319e+09   Max.   :113523.1  
                                       

・country の一覧を表示  

table(gapminder$country)

             Afghanistan                  Albania                  Algeria 
                      12                       12                       12 
                  Angola                Argentina                Australia 
                      12                       12                       12 
                 Austria                  Bahrain               Bangladesh 
                      12                       12                       12 
                 Belgium                    Benin                  Bolivia 
                      12                       12                       12 
  Bosnia and Herzegovina                 Botswana                   Brazil 
                      12                       12                       12 
                Bulgaria             Burkina Faso                  Burundi 
                      12                       12                       12 
                Cambodia                 Cameroon                   Canada 
                      12                       12                       12 
Central African Republic                     Chad                    Chile 
                      12                       12                       12 
                   China                 Colombia                  Comoros 
                      12                       12                       12 
        Congo, Dem. Rep.              Congo, Rep.               Costa Rica 
                      12                       12                       12 
           Cote d'Ivoire                  Croatia                     Cuba 
                      12                       12                       12 
          Czech Republic                  Denmark                 Djibouti 
                      12                       12                       12 
      Dominican Republic                  Ecuador                    Egypt 
                      12                       12                       12 
             El Salvador        Equatorial Guinea                  Eritrea 
                      12                       12                       12 
                Ethiopia                  Finland                   France 
                      12                       12                       12 
                   Gabon                   Gambia                  Germany 
                      12                       12                       12 
                   Ghana                   Greece                Guatemala 
                      12                       12                       12 
                  Guinea            Guinea-Bissau                    Haiti 
                      12                       12                       12 
                Honduras         Hong Kong, China                  Hungary 
                      12                       12                       12 
                 Iceland                    India                Indonesia 
                      12                       12                       12 
                    Iran                     Iraq                  Ireland 
                      12                       12                       12 
                  Israel                    Italy                  Jamaica 
                      12                       12                       12 
                   Japan                   Jordan                    Kenya 
                      12                       12                       12 
        Korea, Dem. Rep.              Korea, Rep.                   Kuwait 
                      12                       12                       12 
                 Lebanon                  Lesotho                  Liberia 
                      12                       12                       12 
                   Libya               Madagascar                   Malawi 
                      12                       12                       12 
                Malaysia                     Mali               Mauritania 
                      12                       12                       12 
               Mauritius                   Mexico                 Mongolia 
                      12                       12                       12 
              Montenegro                  Morocco               Mozambique 
                      12                       12                       12 
                 Myanmar                  Namibia                    Nepal 
                      12                       12                       12 
             Netherlands              New Zealand                Nicaragua 
                      12                       12                       12 
                   Niger                  Nigeria                   Norway 
                      12                       12                       12 
                    Oman                 Pakistan                   Panama 
                      12                       12                       12 
                Paraguay                     Peru              Philippines 
                      12                       12                       12 
                  Poland                 Portugal              Puerto Rico 
                      12                       12                       12 
                 Reunion                  Romania                   Rwanda 
                      12                       12                       12 
   Sao Tome and Principe             Saudi Arabia                  Senegal 
                      12                       12                       12 
                  Serbia             Sierra Leone                Singapore 
                      12                       12                       12 
         Slovak Republic                 Slovenia                  Somalia 
                      12                       12                       12 
            South Africa                    Spain                Sri Lanka 
                      12                       12                       12 
                   Sudan                Swaziland                   Sweden 
                      12                       12                       12 
             Switzerland                    Syria                   Taiwan 
                      12                       12                       12 
                Tanzania                 Thailand                     Togo 
                      12                       12                       12 
     Trinidad and Tobago                  Tunisia                   Turkey 
                      12                       12                       12 
                  Uganda           United Kingdom            United States 
                      12                       12                       12 
                 Uruguay                Venezuela                  Vietnam 
                      12                       12                       12 
      West Bank and Gaza              Yemen, Rep.                   Zambia 
                      12                       12                       12 
                Zimbabwe 
                      12