1.

2.

## Rows: 72 Columns: 30
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (1): municipality
## dbl (29): 日本共産党, 日本維新の会, 無所属連合, 日本保守党, 立憲民主党, 参政党, 国民民主党, チームみらい, 日本誠真会, 社会民...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
# CORの計算
df_cor <- df %>%
  mutate(
    Ito = ITO / `日本維新の会`,    
    Matsuyama = MTS / `自由民主党`, 
    Nasu = NAS / `社会民主党`,
    Noda = NOD / `立憲民主党`,
    Kawamoto = KWM / `国民民主党`,
    Shimono = SHM / `公明党`,
    Yamaguchi = YMG / `日本共産党`,
    Okizono = OKZ / `れいわ新選組`,
    Tominaga = TMN / `日本誠真会`,
    Furukawa = FRK / `チームみらい`,
    Murakami = MRK / `ＮＨＫ党`,
    Mori = MOR / `日本保守党`,
    Nakada = NKD / `参政党`
  )


target_cols <- c("Shimono", "Tominaga", "Nakada", "Noda", "Kawamoto", 
                 "Furukawa", "Ito", "Matsuyama", "Nasu", "Yamaguchi", 
                 "Okizono", "Mori", "Murakami")
municipality Ito Matsuyama Nasu Noda Kawamoto Shimono Yamaguchi Okizono Tominaga Furukawa Murakami Mori Nakada
門司区 0.91 0.92 0.80 1.08 1.10 1.28 0.85 0.83 1.20 0.92 0.56 0.80 1.11
小倉北区 0.94 0.89 0.82 1.12 1.12 1.28 0.89 0.83 1.19 1.04 0.46 0.79 1.13
小倉南区 0.94 0.88 0.82 1.18 1.04 1.30 0.86 0.84 1.16 1.00 0.58 0.82 1.11
若松区 0.92 0.88 0.81 1.10 1.12 1.29 0.95 0.83 1.23 1.08 0.65 0.78 1.10
八幡東区 0.88 0.91 0.81 1.07 1.16 1.26 0.89 0.81 1.28 1.02 0.53 0.80 1.12
八幡西区 0.93 0.88 0.85 1.08 1.07 1.28 0.89 0.83 1.18 1.02 0.62 0.80 1.15
戸畑区 0.84 0.87 0.76 1.13 1.10 1.30 0.91 0.82 1.14 1.06 0.56 0.78 1.15
東区 0.91 0.98 0.88 1.13 1.07 1.23 0.84 0.83 1.25 0.92 0.51 0.78 1.12
博多区 0.93 0.96 1.05 1.12 1.07 1.21 0.85 0.86 1.23 0.92 0.52 0.78 1.12
中央区 0.87 0.95 0.86 1.13 1.16 1.28 0.79 0.87 1.13 0.89 0.45 0.81 1.13
南区 0.91 0.91 0.87 1.13 1.10 1.27 0.84 0.83 1.20 0.95 0.54 0.83 1.12
城南区 0.92 0.95 0.83 1.10 1.09 1.25 0.81 0.87 1.24 0.96 0.49 0.83 1.11
早良区 0.86 0.94 0.85 1.09 1.16 1.23 0.85 0.84 1.14 0.93 0.52 0.79 1.12
西区 0.94 0.97 0.99 1.07 1.05 1.23 0.95 0.84 1.22 0.92 0.53 0.85 1.11
大牟田市 0.87 0.88 0.73 1.28 0.97 1.23 0.85 0.78 1.25 1.03 0.67 0.81 1.14
久留米市 0.88 0.89 0.90 1.24 1.06 1.27 0.81 0.79 1.18 1.01 0.59 0.79 1.10
直方市 0.95 0.93 0.97 1.06 1.00 1.28 0.84 0.87 1.28 1.10 0.90 0.83 1.13
飯塚市 1.00 0.90 0.90 1.05 1.05 1.28 0.88 0.82 1.27 1.04 0.86 0.79 1.14
田川市 1.02 0.86 0.98 1.24 0.96 1.37 0.87 0.82 1.56 1.16 0.80 0.82 1.17
柳川市 0.85 0.91 0.72 1.37 0.92 1.26 0.69 0.80 1.17 1.04 0.65 0.78 1.11
八女市 0.78 0.85 0.65 1.78 0.84 1.18 0.65 0.68 1.09 0.97 0.59 0.75 1.04
筑後市 0.84 0.86 0.69 1.42 1.02 1.24 0.73 0.75 1.26 1.00 0.54 0.76 1.06
大川市 0.92 0.96 0.82 1.24 0.97 1.18 0.80 0.81 1.16 1.06 0.70 0.81 1.08
行橋市 0.94 1.01 0.85 1.02 1.03 1.27 0.83 0.84 1.19 0.99 0.77 0.82 1.10
豊前市 0.87 1.01 0.84 0.95 0.96 1.48 0.90 0.80 1.74 1.09 0.84 0.87 1.06
中間市 0.98 0.89 0.80 1.05 1.05 1.24 0.87 0.88 1.33 1.07 0.86 0.79 1.12
小郡市 0.99 0.94 0.92 1.10 1.07 1.30 0.90 0.80 1.19 1.05 0.67 0.80 1.07
筑紫野市 0.85 0.90 0.88 1.16 1.04 1.39 0.77 0.87 1.20 1.04 0.58 0.77 1.11
春日市 0.88 0.89 0.98 1.10 1.02 1.50 0.76 0.86 1.18 0.93 0.51 0.77 1.12
大野城市 0.90 0.94 1.03 1.11 1.00 1.36 0.78 0.84 1.21 1.04 0.52 0.81 1.09
宗像市 0.91 0.89 0.87 1.07 1.06 1.52 0.86 0.85 1.16 1.10 0.56 0.80 1.11
太宰府市 0.94 0.89 0.90 1.09 1.04 1.55 0.81 0.86 1.21 0.96 0.57 0.79 1.10
古賀市 0.94 0.92 0.93 1.05 1.13 1.24 0.82 0.81 1.18 1.00 0.66 0.80 1.08
福津市 0.90 0.93 0.96 1.10 1.07 1.34 0.80 0.85 1.26 0.95 0.59 0.78 1.10
うきは市 1.05 0.90 0.88 1.13 0.99 1.40 0.75 0.78 1.27 1.06 0.54 0.85 1.06
宮若市 0.98 0.90 0.88 0.98 1.04 1.30 0.83 0.85 1.43 1.14 0.82 0.92 1.11
嘉麻市 0.94 0.95 0.92 1.04 1.15 1.21 0.89 0.84 1.21 1.10 0.57 0.75 1.13
朝倉市 0.88 1.05 0.94 1.07 0.95 1.18 0.72 0.80 1.17 1.14 0.63 0.77 1.09
みやま市 0.78 0.92 0.67 1.39 0.94 1.14 0.71 0.79 1.06 1.23 0.63 0.84 1.05
糸島市 0.89 0.99 0.91 1.14 1.05 1.21 0.92 0.84 1.23 0.97 0.67 0.80 1.11
那珂川市 0.92 0.90 1.13 1.09 1.02 1.40 0.81 0.83 1.14 1.00 0.61 0.79 1.12
宇美町 0.93 0.87 1.04 1.09 1.06 1.28 0.80 0.81 1.28 1.09 0.56 0.81 1.09
篠栗町 0.92 0.86 1.13 1.13 1.02 1.41 0.82 0.85 1.27 1.04 0.60 0.86 1.08
志免町 1.04 0.92 0.87 1.06 1.07 1.23 0.82 0.85 1.37 1.01 0.56 0.81 1.11
須恵町 1.03 0.90 1.03 1.07 1.02 1.29 0.77 0.86 1.28 0.94 0.54 0.78 1.11
新宮町 0.88 0.92 0.96 1.04 1.10 1.33 0.84 0.85 1.33 1.00 0.58 0.79 1.12
久山町 0.89 0.89 1.01 1.13 1.06 1.32 0.81 0.92 1.74 1.20 0.52 0.70 1.14
粕屋町 0.92 0.90 1.06 1.21 1.03 1.24 0.84 0.83 1.23 0.97 0.52 0.78 1.12
芦屋町 1.01 0.87 0.76 1.03 1.03 1.35 0.95 0.87 1.40 0.87 0.72 0.81 1.13
水巻町 0.97 0.89 0.78 1.11 1.04 1.23 0.84 0.90 1.31 1.18 0.61 0.80 1.10
岡垣町 0.90 0.96 1.05 1.01 1.01 1.31 0.90 0.84 1.43 1.13 0.68 0.79 1.10
遠賀町 0.90 0.96 0.84 1.08 0.99 1.26 0.83 0.89 1.21 1.34 0.71 0.81 1.09
小竹町 0.95 0.93 0.78 1.14 1.09 1.26 0.81 0.82 1.58 0.88 0.64 0.82 1.10
鞍手町 0.93 0.95 0.95 0.99 1.02 1.25 0.83 0.84 1.52 0.96 1.00 0.83 1.10
桂川町 1.02 0.93 0.92 1.08 1.02 1.24 0.80 0.85 1.17 0.90 0.76 0.85 1.15
筑前町 0.94 0.94 0.78 1.15 0.96 1.29 0.82 0.85 1.23 1.12 0.73 0.77 1.10
東峰村 0.88 0.99 1.00 0.96 1.21 1.37 0.80 0.84 2.25 0.69 0.25 0.77 1.09
大刀洗町 0.95 1.00 1.08 1.12 1.03 1.20 0.83 0.86 1.40 1.17 1.05 0.80 1.08
大木町 0.80 0.87 0.70 1.29 1.00 1.33 0.99 0.82 1.16 0.78 0.81 0.83 1.07
広川町 0.72 0.80 0.54 1.87 0.89 1.18 0.66 0.70 1.37 0.89 0.58 0.74 1.04
香春町 1.15 0.87 1.05 1.08 1.06 1.34 0.77 0.87 1.39 0.89 0.84 1.09 1.12
添田町 0.99 0.87 0.87 1.15 0.95 1.38 0.90 0.77 2.14 1.04 0.80 0.81 1.09
糸田町 0.96 0.84 0.92 1.20 1.03 1.37 0.91 0.76 1.20 1.13 1.54 0.82 1.10
川崎町 1.14 0.81 0.93 1.01 0.99 1.31 0.91 0.82 1.33 1.25 1.34 0.78 1.16
大任町 1.15 0.83 1.13 1.20 0.92 1.34 0.83 0.68 1.64 1.42 0.90 0.78 1.14
赤村 1.05 0.84 1.12 1.12 1.04 1.43 0.76 0.78 1.36 0.67 1.00 0.69 1.10
福智町 1.13 0.91 0.95 1.06 1.01 1.29 0.89 0.82 1.14 1.15 0.90 0.91 1.16
苅田町 0.99 0.95 0.85 1.02 0.96 1.28 0.86 0.89 1.37 1.02 0.92 0.86 1.13
みやこ町 0.80 1.00 0.90 1.11 0.91 1.25 0.77 0.82 1.45 0.92 0.88 0.79 1.14
吉富町 1.01 1.06 0.98 0.99 0.95 1.21 0.71 0.79 1.43 1.21 0.83 0.86 1.13
上毛町 0.91 1.08 0.89 0.98 0.90 1.39 0.72 0.82 1.00 1.22 0.32 1.09 1.06
築上町 0.72 1.28 0.83 0.90 0.93 1.08 0.62 0.74 1.44 0.90 0.69 0.76 1.06

3.

## # A tibble: 13 × 2
##    Candidate Median_COR
##    <chr>          <dbl>
##  1 Shimono        1.28 
##  2 Tominaga       1.24 
##  3 Nakada         1.11 
##  4 Noda           1.10 
##  5 Kawamoto       1.03 
##  6 Furukawa       1.02 
##  7 Ito            0.923
##  8 Matsuyama      0.913
##  9 Nasu           0.884
## 10 Yamaguchi      0.831
## 11 Okizono        0.829
## 12 Mori           0.798
## 13 Murakami       0.623

————————————-

CORと第2軸座標との関係

————————————-

箱ひげ図

## Rows: 72 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (13): Ito, Matsuyama, Nasu, Noda, Kawamoto, Shimono, Yamaguchi, Okizono,...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.