library(ggplot2)
library(tidyr)
library(dplyr)
##
## 次のパッケージを付け加えます: 'dplyr'
## 以下のオブジェクトは 'package:stats' からマスクされています:
##
## filter, lag
## 以下のオブジェクトは 'package:base' からマスクされています:
##
## intersect, setdiff, setequal, union
library(readr)
# ---------------------------------------------------------
# データ
# ---------------------------------------------------------
csv_text <- '"市区町村名","日本共産党","日本維新の会","無所属連合","日本保守党","立憲民主党","参政党","国民民主党","チームみらい","日本誠真会","社会民主党","れいわ新選組","日本改革党","自由民主党","再生 of 道","公明党","NHK党","KWM","SHM","TMN","NAS","NKD","ITO","FRK","YMG","MRK","MTS","MOR","OKZ","NOD"
"門司区",2361,1921,126,2249,5077,4970,3806,757,306,999,2661,35,7973,321,6226,432,4181,7945,366,802,5533,1744,696,2014,242,7369,1791,2196,5488
"小倉北区",3803,3357,313,5025,7420,10500,9143,1858,614,1465,5010,56,13332,710,8703,950,10277,11162,730,1201,11830,3140,1935,3368,441,11826,3959,4139,8346
"小倉南区",4392,3965,284,5101,9975,12703,10912,1613,675,1687,6518,86,15551,881,10783,919,11354,13981,781,1387,14060,3721,1605,3784,533,13726,4169,5461,11794
"若松区",2548,1436,105,1933,3923,4957,3802,567,282,701,2468,34,6524,285,4037,312,4250,5207,348,571,5472,1323,612,2411,202,5712,1506,2040,4324
"八幡東区",1540,1303,108,1569,3438,3712,3134,596,185,664,1762,27,5556,250,3812,328,3644,4797,236,540,4140,1144,606,1366,173,5047,1248,1426,3671
"八幡西区",5108,4946,414,6047,12677,15203,12931,2043,749,2282,7552,94,18848,1011,12939,1063,13877,16542,884,1943,17440,4597,2092,4558,655,16646,4826,6263,13696
"戸畑区",1909,1150,88,1530,2721,3261,3030,539,171,514,1497,16,4979,180,3074,277,3340,4003,195,389,3756,970,570,1734,156,4346,1188,1230,3073
"東区",5834,8201,548,10236,15805,23856,21113,4415,1164,3163,10207,126,24690,1384,14419,1675,22553,17804,1456,2782,26676,7450,4047,4918,862,24103,7985,8452,17937
"博多区",3181,5523,420,8532,8520,19361,17338,3495,815,1710,7252,118,16170,1044,10086,1398,18589,12193,1004,1803,21655,5139,3223,2714,721,15449,6629,6224,9579
"中央区",3356,5435,541,8268,9628,15730,14660,4735,1024,1901,5647,77,17431,993,6053,1150,16964,7719,1162,1635,17794,4709,4206,2642,522,16569,6706,4929,10891
"南区",4242,6496,519,8774,13668,19702,17277,3882,1102,2314,8759,111,22116,1243,11473,1502,18975,14613,1320,2008,22050,5902,3683,3582,815,20208,7260,7285,15382
"城南区",2512,3217,251,3945,7005,9146,8344,1834,525,1326,4081,47,11613,584,5562,627,9124,6943,653,1097,10135,2970,1759,2031,308,11005,3264,3532,7738
"早良区",3775,5949,407,6899,11909,15300,14541,3491,930,2258,6951,94,19743,1034,11076,1192,16939,13638,1061,1930,17099,5125,3238,3199,617,18460,5462,5827,12977
"西区",3308,5802,335,6223,11855,14636,14142,3155,727,2139,6785,93,17899,1047,9046,1034,14874,11143,884,2114,16308,5461,2901,3159,549,17368,5261,5682,12725
"大牟田市",2724,1725,145,2159,6628,5703,4256,666,364,1270,3408,36,9271,347,7022,471,4110,8670,454,932,6523,1495,685,2319,314,8166,1738,2644,8516
"久留米市",3675,5740,458,7253,15063,19430,15008,2562,1030,2837,9443,141,28343,1153,14912,1418,15946,19007,1212,2552,21340,5023,2586,2965,831,25267,5727,7452,18621
"直方市",1273,932,75,1242,2795,3463,2576,331,173,626,2220,26,5192,208,2838,234,2588,3635,221,606,3903,881,364,1073,211,4819,1032,1932,2950
"飯塚市",2143,2204,177,2846,6146,7688,5514,870,344,1382,4567,45,12712,503,7681,489,5788,9818,436,1248,8780,2201,907,1877,420,11458,2243,3723,6465
"田川市",1120,767,51,875,1776,2438,1646,202,131,831,1791,27,3634,507,2543,164,1585,3472,204,812,2843,783,234,970,132,3115,721,1473,2200
"柳川市",778,946,103,1227,3846,3861,2410,329,216,501,1887,25,7261,205,3059,241,2227,3845,253,362,4286,805,341,540,157,6642,959,1511,5280
"八女市",868,800,78,1252,4227,3769,2170,350,199,461,1790,24,7227,201,3276,188,1813,3854,217,301,3925,620,341,567,110,6157,945,1209,7533
"筑後市",577,847,82,1137,3389,3260,2227,375,146,480,1675,13,4719,185,2600,207,2261,3218,184,329,3458,708,375,420,111,4041,865,1262,4825
"大川市",352,500,51,597,1715,2007,1330,192,108,248,980,9,3753,84,1725,106,1290,2028,125,204,2168,458,204,281,74,3602,486,791,2121
"行橋市",1094,1685,102,1760,3904,4668,4669,448,256,827,2590,46,6906,326,3213,290,4811,4079,305,704,5136,1581,445,910,222,7000,1438,2186,3969
"豊前市",377,497,45,453,1460,1542,1103,130,77,340,871,16,3149,99,1117,95,1059,1650,134,286,1632,430,142,338,80,3168,396,701,1383
"中間市",860,622,54,813,2008,2125,1526,223,100,429,1263,9,3209,142,2518,144,1601,3130,133,343,2386,608,238,744,124,2850,645,1113,2106
"小郡市",825,1388,95,1624,3985,4056,3636,611,208,721,1842,16,6840,264,2298,230,3880,2988,248,662,4352,1371,640,743,153,6405,1297,1473,4382
"筑紫野市",1670,2834,190,3098,6983,7810,7013,1290,369,1222,3482,47,10860,571,4686,476,7297,6498,442,1070,8679,2413,1338,1278,277,9733,2386,3039,8076
"春日市",1503,3029,237,3589,6024,8161,7272,1388,427,1200,3808,44,10840,512,5346,596,7449,8030,505,1174,9169,2679,1286,1138,304,9614,2769,3285,6620
"大野城市",1291,2841,180,3006,5896,7922,7087,1317,396,981,3545,45,9606,546,4791,488,7121,6499,481,1014,8662,2551,1373,1006,255,9033,2430,2982,6516
"宗像市",2335,2587,182,2788,6181,6686,6558,983,453,1278,3384,44,9667,494,3775,417,6976,5733,526,1114,7402,2348,1086,2001,232,8583,2220,2861,6605
"太宰府市",1199,1737,146,2040,4580,5176,4435,825,239,895,2530,33,7133,361,3029,331,4608,4702,290,805,5715,1626,788,974,188,6318,1611,2187,4976
"古賀市",887,1486,96,1627,3465,4037,3649,557,235,790,2019,27,5344,219,3283,245,4140,4066,278,732,4372,1397,555,730,161,4918,1302,1628,3635
"福津市",1287,1781,121,1868,3889,4901,4508,802,271,899,2239,26,5928,325,2804,263,4809,3744,341,861,5367,1607,761,1035,154,5534,1464,1894,4259
"うきは市",393,431,44,500,1580,1776,1090,177,90,386,949,11,3105,74,1535,127,1076,2156,114,339,1874,451,188,295,69,2794,424,743,1793
"宮若市",459,411,45,505,1387,1584,1148,130,65,280,1025,5,2418,101,1692,83,1193,2199,93,247,1751,404,148,382,68,2179,464,874,1364
"嘉麻市",534,488,50,570,1879,1710,1024,155,97,447,1289,11,3386,108,2955,130,1179,3563,117,412,1937,460,171,474,74,3203,430,1080,1949
"朝倉市",596,865,75,968,2893,3077,2023,269,162,495,1584,20,6777,176,2377,162,1931,2806,189,465,3343,763,308,429,102,7115,741,1270,3103
"みやま市",418,542,46,630,2593,2046,1371,175,109,370,1015,13,4493,111,1437,125,1283,1644,116,249,2148,424,215,298,79,4140,532,806,3616
"糸島市",1612,2317,298,2707,5789,7013,5406,1240,419,1088,4290,41,10367,472,5016,398,5656,6071,515,994,7763,2063,1199,1486,266,10298,2170,3583,6608
"那珂川市",865,1122,104,1303,2261,3574,2736,466,192,505,1903,15,4133,224,2499,287,2786,3511,218,570,3992,1036,464,703,176,3739,1029,1574,2454
"宇美町",518,787,54,909,1768,2548,1659,228,106,279,1366,21,2766,118,2550,144,1755,3273,136,289,2788,732,249,413,81,2398,735,1103,1932
"篠栗町",441,822,48,904,1601,2314,1918,291,101,294,1106,15,2587,147,1460,144,1957,2054,128,333,2506,758,303,360,87,2228,775,938,1816
"志免町",556,1088,83,1242,2041,3354,2599,387,132,389,1656,23,3176,210,2335,228,2784,2878,181,338,3731,1133,392,456,127,2912,1002,1401,2160
"須恵町",356,622,54,668,1185,2117,1416,223,81,241,1054,14,2009,105,1648,115,1438,2120,104,248,2348,643,210,273,62,1799,519,904,1271
"新宮町",422,978,67,970,1741,2435,2254,441,141,293,1027,12,2753,200,1265,134,2489,1687,187,282,2738,858,441,354,78,2543,770,870,1805
"久山町",141,222,18,246,412,636,472,71,23,70,342,3,895,47,459,50,499,605,40,71,722,197,85,114,26,794,173,314,464
"粕屋町",662,1179,81,1371,1866,3537,3157,534,155,324,1657,14,3487,221,2304,217,3240,2863,191,343,3978,1088,520,555,112,3147,1074,1373,2254
"芦屋町",220,188,19,266,648,913,555,87,35,98,524,5,1463,47,817,39,573,1105,49,74,1032,190,76,210,28,1270,215,458,668
"水巻町",797,478,34,672,1346,1671,1235,177,80,231,994,8,2241,107,1879,97,1287,2316,105,181,1846,464,208,669,59,1996,539,890,1498
"岡垣町",652,747,58,829,2046,2074,1902,223,82,365,1292,17,2901,127,1739,131,1926,2270,117,384,2277,670,253,585,89,2794,654,1091,2064
"遠賀町",471,381,29,431,1206,1237,912,117,52,185,670,10,2004,92,980,59,905,1236,63,156,1352,341,157,390,42,1919,350,599,1299
"小竹町",191,114,7,125,385,382,277,42,19,102,282,3,827,13,548,25,301,688,30,80,419,108,37,155,16,769,103,230,440
"鞍手町",337,284,26,285,839,991,666,85,33,189,658,2,1554,61,1091,61,681,1368,50,180,1091,263,82,280,61,1479,236,551,831
"桂川町",276,216,17,256,816,721,543,63,35,172,519,5,1232,39,868,37,552,1072,41,159,831,220,57,222,28,1147,217,439,880
"筑前町",389,572,42,751,1762,2107,1441,199,94,307,1124,11,3181,111,1475,124,1381,1899,116,240,2324,538,222,318,91,2990,581,960,2022
"東峰村",15,25,7,39,113,117,56,13,8,17,50,0,412,2,70,4,68,96,18,17,128,22,9,12,1,406,30,42,109
"大刀洗町",229,290,38,373,866,1085,780,95,43,112,598,9,1622,68,524,64,802,629,60,121,1171,275,111,191,67,1620,298,513,966
"大木町",144,247,20,269,796,1009,668,72,38,132,476,5,1482,39,624,42,669,829,44,92,1075,197,56,143,34,1295,223,391,1029
"広川町",261,376,30,403,1335,1260,809,112,35,153,675,9,2130,83,868,59,723,1023,48,82,1305,270,100,172,34,1702,300,474,2502
"香春町",207,191,12,159,501,505,319,57,23,164,376,3,1152,85,748,45,338,1001,32,172,565,220,51,160,38,1006,174,327,541
"添田町",183,158,3,156,475,453,232,27,7,122,327,4,1091,46,657,30,221,908,15,106,496,156,28,165,24,947,127,251,544
"糸田町",130,139,11,150,306,442,242,30,20,140,386,2,723,38,681,13,249,935,24,129,488,134,34,118,20,607,123,292,366
"川崎町",285,201,6,223,526,618,351,36,30,222,556,2,1401,113,1375,38,349,1799,40,206,719,229,45,259,51,1131,174,457,532
"大任町",52,71,11,83,171,283,153,12,14,55,232,0,511,37,462,20,140,619,23,62,322,82,17,43,18,426,65,158,205
"赤村",38,43,5,49,144,162,106,15,11,60,98,2,346,12,196,12,110,280,15,67,178,45,10,29,12,291,34,76,161
"福智町",400,332,18,396,869,1193,651,75,64,394,902,12,1782,133,1261,68,660,1625,73,376,1388,374,86,357,61,1625,361,737,920
"苅田町",532,875,45,900,1822,2466,2902,229,99,358,1381,17,3031,142,1641,165,2790,2099,136,306,2792,869,233,458,151,2883,776,1223,1861
"みやこ町",344,389,20,314,1126,958,853,87,51,207,644,10,2179,62,966,69,775,1207,74,186,1094,313,80,266,61,2170,249,530,1254
"吉富町",175,126,5,139,359,427,303,38,23,61,227,1,728,30,374,18,289,451,33,60,481,127,46,124,15,773,120,179,354
"上毛町",145,176,9,159,514,456,384,32,21,105,286,5,1021,39,278,19,345,387,21,93,484,160,39,105,6,1107,174,234,506
"築上町",298,416,14,403,913,1004,761,78,45,224,552,5,2478,56,708,68,709,763,65,185,1069,300,70,184,47,3183,307,407,824'
df <- read_csv(csv_text)
## Rows: 72 Columns: 30
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): 市区町村名
## 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.
knitr::kable(df)
| 市区町村名 | 日本共産党 | 日本維新の会 | 無所属連合 | 日本保守党 | 立憲民主党 | 参政党 | 国民民主党 | チームみらい | 日本誠真会 | 社会民主党 | れいわ新選組 | 日本改革党 | 自由民主党 | 再生 of 道 | 公明党 | NHK党 | KWM | SHM | TMN | NAS | NKD | ITO | FRK | YMG | MRK | MTS | MOR | OKZ | NOD |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 門司区 | 2361 | 1921 | 126 | 2249 | 5077 | 4970 | 3806 | 757 | 306 | 999 | 2661 | 35 | 7973 | 321 | 6226 | 432 | 4181 | 7945 | 366 | 802 | 5533 | 1744 | 696 | 2014 | 242 | 7369 | 1791 | 2196 | 5488 |
| 小倉北区 | 3803 | 3357 | 313 | 5025 | 7420 | 10500 | 9143 | 1858 | 614 | 1465 | 5010 | 56 | 13332 | 710 | 8703 | 950 | 10277 | 11162 | 730 | 1201 | 11830 | 3140 | 1935 | 3368 | 441 | 11826 | 3959 | 4139 | 8346 |
| 小倉南区 | 4392 | 3965 | 284 | 5101 | 9975 | 12703 | 10912 | 1613 | 675 | 1687 | 6518 | 86 | 15551 | 881 | 10783 | 919 | 11354 | 13981 | 781 | 1387 | 14060 | 3721 | 1605 | 3784 | 533 | 13726 | 4169 | 5461 | 11794 |
| 若松区 | 2548 | 1436 | 105 | 1933 | 3923 | 4957 | 3802 | 567 | 282 | 701 | 2468 | 34 | 6524 | 285 | 4037 | 312 | 4250 | 5207 | 348 | 571 | 5472 | 1323 | 612 | 2411 | 202 | 5712 | 1506 | 2040 | 4324 |
| 八幡東区 | 1540 | 1303 | 108 | 1569 | 3438 | 3712 | 3134 | 596 | 185 | 664 | 1762 | 27 | 5556 | 250 | 3812 | 328 | 3644 | 4797 | 236 | 540 | 4140 | 1144 | 606 | 1366 | 173 | 5047 | 1248 | 1426 | 3671 |
| 八幡西区 | 5108 | 4946 | 414 | 6047 | 12677 | 15203 | 12931 | 2043 | 749 | 2282 | 7552 | 94 | 18848 | 1011 | 12939 | 1063 | 13877 | 16542 | 884 | 1943 | 17440 | 4597 | 2092 | 4558 | 655 | 16646 | 4826 | 6263 | 13696 |
| 戸畑区 | 1909 | 1150 | 88 | 1530 | 2721 | 3261 | 3030 | 539 | 171 | 514 | 1497 | 16 | 4979 | 180 | 3074 | 277 | 3340 | 4003 | 195 | 389 | 3756 | 970 | 570 | 1734 | 156 | 4346 | 1188 | 1230 | 3073 |
| 東区 | 5834 | 8201 | 548 | 10236 | 15805 | 23856 | 21113 | 4415 | 1164 | 3163 | 10207 | 126 | 24690 | 1384 | 14419 | 1675 | 22553 | 17804 | 1456 | 2782 | 26676 | 7450 | 4047 | 4918 | 862 | 24103 | 7985 | 8452 | 17937 |
| 博多区 | 3181 | 5523 | 420 | 8532 | 8520 | 19361 | 17338 | 3495 | 815 | 1710 | 7252 | 118 | 16170 | 1044 | 10086 | 1398 | 18589 | 12193 | 1004 | 1803 | 21655 | 5139 | 3223 | 2714 | 721 | 15449 | 6629 | 6224 | 9579 |
| 中央区 | 3356 | 5435 | 541 | 8268 | 9628 | 15730 | 14660 | 4735 | 1024 | 1901 | 5647 | 77 | 17431 | 993 | 6053 | 1150 | 16964 | 7719 | 1162 | 1635 | 17794 | 4709 | 4206 | 2642 | 522 | 16569 | 6706 | 4929 | 10891 |
| 南区 | 4242 | 6496 | 519 | 8774 | 13668 | 19702 | 17277 | 3882 | 1102 | 2314 | 8759 | 111 | 22116 | 1243 | 11473 | 1502 | 18975 | 14613 | 1320 | 2008 | 22050 | 5902 | 3683 | 3582 | 815 | 20208 | 7260 | 7285 | 15382 |
| 城南区 | 2512 | 3217 | 251 | 3945 | 7005 | 9146 | 8344 | 1834 | 525 | 1326 | 4081 | 47 | 11613 | 584 | 5562 | 627 | 9124 | 6943 | 653 | 1097 | 10135 | 2970 | 1759 | 2031 | 308 | 11005 | 3264 | 3532 | 7738 |
| 早良区 | 3775 | 5949 | 407 | 6899 | 11909 | 15300 | 14541 | 3491 | 930 | 2258 | 6951 | 94 | 19743 | 1034 | 11076 | 1192 | 16939 | 13638 | 1061 | 1930 | 17099 | 5125 | 3238 | 3199 | 617 | 18460 | 5462 | 5827 | 12977 |
| 西区 | 3308 | 5802 | 335 | 6223 | 11855 | 14636 | 14142 | 3155 | 727 | 2139 | 6785 | 93 | 17899 | 1047 | 9046 | 1034 | 14874 | 11143 | 884 | 2114 | 16308 | 5461 | 2901 | 3159 | 549 | 17368 | 5261 | 5682 | 12725 |
| 大牟田市 | 2724 | 1725 | 145 | 2159 | 6628 | 5703 | 4256 | 666 | 364 | 1270 | 3408 | 36 | 9271 | 347 | 7022 | 471 | 4110 | 8670 | 454 | 932 | 6523 | 1495 | 685 | 2319 | 314 | 8166 | 1738 | 2644 | 8516 |
| 久留米市 | 3675 | 5740 | 458 | 7253 | 15063 | 19430 | 15008 | 2562 | 1030 | 2837 | 9443 | 141 | 28343 | 1153 | 14912 | 1418 | 15946 | 19007 | 1212 | 2552 | 21340 | 5023 | 2586 | 2965 | 831 | 25267 | 5727 | 7452 | 18621 |
| 直方市 | 1273 | 932 | 75 | 1242 | 2795 | 3463 | 2576 | 331 | 173 | 626 | 2220 | 26 | 5192 | 208 | 2838 | 234 | 2588 | 3635 | 221 | 606 | 3903 | 881 | 364 | 1073 | 211 | 4819 | 1032 | 1932 | 2950 |
| 飯塚市 | 2143 | 2204 | 177 | 2846 | 6146 | 7688 | 5514 | 870 | 344 | 1382 | 4567 | 45 | 12712 | 503 | 7681 | 489 | 5788 | 9818 | 436 | 1248 | 8780 | 2201 | 907 | 1877 | 420 | 11458 | 2243 | 3723 | 6465 |
| 田川市 | 1120 | 767 | 51 | 875 | 1776 | 2438 | 1646 | 202 | 131 | 831 | 1791 | 27 | 3634 | 507 | 2543 | 164 | 1585 | 3472 | 204 | 812 | 2843 | 783 | 234 | 970 | 132 | 3115 | 721 | 1473 | 2200 |
| 柳川市 | 778 | 946 | 103 | 1227 | 3846 | 3861 | 2410 | 329 | 216 | 501 | 1887 | 25 | 7261 | 205 | 3059 | 241 | 2227 | 3845 | 253 | 362 | 4286 | 805 | 341 | 540 | 157 | 6642 | 959 | 1511 | 5280 |
| 八女市 | 868 | 800 | 78 | 1252 | 4227 | 3769 | 2170 | 350 | 199 | 461 | 1790 | 24 | 7227 | 201 | 3276 | 188 | 1813 | 3854 | 217 | 301 | 3925 | 620 | 341 | 567 | 110 | 6157 | 945 | 1209 | 7533 |
| 筑後市 | 577 | 847 | 82 | 1137 | 3389 | 3260 | 2227 | 375 | 146 | 480 | 1675 | 13 | 4719 | 185 | 2600 | 207 | 2261 | 3218 | 184 | 329 | 3458 | 708 | 375 | 420 | 111 | 4041 | 865 | 1262 | 4825 |
| 大川市 | 352 | 500 | 51 | 597 | 1715 | 2007 | 1330 | 192 | 108 | 248 | 980 | 9 | 3753 | 84 | 1725 | 106 | 1290 | 2028 | 125 | 204 | 2168 | 458 | 204 | 281 | 74 | 3602 | 486 | 791 | 2121 |
| 行橋市 | 1094 | 1685 | 102 | 1760 | 3904 | 4668 | 4669 | 448 | 256 | 827 | 2590 | 46 | 6906 | 326 | 3213 | 290 | 4811 | 4079 | 305 | 704 | 5136 | 1581 | 445 | 910 | 222 | 7000 | 1438 | 2186 | 3969 |
| 豊前市 | 377 | 497 | 45 | 453 | 1460 | 1542 | 1103 | 130 | 77 | 340 | 871 | 16 | 3149 | 99 | 1117 | 95 | 1059 | 1650 | 134 | 286 | 1632 | 430 | 142 | 338 | 80 | 3168 | 396 | 701 | 1383 |
| 中間市 | 860 | 622 | 54 | 813 | 2008 | 2125 | 1526 | 223 | 100 | 429 | 1263 | 9 | 3209 | 142 | 2518 | 144 | 1601 | 3130 | 133 | 343 | 2386 | 608 | 238 | 744 | 124 | 2850 | 645 | 1113 | 2106 |
| 小郡市 | 825 | 1388 | 95 | 1624 | 3985 | 4056 | 3636 | 611 | 208 | 721 | 1842 | 16 | 6840 | 264 | 2298 | 230 | 3880 | 2988 | 248 | 662 | 4352 | 1371 | 640 | 743 | 153 | 6405 | 1297 | 1473 | 4382 |
| 筑紫野市 | 1670 | 2834 | 190 | 3098 | 6983 | 7810 | 7013 | 1290 | 369 | 1222 | 3482 | 47 | 10860 | 571 | 4686 | 476 | 7297 | 6498 | 442 | 1070 | 8679 | 2413 | 1338 | 1278 | 277 | 9733 | 2386 | 3039 | 8076 |
| 春日市 | 1503 | 3029 | 237 | 3589 | 6024 | 8161 | 7272 | 1388 | 427 | 1200 | 3808 | 44 | 10840 | 512 | 5346 | 596 | 7449 | 8030 | 505 | 1174 | 9169 | 2679 | 1286 | 1138 | 304 | 9614 | 2769 | 3285 | 6620 |
| 大野城市 | 1291 | 2841 | 180 | 3006 | 5896 | 7922 | 7087 | 1317 | 396 | 981 | 3545 | 45 | 9606 | 546 | 4791 | 488 | 7121 | 6499 | 481 | 1014 | 8662 | 2551 | 1373 | 1006 | 255 | 9033 | 2430 | 2982 | 6516 |
| 宗像市 | 2335 | 2587 | 182 | 2788 | 6181 | 6686 | 6558 | 983 | 453 | 1278 | 3384 | 44 | 9667 | 494 | 3775 | 417 | 6976 | 5733 | 526 | 1114 | 7402 | 2348 | 1086 | 2001 | 232 | 8583 | 2220 | 2861 | 6605 |
| 太宰府市 | 1199 | 1737 | 146 | 2040 | 4580 | 5176 | 4435 | 825 | 239 | 895 | 2530 | 33 | 7133 | 361 | 3029 | 331 | 4608 | 4702 | 290 | 805 | 5715 | 1626 | 788 | 974 | 188 | 6318 | 1611 | 2187 | 4976 |
| 古賀市 | 887 | 1486 | 96 | 1627 | 3465 | 4037 | 3649 | 557 | 235 | 790 | 2019 | 27 | 5344 | 219 | 3283 | 245 | 4140 | 4066 | 278 | 732 | 4372 | 1397 | 555 | 730 | 161 | 4918 | 1302 | 1628 | 3635 |
| 福津市 | 1287 | 1781 | 121 | 1868 | 3889 | 4901 | 4508 | 802 | 271 | 899 | 2239 | 26 | 5928 | 325 | 2804 | 263 | 4809 | 3744 | 341 | 861 | 5367 | 1607 | 761 | 1035 | 154 | 5534 | 1464 | 1894 | 4259 |
| うきは市 | 393 | 431 | 44 | 500 | 1580 | 1776 | 1090 | 177 | 90 | 386 | 949 | 11 | 3105 | 74 | 1535 | 127 | 1076 | 2156 | 114 | 339 | 1874 | 451 | 188 | 295 | 69 | 2794 | 424 | 743 | 1793 |
| 宮若市 | 459 | 411 | 45 | 505 | 1387 | 1584 | 1148 | 130 | 65 | 280 | 1025 | 5 | 2418 | 101 | 1692 | 83 | 1193 | 2199 | 93 | 247 | 1751 | 404 | 148 | 382 | 68 | 2179 | 464 | 874 | 1364 |
| 嘉麻市 | 534 | 488 | 50 | 570 | 1879 | 1710 | 1024 | 155 | 97 | 447 | 1289 | 11 | 3386 | 108 | 2955 | 130 | 1179 | 3563 | 117 | 412 | 1937 | 460 | 171 | 474 | 74 | 3203 | 430 | 1080 | 1949 |
| 朝倉市 | 596 | 865 | 75 | 968 | 2893 | 3077 | 2023 | 269 | 162 | 495 | 1584 | 20 | 6777 | 176 | 2377 | 162 | 1931 | 2806 | 189 | 465 | 3343 | 763 | 308 | 429 | 102 | 7115 | 741 | 1270 | 3103 |
| みやま市 | 418 | 542 | 46 | 630 | 2593 | 2046 | 1371 | 175 | 109 | 370 | 1015 | 13 | 4493 | 111 | 1437 | 125 | 1283 | 1644 | 116 | 249 | 2148 | 424 | 215 | 298 | 79 | 4140 | 532 | 806 | 3616 |
| 糸島市 | 1612 | 2317 | 298 | 2707 | 5789 | 7013 | 5406 | 1240 | 419 | 1088 | 4290 | 41 | 10367 | 472 | 5016 | 398 | 5656 | 6071 | 515 | 994 | 7763 | 2063 | 1199 | 1486 | 266 | 10298 | 2170 | 3583 | 6608 |
| 那珂川市 | 865 | 1122 | 104 | 1303 | 2261 | 3574 | 2736 | 466 | 192 | 505 | 1903 | 15 | 4133 | 224 | 2499 | 287 | 2786 | 3511 | 218 | 570 | 3992 | 1036 | 464 | 703 | 176 | 3739 | 1029 | 1574 | 2454 |
| 宇美町 | 518 | 787 | 54 | 909 | 1768 | 2548 | 1659 | 228 | 106 | 279 | 1366 | 21 | 2766 | 118 | 2550 | 144 | 1755 | 3273 | 136 | 289 | 2788 | 732 | 249 | 413 | 81 | 2398 | 735 | 1103 | 1932 |
| 篠栗町 | 441 | 822 | 48 | 904 | 1601 | 2314 | 1918 | 291 | 101 | 294 | 1106 | 15 | 2587 | 147 | 1460 | 144 | 1957 | 2054 | 128 | 333 | 2506 | 758 | 303 | 360 | 87 | 2228 | 775 | 938 | 1816 |
| 志免町 | 556 | 1088 | 83 | 1242 | 2041 | 3354 | 2599 | 387 | 132 | 389 | 1656 | 23 | 3176 | 210 | 2335 | 228 | 2784 | 2878 | 181 | 338 | 3731 | 1133 | 392 | 456 | 127 | 2912 | 1002 | 1401 | 2160 |
| 須恵町 | 356 | 622 | 54 | 668 | 1185 | 2117 | 1416 | 223 | 81 | 241 | 1054 | 14 | 2009 | 105 | 1648 | 115 | 1438 | 2120 | 104 | 248 | 2348 | 643 | 210 | 273 | 62 | 1799 | 519 | 904 | 1271 |
| 新宮町 | 422 | 978 | 67 | 970 | 1741 | 2435 | 2254 | 441 | 141 | 293 | 1027 | 12 | 2753 | 200 | 1265 | 134 | 2489 | 1687 | 187 | 282 | 2738 | 858 | 441 | 354 | 78 | 2543 | 770 | 870 | 1805 |
| 久山町 | 141 | 222 | 18 | 246 | 412 | 636 | 472 | 71 | 23 | 70 | 342 | 3 | 895 | 47 | 459 | 50 | 499 | 605 | 40 | 71 | 722 | 197 | 85 | 114 | 26 | 794 | 173 | 314 | 464 |
| 粕屋町 | 662 | 1179 | 81 | 1371 | 1866 | 3537 | 3157 | 534 | 155 | 324 | 1657 | 14 | 3487 | 221 | 2304 | 217 | 3240 | 2863 | 191 | 343 | 3978 | 1088 | 520 | 555 | 112 | 3147 | 1074 | 1373 | 2254 |
| 芦屋町 | 220 | 188 | 19 | 266 | 648 | 913 | 555 | 87 | 35 | 98 | 524 | 5 | 1463 | 47 | 817 | 39 | 573 | 1105 | 49 | 74 | 1032 | 190 | 76 | 210 | 28 | 1270 | 215 | 458 | 668 |
| 水巻町 | 797 | 478 | 34 | 672 | 1346 | 1671 | 1235 | 177 | 80 | 231 | 994 | 8 | 2241 | 107 | 1879 | 97 | 1287 | 2316 | 105 | 181 | 1846 | 464 | 208 | 669 | 59 | 1996 | 539 | 890 | 1498 |
| 岡垣町 | 652 | 747 | 58 | 829 | 2046 | 2074 | 1902 | 223 | 82 | 365 | 1292 | 17 | 2901 | 127 | 1739 | 131 | 1926 | 2270 | 117 | 384 | 2277 | 670 | 253 | 585 | 89 | 2794 | 654 | 1091 | 2064 |
| 遠賀町 | 471 | 381 | 29 | 431 | 1206 | 1237 | 912 | 117 | 52 | 185 | 670 | 10 | 2004 | 92 | 980 | 59 | 905 | 1236 | 63 | 156 | 1352 | 341 | 157 | 390 | 42 | 1919 | 350 | 599 | 1299 |
| 小竹町 | 191 | 114 | 7 | 125 | 385 | 382 | 277 | 42 | 19 | 102 | 282 | 3 | 827 | 13 | 548 | 25 | 301 | 688 | 30 | 80 | 419 | 108 | 37 | 155 | 16 | 769 | 103 | 230 | 440 |
| 鞍手町 | 337 | 284 | 26 | 285 | 839 | 991 | 666 | 85 | 33 | 189 | 658 | 2 | 1554 | 61 | 1091 | 61 | 681 | 1368 | 50 | 180 | 1091 | 263 | 82 | 280 | 61 | 1479 | 236 | 551 | 831 |
| 桂川町 | 276 | 216 | 17 | 256 | 816 | 721 | 543 | 63 | 35 | 172 | 519 | 5 | 1232 | 39 | 868 | 37 | 552 | 1072 | 41 | 159 | 831 | 220 | 57 | 222 | 28 | 1147 | 217 | 439 | 880 |
| 筑前町 | 389 | 572 | 42 | 751 | 1762 | 2107 | 1441 | 199 | 94 | 307 | 1124 | 11 | 3181 | 111 | 1475 | 124 | 1381 | 1899 | 116 | 240 | 2324 | 538 | 222 | 318 | 91 | 2990 | 581 | 960 | 2022 |
| 東峰村 | 15 | 25 | 7 | 39 | 113 | 117 | 56 | 13 | 8 | 17 | 50 | 0 | 412 | 2 | 70 | 4 | 68 | 96 | 18 | 17 | 128 | 22 | 9 | 12 | 1 | 406 | 30 | 42 | 109 |
| 大刀洗町 | 229 | 290 | 38 | 373 | 866 | 1085 | 780 | 95 | 43 | 112 | 598 | 9 | 1622 | 68 | 524 | 64 | 802 | 629 | 60 | 121 | 1171 | 275 | 111 | 191 | 67 | 1620 | 298 | 513 | 966 |
| 大木町 | 144 | 247 | 20 | 269 | 796 | 1009 | 668 | 72 | 38 | 132 | 476 | 5 | 1482 | 39 | 624 | 42 | 669 | 829 | 44 | 92 | 1075 | 197 | 56 | 143 | 34 | 1295 | 223 | 391 | 1029 |
| 広川町 | 261 | 376 | 30 | 403 | 1335 | 1260 | 809 | 112 | 35 | 153 | 675 | 9 | 2130 | 83 | 868 | 59 | 723 | 1023 | 48 | 82 | 1305 | 270 | 100 | 172 | 34 | 1702 | 300 | 474 | 2502 |
| 香春町 | 207 | 191 | 12 | 159 | 501 | 505 | 319 | 57 | 23 | 164 | 376 | 3 | 1152 | 85 | 748 | 45 | 338 | 1001 | 32 | 172 | 565 | 220 | 51 | 160 | 38 | 1006 | 174 | 327 | 541 |
| 添田町 | 183 | 158 | 3 | 156 | 475 | 453 | 232 | 27 | 7 | 122 | 327 | 4 | 1091 | 46 | 657 | 30 | 221 | 908 | 15 | 106 | 496 | 156 | 28 | 165 | 24 | 947 | 127 | 251 | 544 |
| 糸田町 | 130 | 139 | 11 | 150 | 306 | 442 | 242 | 30 | 20 | 140 | 386 | 2 | 723 | 38 | 681 | 13 | 249 | 935 | 24 | 129 | 488 | 134 | 34 | 118 | 20 | 607 | 123 | 292 | 366 |
| 川崎町 | 285 | 201 | 6 | 223 | 526 | 618 | 351 | 36 | 30 | 222 | 556 | 2 | 1401 | 113 | 1375 | 38 | 349 | 1799 | 40 | 206 | 719 | 229 | 45 | 259 | 51 | 1131 | 174 | 457 | 532 |
| 大任町 | 52 | 71 | 11 | 83 | 171 | 283 | 153 | 12 | 14 | 55 | 232 | 0 | 511 | 37 | 462 | 20 | 140 | 619 | 23 | 62 | 322 | 82 | 17 | 43 | 18 | 426 | 65 | 158 | 205 |
| 赤村 | 38 | 43 | 5 | 49 | 144 | 162 | 106 | 15 | 11 | 60 | 98 | 2 | 346 | 12 | 196 | 12 | 110 | 280 | 15 | 67 | 178 | 45 | 10 | 29 | 12 | 291 | 34 | 76 | 161 |
| 福智町 | 400 | 332 | 18 | 396 | 869 | 1193 | 651 | 75 | 64 | 394 | 902 | 12 | 1782 | 133 | 1261 | 68 | 660 | 1625 | 73 | 376 | 1388 | 374 | 86 | 357 | 61 | 1625 | 361 | 737 | 920 |
| 苅田町 | 532 | 875 | 45 | 900 | 1822 | 2466 | 2902 | 229 | 99 | 358 | 1381 | 17 | 3031 | 142 | 1641 | 165 | 2790 | 2099 | 136 | 306 | 2792 | 869 | 233 | 458 | 151 | 2883 | 776 | 1223 | 1861 |
| みやこ町 | 344 | 389 | 20 | 314 | 1126 | 958 | 853 | 87 | 51 | 207 | 644 | 10 | 2179 | 62 | 966 | 69 | 775 | 1207 | 74 | 186 | 1094 | 313 | 80 | 266 | 61 | 2170 | 249 | 530 | 1254 |
| 吉富町 | 175 | 126 | 5 | 139 | 359 | 427 | 303 | 38 | 23 | 61 | 227 | 1 | 728 | 30 | 374 | 18 | 289 | 451 | 33 | 60 | 481 | 127 | 46 | 124 | 15 | 773 | 120 | 179 | 354 |
| 上毛町 | 145 | 176 | 9 | 159 | 514 | 456 | 384 | 32 | 21 | 105 | 286 | 5 | 1021 | 39 | 278 | 19 | 345 | 387 | 21 | 93 | 484 | 160 | 39 | 105 | 6 | 1107 | 174 | 234 | 506 |
| 築上町 | 298 | 416 | 14 | 403 | 913 | 1004 | 761 | 78 | 45 | 224 | 552 | 5 | 2478 | 56 | 708 | 68 | 709 | 763 | 65 | 185 | 1069 | 300 | 70 | 184 | 47 | 3183 | 307 | 407 | 824 |
## `geom_smooth()` using formula = 'y ~ x'
# 6. グラフの表示
print(g)
# 保存用
# ggsave("COR_Total_Correlation.png", g, width = 10, height = 7, dpi = 300)
以下に各グラフの詳細をまとめます。
1. CORと対応分析第2軸座標(支持基盤の質)の関係
この散布図は、候補者の支持基盤の性質と集票力の関係を示しています。
• 縦軸(平均COR): 1.0を基準とし、1.0以上であれば「政党の基礎票を上回る集票」ができていることを示します。
• 横軸(第2軸座標): 支持基盤のタイプを表す標準化スコアです。「正(プラス)」方向が**「組織型」、「負(マイナス)」方向が「越境型」**と定義されています。
• 傾向:
◦ SHMやYMGなどの候補は「組織型」の傾向が強く、特にSHMは高いCORを記録しています。
◦ NODやMTSなどは「越境型」の傾向(マイナス側)に位置しています。
◦ MRKはCORが極端に低く、支持基盤の獲得に苦戦している様子が見て取れます。
2. CA距離とCORの相関
このグラフは、候補者と政党の「距離(独自性)」が候補者超過達成比率(COR)にどう影響するかを分析しています。
• 縦軸: 県全体での合計COR。
• 横軸: 政党と候補者のCA空間上の距離(Dim1-2)。距離が離れるほど、その候補者の「独自性」が高いことを示唆していると考えられます。
• 分析結果:
◦ 赤い点線(回帰直線)が右肩下がりになっていることから、政党との距離が離れる(独自性が強すぎる、または党と乖離する)ほど、CORは低下するという負の相関関係が見られます。
◦ SHMやTMNは政党との距離が近く、高いCORを維持しています。一方で、MRKは距離が遠く、CORも低い位置にあります。
3. 政党相対得票率とCORの総合相関図
このグラフは、全候補者・全地域のデータを用いた全体的な傾向を示しています。
• 縦軸: COR(候補者相対シェア ÷ 政党相対シェア)。
• 横軸: 政党相対得票率(個別政党の得票数 ÷ 全政党の得票数)。その地域における政党の強さを示します。
• 傾向:
◦ 黒い実線(全体の平均的傾向)は、横軸の値に関わらずほぼ1.0付近でフラットに推移しています。
◦ これは、政党の地盤の強弱(得票率の大小)に関わらず、候補者が党の基礎票に対してどれだけ上乗せできるか(COR)の平均的な傾向は一定であることを示唆していますが、個別のドット(各候補者・地域)のばらつきは大きいことがわかります。