データ

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

1. CORと第2軸座標との関係

2. CA距離とCORの相関

## `geom_smooth()` using formula = 'y ~ x'

3. 政党相対得票率とCOR

# 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)の平均的な傾向は一定であることを示唆していますが、個別のドット(各候補者・地域)のばらつきは大きいことがわかります。