read_csvを使う場合
library(readr) # read_csvのために必要
# データの読み込み
data <- read_csv("data_PC_fixed.csv")
## 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.
str(data)
## spc_tbl_ [72 × 30] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ municipality: chr [1:72] "門司区" "小倉北区" "小倉南区" "若松区" ...
## $ 日本共産党 : num [1:72] 2361 3803 4392 2548 1540 ...
## $ 日本維新の会: num [1:72] 1921 3357 3965 1436 1303 ...
## $ 無所属連合 : num [1:72] 126 313 284 105 108 414 88 548 420 541 ...
## $ 日本保守党 : num [1:72] 2249 5025 5101 1933 1569 ...
## $ 立憲民主党 : num [1:72] 5077 7420 9975 3923 3438 ...
## $ 参政党 : num [1:72] 4970 10500 12703 4957 3712 ...
## $ 国民民主党 : num [1:72] 3806 9143 10912 3802 3134 ...
## $ チームみらい: num [1:72] 757 1858 1613 567 596 ...
## $ 日本誠真会 : num [1:72] 306 614 675 282 185 ...
## $ 社会民主党 : num [1:72] 999 1465 1687 701 664 ...
## $ れいわ新選組: num [1:72] 2661 5010 6518 2468 1762 ...
## $ 日本改革党 : num [1:72] 35 56 86 34 27 94 16 126 118 77 ...
## $ 自由民主党 : num [1:72] 7973 13332 15551 6524 5556 ...
## $ 再生の道 : num [1:72] 321 710 881 285 250 ...
## $ 公明党 : num [1:72] 6226 8703 10783 4037 3812 ...
## $ ＮＨＫ党 : num [1:72] 432 950 919 312 328 ...
## $ KWM : num [1:72] 4181 10277 11354 4250 3644 ...
## $ SHM : num [1:72] 7945 11162 13981 5207 4797 ...
## $ TMN : num [1:72] 366 730 781 348 236 ...
## $ NAS : num [1:72] 802 1201 1387 571 540 ...
## $ NKD : num [1:72] 5533 11830 14060 5472 4140 ...
## $ ITO : num [1:72] 1744 3140 3721 1323 1144 ...
## $ FRK : num [1:72] 696 1935 1605 612 606 ...
## $ YMG : num [1:72] 2014 3368 3784 2411 1366 ...
## $ MRK : num [1:72] 242 441 533 202 173 655 156 862 721 522 ...
## $ MTS : num [1:72] 7369 11826 13726 5712 5047 ...
## $ MOR : num [1:72] 1791 3959 4169 1506 1248 ...
## $ OKZ : num [1:72] 2196 4139 5461 2040 1426 ...
## $ NOD : num [1:72] 5488 8346 11794 4324 3671 ...
## - attr(*, "spec")=
## .. cols(
## .. municipality = col_character(),
## .. 日本共産党 = col_double(),
## .. 日本維新の会 = col_double(),
## .. 無所属連合 = col_double(),
## .. 日本保守党 = col_double(),
## .. 立憲民主党 = col_double(),
## .. 参政党 = col_double(),
## .. 国民民主党 = col_double(),
## .. チームみらい = col_double(),
## .. 日本誠真会 = col_double(),
## .. 社会民主党 = col_double(),
## .. れいわ新選組 = col_double(),
## .. 日本改革党 = col_double(),
## .. 自由民主党 = col_double(),
## .. 再生の道 = col_double(),
## .. 公明党 = col_double(),
## .. ＮＨＫ党 = col_double(),
## .. KWM = col_double(),
## .. SHM = col_double(),
## .. TMN = col_double(),
## .. NAS = col_double(),
## .. NKD = col_double(),
## .. ITO = col_double(),
## .. FRK = col_double(),
## .. YMG = col_double(),
## .. MRK = col_double(),
## .. MTS = col_double(),
## .. MOR = col_double(),
## .. OKZ = col_double(),
## .. NOD = col_double()
## .. )
## - attr(*, "problems")=<externalptr>
# municipalityの列と29の政党と候補者の列がある
data_mat <- as.data.frame(data[,-1]) # 1列目の削除、tibbleからdata.frameに変換
rownames(data_mat) <- data[[1]] # municipalityを取り出して列名にする
str(data_mat)
## 'data.frame': 72 obs. of 29 variables:
## $ 日本共産党 : num 2361 3803 4392 2548 1540 ...
## $ 日本維新の会: num 1921 3357 3965 1436 1303 ...
## $ 無所属連合 : num 126 313 284 105 108 414 88 548 420 541 ...
## $ 日本保守党 : num 2249 5025 5101 1933 1569 ...
## $ 立憲民主党 : num 5077 7420 9975 3923 3438 ...
## $ 参政党 : num 4970 10500 12703 4957 3712 ...
## $ 国民民主党 : num 3806 9143 10912 3802 3134 ...
## $ チームみらい: num 757 1858 1613 567 596 ...
## $ 日本誠真会 : num 306 614 675 282 185 ...
## $ 社会民主党 : num 999 1465 1687 701 664 ...
## $ れいわ新選組: num 2661 5010 6518 2468 1762 ...
## $ 日本改革党 : num 35 56 86 34 27 94 16 126 118 77 ...
## $ 自由民主党 : num 7973 13332 15551 6524 5556 ...
## $ 再生の道 : num 321 710 881 285 250 ...
## $ 公明党 : num 6226 8703 10783 4037 3812 ...
## $ ＮＨＫ党 : num 432 950 919 312 328 ...
## $ KWM : num 4181 10277 11354 4250 3644 ...
## $ SHM : num 7945 11162 13981 5207 4797 ...
## $ TMN : num 366 730 781 348 236 ...
## $ NAS : num 802 1201 1387 571 540 ...
## $ NKD : num 5533 11830 14060 5472 4140 ...
## $ ITO : num 1744 3140 3721 1323 1144 ...
## $ FRK : num 696 1935 1605 612 606 ...
## $ YMG : num 2014 3368 3784 2411 1366 ...
## $ MRK : num 242 441 533 202 173 655 156 862 721 522 ...
## $ MTS : num 7369 11826 13726 5712 5047 ...
## $ MOR : num 1791 3959 4169 1506 1248 ...
## $ OKZ : num 2196 4139 5461 2040 1426 ...
## $ NOD : num 5488 8346 11794 4324 3671 ...
head(data_mat)
## 日本共産党 日本維新の会 無所属連合 日本保守党 立憲民主党 参政党
## 門司区 2361 1921 126 2249 5077 4970
## 小倉北区 3803 3357 313 5025 7420 10500
## 小倉南区 4392 3965 284 5101 9975 12703
## 若松区 2548 1436 105 1933 3923 4957
## 八幡東区 1540 1303 108 1569 3438 3712
## 八幡西区 5108 4946 414 6047 12677 15203
## 国民民主党 チームみらい 日本誠真会 社会民主党 れいわ新選組 日本改革党
## 門司区 3806 757 306 999 2661 35
## 小倉北区 9143 1858 614 1465 5010 56
## 小倉南区 10912 1613 675 1687 6518 86
## 若松区 3802 567 282 701 2468 34
## 八幡東区 3134 596 185 664 1762 27
## 八幡西区 12931 2043 749 2282 7552 94
## 自由民主党 再生の道 公明党 ＮＨＫ党 KWM SHM TMN NAS NKD ITO
## 門司区 7973 321 6226 432 4181 7945 366 802 5533 1744
## 小倉北区 13332 710 8703 950 10277 11162 730 1201 11830 3140
## 小倉南区 15551 881 10783 919 11354 13981 781 1387 14060 3721
## 若松区 6524 285 4037 312 4250 5207 348 571 5472 1323
## 八幡東区 5556 250 3812 328 3644 4797 236 540 4140 1144
## 八幡西区 18848 1011 12939 1063 13877 16542 884 1943 17440 4597
## FRK YMG MRK MTS MOR OKZ NOD
## 門司区 696 2014 242 7369 1791 2196 5488
## 小倉北区 1935 3368 441 11826 3959 4139 8346
## 小倉南区 1605 3784 533 13726 4169 5461 11794
## 若松区 612 2411 202 5712 1506 2040 4324
## 八幡東区 606 1366 173 5047 1248 1426 3671
## 八幡西区 2092 4558 655 16646 4826 6263 13696
read.csvを使う場合
# データの読み込み（1列目を行名に指定）
data <- read.csv("data_PC_fixed.csv", row.names = 1, check.names = FALSE)
str(data)
## 'data.frame': 72 obs. of 29 variables:
## $ 日本共産党 : int 2361 3803 4392 2548 1540 5108 1909 5834 3181 3356 ...
## $ 日本維新の会: int 1921 3357 3965 1436 1303 4946 1150 8201 5523 5435 ...
## $ 無所属連合 : int 126 313 284 105 108 414 88 548 420 541 ...
## $ 日本保守党 : int 2249 5025 5101 1933 1569 6047 1530 10236 8532 8268 ...
## $ 立憲民主党 : int 5077 7420 9975 3923 3438 12677 2721 15805 8520 9628 ...
## $ 参政党 : int 4970 10500 12703 4957 3712 15203 3261 23856 19361 15730 ...
## $ 国民民主党 : int 3806 9143 10912 3802 3134 12931 3030 21113 17338 14660 ...
## $ チームみらい: int 757 1858 1613 567 596 2043 539 4415 3495 4735 ...
## $ 日本誠真会 : int 306 614 675 282 185 749 171 1164 815 1024 ...
## $ 社会民主党 : int 999 1465 1687 701 664 2282 514 3163 1710 1901 ...
## $ れいわ新選組: int 2661 5010 6518 2468 1762 7552 1497 10207 7252 5647 ...
## $ 日本改革党 : int 35 56 86 34 27 94 16 126 118 77 ...
## $ 自由民主党 : int 7973 13332 15551 6524 5556 18848 4979 24690 16170 17431 ...
## $ 再生の道 : int 321 710 881 285 250 1011 180 1384 1044 993 ...
## $ 公明党 : int 6226 8703 10783 4037 3812 12939 3074 14419 10086 6053 ...
## $ ＮＨＫ党 : int 432 950 919 312 328 1063 277 1675 1398 1150 ...
## $ KWM : int 4181 10277 11354 4250 3644 13877 3340 22553 18589 16964 ...
## $ SHM : int 7945 11162 13981 5207 4797 16542 4003 17804 12193 7719 ...
## $ TMN : int 366 730 781 348 236 884 195 1456 1004 1162 ...
## $ NAS : int 802 1201 1387 571 540 1943 389 2782 1803 1635 ...
## $ NKD : int 5533 11830 14060 5472 4140 17440 3756 26676 21655 17794 ...
## $ ITO : int 1744 3140 3721 1323 1144 4597 970 7450 5139 4709 ...
## $ FRK : int 696 1935 1605 612 606 2092 570 4047 3223 4206 ...
## $ YMG : int 2014 3368 3784 2411 1366 4558 1734 4918 2714 2642 ...
## $ MRK : int 242 441 533 202 173 655 156 862 721 522 ...
## $ MTS : int 7369 11826 13726 5712 5047 16646 4346 24103 15449 16569 ...
## $ MOR : int 1791 3959 4169 1506 1248 4826 1188 7985 6629 6706 ...
## $ OKZ : int 2196 4139 5461 2040 1426 6263 1230 8452 6224 4929 ...
## $ NOD : int 5488 8346 11794 4324 3671 13696 3073 17937 9579 10891 ...
head(data)
## 日本共産党 日本維新の会 無所属連合 日本保守党 立憲民主党 参政党
## 門司区 2361 1921 126 2249 5077 4970
## 小倉北区 3803 3357 313 5025 7420 10500
## 小倉南区 4392 3965 284 5101 9975 12703
## 若松区 2548 1436 105 1933 3923 4957
## 八幡東区 1540 1303 108 1569 3438 3712
## 八幡西区 5108 4946 414 6047 12677 15203
## 国民民主党 チームみらい 日本誠真会 社会民主党 れいわ新選組 日本改革党
## 門司区 3806 757 306 999 2661 35
## 小倉北区 9143 1858 614 1465 5010 56
## 小倉南区 10912 1613 675 1687 6518 86
## 若松区 3802 567 282 701 2468 34
## 八幡東区 3134 596 185 664 1762 27
## 八幡西区 12931 2043 749 2282 7552 94
## 自由民主党 再生の道 公明党 ＮＨＫ党 KWM SHM TMN NAS NKD ITO
## 門司区 7973 321 6226 432 4181 7945 366 802 5533 1744
## 小倉北区 13332 710 8703 950 10277 11162 730 1201 11830 3140
## 小倉南区 15551 881 10783 919 11354 13981 781 1387 14060 3721
## 若松区 6524 285 4037 312 4250 5207 348 571 5472 1323
## 八幡東区 5556 250 3812 328 3644 4797 236 540 4140 1144
## 八幡西区 18848 1011 12939 1063 13877 16542 884 1943 17440 4597
## FRK YMG MRK MTS MOR OKZ NOD
## 門司区 696 2014 242 7369 1791 2196 5488
## 小倉北区 1935 3368 441 11826 3959 4139 8346
## 小倉南区 1605 3784 533 13726 4169 5461 11794
## 若松区 612 2411 202 5712 1506 2040 4324
## 八幡東区 606 1366 173 5047 1248 1426 3671
## 八幡西区 2092 4558 655 16646 4826 6263 13696