dat <- read_excel(path = "temp.xlsx", skip = 1)\n\ndat<\/code><\/pre><\/div>\n\n\n\n## # A tibble: 4,905 \u00d7 51\n## `\u85ac\u52b9\\r\\n\u5206\u985e` \u85ac\u52b9\u5206\u985e\u540d\u79f0 `\u533b\u85ac\u54c1\\r\\n\u30b3\u30fc\u30c9` \u533b\u85ac\u54c1\u540d \u5358\u4f4d \n## <dbl> <chr> <dbl> <chr> <chr>\n## 1 NA <NA> NA <NA> <NA> \n## 2 112 \u50ac\u7720\u93ae\u9759\u5264\u2026 611170508 \u30bd\u30e9\u30ca\u2026 \u9320 \n## 3 NA <NA> 610443047 \u30de\u30a4\u30b9\u2026 \u9320 \n## 4 NA <NA> 620049101 \u30ed\u30e9\u30bc\u2026 \u9320 \n## 5 NA <NA> 611120055 \u30cf\u30eb\u30b7\u2026 \u9320 \n## 6 NA <NA> 620049901 \u30a2\u30eb\u30d7\u2026 \u9320 \n## 7 NA <NA> 610443048 \u30de\u30a4\u30b9\u2026 \u9320 \n## 8 NA <NA> 610463223 \u30ec\u30f3\u30c9\u2026 \u9320 \n## 9 NA <NA> 620004625 \u30ec\u30f3\u30c9\u2026 \u9320 \n## 10 NA <NA> 610444126 \u30d5\u30eb\u30cb\u2026 \u9320 \n## # \u2139 4,895 more rows\n## # \u2139 46 more variables: `\u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\\r\\n\u533b\u85ac\u54c1\u30b3\u30fc\u30c9` <chr>,\n## # \u85ac\u4fa1 <dbl>, `\u5f8c\u767a\u54c1\\r\\n\u533a\u5206` <dbl>, \u7dcf\u8a08 <chr>, \u7537 <chr>,\n## # ...11 <chr>, ...12 <chr>, ...13 <chr>, ...14 <chr>,\n## # ...15 <chr>, ...16 <chr>, ...17 <chr>, ...18 <chr>,\n## # ...19 <chr>, ...20 <chr>, ...21 <chr>, ...22 <chr>,\n## # ...23 <chr>, ...24 <chr>, ...25 <chr>, ...26 <chr>, \u2026\n<\/pre>\n\n\n\n\u305f\u3060\u3001\u8b66\u544a\u304c\u5927\u91cf\u306b\u3067\u3066\u3044\u308b\u306e\u3068\u3001\u5217\u540d\u306b\u6539\u884c\u306e\u30b3\u30fc\u30c9\\r\\n<\/code>\u304c\u5165\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n\u306a\u306e\u3067\u3001\u300c\u3059\u3079\u3066\u30c7\u30fc\u30bf\u3068\u3057\u3066\u300d\u8aad\u307f\u8fbc\u3080\u65b9\u304c\u4fbf\u5229\u306b\u306a\u308a\u307e\u3059\u3002
\u305d\u306e\u5834\u5408\u306f\u3001col_names = FALSE<\/code>\u3068\u8a2d\u5b9a\u3057\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\ndat <- read_excel(path = "temp.xlsx", skip = 1,col_names = FALSE)\n\ndat<\/code><\/pre><\/div>\n\n\n\n## # A tibble: 4,906 \u00d7 51\n## ...1 ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10\n## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>\n## 1 \"\u85ac\u52b9\\\u2026 \u85ac\u52b9\u2026 \"\u533b\u2026 \u533b\u85ac\u2026 \u5358\u4f4d \"\u85ac\u2026 \u85ac\u4fa1 \"\u5f8c\u2026 \u7dcf\u8a08 \u7537 \n## 2 <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> 0\uff5e4\u2026\n## 3 \"112\" \u50ac\u7720\u2026 \"611\u2026 \u30bd\u30e9\u2026 \u9320 \"112\u2026 8.5 \"0\" 1418\u2026 - \n## 4 <NA> <NA> \"610\u2026 \u30de\u30a4\u2026 \u9320 \"112\u2026 40.6 \"0\" 1366\u2026 - \n## 5 <NA> <NA> \"620\u2026 \u30ed\u30e9\u2026 \u9320 \"112\u2026 5 \"1\" 9872\u2026 - \n## 6 <NA> <NA> \"611\u2026 \u30cf\u30eb\u2026 \u9320 \"112\u2026 13.8 \"0\" 8698\u2026 - \n## 7 <NA> <NA> \"620\u2026 \u30a2\u30eb\u2026 \u9320 \"112\u2026 5.6 \"1\" 8695\u2026 - \n## 8 <NA> <NA> \"610\u2026 \u30de\u30a4\u2026 \u9320 \"112\u2026 65 \"0\" 8354\u2026 - \n## 9 <NA> <NA> \"610\u2026 \u30ec\u30f3\u2026 \u9320 \"112\u2026 24.3 \"0\" 8315\u2026 - \n## 10 <NA> <NA> \"620\u2026 \u30ec\u30f3\u2026 \u9320 \"112\u2026 24.3 \"0\" 7578\u2026 - \n## # \u2139 4,896 more rows\n## # \u2139 41 more variables: ...11 <chr>, ...12 <chr>, ...13 <chr>,\n## # ...14 <chr>, ...15 <chr>, ...16 <chr>, ...17 <chr>,\n## # ...18 <chr>, ...19 <chr>, ...20 <chr>, ...21 <chr>,\n## # ...22 <chr>, ...23 <chr>, ...24 <chr>, ...25 <chr>,\n## # ...26 <chr>, ...27 <chr>, ...28 <chr>, ...29 <chr>,\n## # ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>, \u2026\n<\/pre>\n\n\n\n\u3053\u308c\u3067\u3001\u3059\u3079\u3066\u30c7\u30fc\u30bf\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n\n\n\n
\u30b3\u30e9\u30e0\u540d\u3092\u6574\u3048\u308b<\/h2>\n\n\n\n
\u3053\u3046\u3044\u3046\u5834\u5408\u306e\u4f5c\u6226\u3068\u3057\u3066\u306f\u3001\u8907\u6570\u884c\u306b\u308f\u304b\u308c\u305f\u30b3\u30e9\u30e0\u540d\u3092\u307e\u305a1\u884c\u306b\u3057\u3066\u3057\u307e\u3044\u3001\u30b3\u30e9\u30e0\u540d\u306e\u6587\u5b57\u5217\u30d9\u30af\u30c8\u30eb\u306b\u3057\u3066\u3057\u307e\u3044\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n
coldat <- dat %>% slice(1:2)\n\ncoldat\n<\/code><\/pre>\n\n\n\n## # A tibble: 2 \u00d7 51\n## ...1 ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10\n## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>\n## 1 \"\u85ac\u52b9\\r\u2026 \u85ac\u52b9\u2026 \"\u533b\u2026 \u533b\u85ac\u2026 \u5358\u4f4d \"\u85ac\u2026 \u85ac\u4fa1 \"\u5f8c\u2026 \u7dcf\u8a08 \u7537 \n## 2 <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> <NA> 0\uff5e4\u2026\n## # \u2139 41 more variables: ...11 <chr>, ...12 <chr>, ...13 <chr>,\n## # ...14 <chr>, ...15 <chr>, ...16 <chr>, ...17 <chr>,\n## # ...18 <chr>, ...19 <chr>, ...20 <chr>, ...21 <chr>,\n## # ...22 <chr>, ...23 <chr>, ...24 <chr>, ...25 <chr>,\n## # ...26 <chr>, ...27 <chr>, ...28 <chr>, ...29 <chr>,\n## # ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>,\n## # ...34 <chr>, ...35 <chr>, ...36 <chr>, ...37 <chr>, \u2026\n<\/pre>\n\n\n\n\u305d\u3057\u3066\u3001\u884c\u5217\u3092\u5165\u308c\u66ff\u3048\u307e\u3059\u3002<\/p>\n\n\n\n
coldat <- coldat %>% t() %>% as_tibble(.name_repair = \"unique\")\n\ncoldat\n<\/code><\/pre>\n\n\n\n## # A tibble: 51 \u00d7 2\n## ...1 ...2 \n## <chr> <chr> \n## 1 \"\u85ac\u52b9\\r\\n\u5206\u985e\" <NA> \n## 2 \"\u85ac\u52b9\u5206\u985e\u540d\u79f0\" <NA> \n## 3 \"\u533b\u85ac\u54c1\\r\\n\u30b3\u30fc\u30c9\" <NA> \n## 4 \"\u533b\u85ac\u54c1\u540d\" <NA> \n## 5 \"\u5358\u4f4d\" <NA> \n## 6 \"\u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\\r\\n\u533b\u85ac\u54c1\u30b3\u30fc\u30c9\" <NA> \n## 7 \"\u85ac\u4fa1\" <NA> \n## 8 \"\u5f8c\u767a\u54c1\\r\\n\u533a\u5206\" <NA> \n## 9 \"\u7dcf\u8a08\" <NA> \n## 10 \"\u7537\" 0\uff5e4\u6b73\n## # \u2139 41 more rows\n<\/pre>\n\n\n\n\u3055\u3066\u3001\u3053\u3053\u3067\u3001\u6539\u884c\u30b3\u30fc\u30c9\u3067\u3042\u308b\\r\\n<\/code>\u3092\u9664\u53bb\u3057\u3066<\/p>\n\n\n\ncoldat <- coldat %>% \n mutate(...1 = str_replace_all(...1,\"\\r\\n\",\"\"))\n<\/code><\/pre>\n\n\n\n\u3055\u3089\u306b\u3001\u20261\u5217\u306e\u7537\u3001\u5973\u3092\u4e0b\u65b9\u5411\u306b\u3046\u3081\u3066\u3044\u304d\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n
coldat <- coldat %>% \n fill(...1, .direction = \"down\")\n\ncoldat\n<\/code><\/pre>\n\n\n\n## # A tibble: 51 \u00d7 2\n## ...1 ...2 \n## <chr> <chr> \n## 1 \u85ac\u52b9\u5206\u985e <NA> \n## 2 \u85ac\u52b9\u5206\u985e\u540d\u79f0 <NA> \n## 3 \u533b\u85ac\u54c1\u30b3\u30fc\u30c9 <NA> \n## 4 \u533b\u85ac\u54c1\u540d <NA> \n## 5 \u5358\u4f4d <NA> \n## 6 \u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9 <NA> \n## 7 \u85ac\u4fa1 <NA> \n## 8 \u5f8c\u767a\u54c1\u533a\u5206 <NA> \n## 9 \u7dcf\u8a08 <NA> \n## 10 \u7537 0\uff5e4\u6b73\n## # \u2139 41 more rows\n<\/pre>\n\n\n\n\u20262\u306e\u6b20\u640d\u306f\u201d\u201c\u3067\u7f6e\u304d\u63db\u3048\u3066<\/p>\n\n\n\n
coldat <- coldat %>% \n replace_na(replace = list(...2 = \"\"))\n\ncoldat\n<\/code><\/pre>\n\n\n\n## # A tibble: 51 \u00d7 2\n## ...1 ...2 \n## <chr> <chr> \n## 1 \u85ac\u52b9\u5206\u985e \"\" \n## 2 \u85ac\u52b9\u5206\u985e\u540d\u79f0 \"\" \n## 3 \u533b\u85ac\u54c1\u30b3\u30fc\u30c9 \"\" \n## 4 \u533b\u85ac\u54c1\u540d \"\" \n## 5 \u5358\u4f4d \"\" \n## 6 \u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9 \"\" \n## 7 \u85ac\u4fa1 \"\" \n## 8 \u5f8c\u767a\u54c1\u533a\u5206 \"\" \n## 9 \u7dcf\u8a08 \"\" \n## 10 \u7537 \"0\uff5e4\u6b73\"\n## # \u2139 41 more rows\n<\/pre>\n\n\n\n\u20261\u3068\u20262\u3092\u304f\u3063\u3064\u3051\u307e\u3057\u3087\u3046<\/p>\n\n\n\n
coldat <- coldat %>% \n unite(...1,...2,col = coln, sep = \"_\")\n\ncoldat\n<\/code><\/pre>\n\n\n\n## # A tibble: 51 \u00d7 1\n## coln \n## <chr> \n## 1 \u85ac\u52b9\u5206\u985e_ \n## 2 \u85ac\u52b9\u5206\u985e\u540d\u79f0_ \n## 3 \u533b\u85ac\u54c1\u30b3\u30fc\u30c9_ \n## 4 \u533b\u85ac\u54c1\u540d_ \n## 5 \u5358\u4f4d_ \n## 6 \u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9_\n## 7 \u85ac\u4fa1_ \n## 8 \u5f8c\u767a\u54c1\u533a\u5206_ \n## 9 \u7dcf\u8a08_ \n## 10 \u7537_0\uff5e4\u6b73 \n## # \u2139 41 more rows\n<\/pre>\n\n\n\n\u201c_\u201c\u3067\u7d42\u308f\u3063\u3066\u3044\u308b\u3082\u306e\u306f\u3001\u305d\u308c\u3092\u6d88\u3057\u3066\u3042\u3052\u308b\u3068\u3001<\/p>\n\n\n\n
coldat <- coldat %>% \n mutate(coln = str_replace(coln,\"_\",\"))\n\ncoldat<\/code><\/pre>\n\n\n\n## # A tibble: 51 \u00d7 1\n## coln \n## <chr> \n## 1 \u85ac\u52b9\u5206\u985e \n## 2 \u85ac\u52b9\u5206\u985e\u540d\u79f0 \n## 3 \u533b\u85ac\u54c1\u30b3\u30fc\u30c9 \n## 4 \u533b\u85ac\u54c1\u540d \n## 5 \u5358\u4f4d \n## 6 \u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9\n## 7 \u85ac\u4fa1 \n## 8 \u5f8c\u767a\u54c1\u533a\u5206 \n## 9 \u7dcf\u8a08 \n## 10 \u7537_0\uff5e4\u6b73 \n## # \u2139 41 more rows\n<\/pre>\n\n\n\n\u5b8c\u6210\u3067\u3059\u3002<\/p>\n\n\n\n
\u4e00\u9023\u306e\u6d41\u308c\u3092\u3059\u3079\u3066\u30d1\u30a4\u30d7\u3067\u3064\u306a\u3044\u3067\u5b9f\u884c\u3057\u3066\u307f\u307e\u3057\u3087\u3046<\/p>\n\n\n\n
coldat <- dat %>% \n slice(1:2) %>% \n t() %>% \n as_tibble(.name_repair = \"unique\") %>% \n mutate(...1 = str_replace_all(...1,\"\\r\\n\",\"\")) %>% \n fill(...1, .direction = \"down\") %>% \n replace_na(replace = list(...2 = \"\")) %>% \n unite(...1,...2,col = coln, sep = \"_\") %>% \n mutate(coln = str_replace(coln,\"_\",\"\"))\n\ncoldat$coln <\/code><\/pre>\n\n\n\n## [1] \"\u85ac\u52b9\u5206\u985e\" \"\u85ac\u52b9\u5206\u985e\u540d\u79f0\" \n## [3] \"\u533b\u85ac\u54c1\u30b3\u30fc\u30c9\" \"\u533b\u85ac\u54c1\u540d\" \n## [5] \"\u5358\u4f4d\" \"\u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9\"\n## [7] \"\u85ac\u4fa1\" \"\u5f8c\u767a\u54c1\u533a\u5206\" \n## [9] \"\u7dcf\u8a08\" \"\u7537_0\uff5e4\u6b73\" \n## [11] \"\u7537_5\uff5e9\u6b73\" \"\u7537_10\uff5e14\u6b73\" \n## [13] \"\u7537_15\uff5e19\u6b73\" \"\u7537_20\uff5e24\u6b73\" \n## [15] \"\u7537_25\uff5e29\u6b73\" \"\u7537_30\uff5e34\u6b73\" \n## [17] \"\u7537_35\uff5e39\u6b73\" \"\u7537_40\uff5e44\u6b73\" \n## [19] \"\u7537_45\uff5e49\u6b73\" \"\u7537_50\uff5e54\u6b73\" \n## [21] \"\u7537_55\uff5e59\u6b73\" \"\u7537_60\uff5e64\u6b73\" \n## [23] \"\u7537_65\uff5e69\u6b73\" \"\u7537_70\uff5e74\u6b73\" \n## [25] \"\u7537_75\uff5e79\u6b73\" \"\u7537_80\uff5e84\u6b73\" \n## [27] \"\u7537_85\uff5e89\u6b73\" \"\u7537_90\uff5e94\u6b73\" \n## [29] \"\u7537_95\uff5e99\u6b73\" \"\u7537_100\u6b73\u4ee5\u4e0a\" \n## [31] \"\u5973_0\uff5e4\u6b73\" \"\u5973_5\uff5e9\u6b73\" \n## [33] \"\u5973_10\uff5e14\u6b73\" \"\u5973_15\uff5e19\u6b73\" \n## [35] \"\u5973_20\uff5e24\u6b73\" \"\u5973_25\uff5e29\u6b73\" \n## [37] \"\u5973_30\uff5e34\u6b73\" \"\u5973_35\uff5e39\u6b73\" \n## [39] \"\u5973_40\uff5e44\u6b73\" \"\u5973_45\uff5e49\u6b73\" \n## [41] \"\u5973_50\uff5e54\u6b73\" \"\u5973_55\uff5e59\u6b73\" \n## [43] \"\u5973_60\uff5e64\u6b73\" \"\u5973_65\uff5e69\u6b73\" \n## [45] \"\u5973_70\uff5e74\u6b73\" \"\u5973_75\uff5e79\u6b73\" \n## [47] \"\u5973_80\uff5e84\u6b73\" \"\u5973_85\uff5e89\u6b73\" \n## [49] \"\u5973_90\uff5e94\u6b73\" \"\u5973_95\uff5e99\u6b73\" \n## [51] \"\u5973_100\u6b73\u4ee5\u4e0a\"\n<\/pre>\n\n\n\n\u3053\u308c\u3067\u3001\u5404\u5217\u306e\u540d\u524d\u304c\u3064\u3051\u3089\u308c\u307e\u3059\u3002<\/p>\n\n\n\n
\u6a2a\u6301\u3061\u30c7\u30fc\u30bf\u306e\u5b8c\u6210<\/h2>\n\n\n\n
dat\u304b\u3089\u30c7\u30fc\u30bf\u90e8\u5206\u3092\u53d6\u308a\u51fa\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
dat <- dat %>% \n slice(3:nrow(.))\n\ndat\n<\/code><\/pre>\n\n\n\n## # A tibble: 4,904 \u00d7 51\n## ...1 ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10\n## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>\n## 1 112 \u50ac\u7720\u93ae\u2026 6111\u2026 \u30bd\u30e9\u2026 \u9320 1124\u2026 8.5 0 1418\u2026 - \n## 2 <NA> <NA> 6104\u2026 \u30de\u30a4\u2026 \u9320 1129\u2026 40.6 0 1366\u2026 - \n## 3 <NA> <NA> 6200\u2026 \u30ed\u30e9\u2026 \u9320 1124\u2026 5 1 9872\u2026 - \n## 4 <NA> <NA> 6111\u2026 \u30cf\u30eb\u2026 \u9320 1124\u2026 13.8 0 8698\u2026 - \n## 5 <NA> <NA> 6200\u2026 \u30a2\u30eb\u2026 \u9320 1124\u2026 5.6 1 8695\u2026 - \n## 6 <NA> <NA> 6104\u2026 \u30de\u30a4\u2026 \u9320 1129\u2026 65 0 8354\u2026 - \n## 7 <NA> <NA> 6104\u2026 \u30ec\u30f3\u2026 \u9320 1124\u2026 24.3 0 8315\u2026 - \n## 8 <NA> <NA> 6200\u2026 \u30ec\u30f3\u2026 \u9320 1124\u2026 24.3 0 7578\u2026 - \n## 9 <NA> <NA> 6104\u2026 \u30d5\u30eb\u2026 \u9320 1124\u2026 5.6 1 6733\u2026 - \n## 10 <NA> <NA> 6111\u2026 \u30ef\u30a4\u2026 \u9320 1124\u2026 5.8 0 6731\u2026 - \n## # \u2139 4,894 more rows\n## # \u2139 41 more variables: ...11 <chr>, ...12 <chr>, ...13 <chr>,\n## # ...14 <chr>, ...15 <chr>, ...16 <chr>, ...17 <chr>,\n## # ...18 <chr>, ...19 <chr>, ...20 <chr>, ...21 <chr>,\n## # ...22 <chr>, ...23 <chr>, ...24 <chr>, ...25 <chr>,\n## # ...26 <chr>, ...27 <chr>, ...28 <chr>, ...29 <chr>,\n## # ...30 <chr>, ...31 <chr>, ...32 <chr>, ...33 <chr>, \u2026\n<\/pre>\n\n\n\n\u5217\u540d\u3092\u8a2d\u5b9a\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
dat <- dat %>% \n setNames(coldat$coln)\n\ndat\n<\/code><\/pre>\n\n\n\n## # A tibble: 4,904 \u00d7 51\n## \u85ac\u52b9\u5206\u985e \u85ac\u52b9\u5206\u985e\u540d\u79f0 \u533b\u85ac\u54c1\u30b3\u30fc\u30c9 \u533b\u85ac\u54c1\u540d \u5358\u4f4d \n## <chr> <chr> <chr> <chr> <chr>\n## 1 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 611170508 \u30bd\u30e9\u30ca\u30c3\u30af\u2026 \u9320 \n## 2 <NA> <NA> 610443047 \u30de\u30a4\u30b9\u30ea\u30fc\u2026 \u9320 \n## 3 <NA> <NA> 620049101 \u30ed\u30e9\u30bc\u30d1\u30e0\u2026 \u9320 \n## 4 <NA> <NA> 611120055 \u30cf\u30eb\u30b7\u30aa\u30f3\u2026 \u9320 \n## 5 <NA> <NA> 620049901 \u30a2\u30eb\u30d7\u30e9\u30be\u2026 \u9320 \n## 6 <NA> <NA> 610443048 \u30de\u30a4\u30b9\u30ea\u30fc\u2026 \u9320 \n## 7 <NA> <NA> 610463223 \u30ec\u30f3\u30c9\u30eb\u30df\u2026 \u9320 \n## 8 <NA> <NA> 620004625 \u30ec\u30f3\u30c9\u30eb\u30df\u2026 \u9320 \n## 9 <NA> <NA> 610444126 \u30d5\u30eb\u30cb\u30c8\u30e9\u2026 \u9320 \n## 10 <NA> <NA> 611170470 \u30ef\u30a4\u30d1\u30c3\u30af\u2026 \u9320 \n## # \u2139 4,894 more rows\n## # \u2139 46 more variables: \u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9 <chr>,\n## # \u85ac\u4fa1 <chr>, \u5f8c\u767a\u54c1\u533a\u5206 <chr>, \u7dcf\u8a08 <chr>,\n## # `\u7537_0\uff5e4\u6b73` <chr>, `\u7537_5\uff5e9\u6b73` <chr>, `\u7537_10\uff5e14\u6b73` <chr>,\n## # `\u7537_15\uff5e19\u6b73` <chr>, `\u7537_20\uff5e24\u6b73` <chr>,\n## # `\u7537_25\uff5e29\u6b73` <chr>, `\u7537_30\uff5e34\u6b73` <chr>,\n## # `\u7537_35\uff5e39\u6b73` <chr>, `\u7537_40\uff5e44\u6b73` <chr>, \u2026\n<\/pre>\n\n\n\n\u3053\u308c\u3067\u3001\u6a2a\u6301\u3061\u30c7\u30fc\u30bf(messy\u3067\u3059\u304c)\u306b\u5909\u63db\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n\n\n\n
tidy\u30c7\u30fc\u30bf\u3078<\/h2>\n\n\n\n
\u85ac\u52b9\u5206\u985e\u3001\u85ac\u52b9\u5206\u985e\u540d\u79f0\u306f\u4e0b\u65b9\u5411\u306b\u57cb\u3081\u3066\u304a\u304d\u307e\u3057\u3087\u3046<\/p>\n\n\n\n
dat <- dat %>% \n fill(`\u85ac\u52b9\u5206\u985e`,`\u85ac\u52b9\u5206\u985e\u540d\u79f0`, .direction = \"down\")\n\ndat\n<\/code><\/pre>\n\n\n\n## # A tibble: 4,904 \u00d7 51\n## \u85ac\u52b9\u5206\u985e \u85ac\u52b9\u5206\u985e\u540d\u79f0 \u533b\u85ac\u54c1\u30b3\u30fc\u30c9 \u533b\u85ac\u54c1\u540d \u5358\u4f4d \n## <chr> <chr> <chr> <chr> <chr>\n## 1 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 611170508 \u30bd\u30e9\u30ca\u30c3\u30af\u2026 \u9320 \n## 2 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 610443047 \u30de\u30a4\u30b9\u30ea\u30fc\u2026 \u9320 \n## 3 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 620049101 \u30ed\u30e9\u30bc\u30d1\u30e0\u2026 \u9320 \n## 4 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 611120055 \u30cf\u30eb\u30b7\u30aa\u30f3\u2026 \u9320 \n## 5 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 620049901 \u30a2\u30eb\u30d7\u30e9\u30be\u2026 \u9320 \n## 6 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 610443048 \u30de\u30a4\u30b9\u30ea\u30fc\u2026 \u9320 \n## 7 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 610463223 \u30ec\u30f3\u30c9\u30eb\u30df\u2026 \u9320 \n## 8 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 620004625 \u30ec\u30f3\u30c9\u30eb\u30df\u2026 \u9320 \n## 9 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 610444126 \u30d5\u30eb\u30cb\u30c8\u30e9\u2026 \u9320 \n## 10 112 \u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264 611170470 \u30ef\u30a4\u30d1\u30c3\u30af\u2026 \u9320 \n## # \u2139 4,894 more rows\n## # \u2139 46 more variables: \u85ac\u4fa1\u57fa\u6e96\u53ce\u8f09\u533b\u85ac\u54c1\u30b3\u30fc\u30c9 <chr>,\n## # \u85ac\u4fa1 <chr>, \u5f8c\u767a\u54c1\u533a\u5206 <chr>, \u7dcf\u8a08 <chr>,\n## # `\u7537_0\uff5e4\u6b73` <chr>, `\u7537_5\uff5e9\u6b73` <chr>, `\u7537_10\uff5e14\u6b73` <chr>,\n## # `\u7537_15\uff5e19\u6b73` <chr>, `\u7537_20\uff5e24\u6b73` <chr>,\n## # `\u7537_25\uff5e29\u6b73` <chr>, `\u7537_30\uff5e34\u6b73` <chr>,\n## # `\u7537_35\uff5e39\u6b73` <chr>, `\u7537_40\uff5e44\u6b73` <chr>, \u2026\n<\/pre>\n\n\n\n\u6b21\u306b\u3001<\u6027\u5225>_<\u5e74\u9f62>\u3068\u306a\u3063\u3066\u3044\u308b\u5217\u3092\u7e26\u6301\u3061\u306b\u3057\u3064\u3064tidy\u306a\u5f62\u306b\u3057\u307e\u3059\u3002<\/p>\n\n\n\n
pivot_longer\u3092\u4f7f\u308f\u306a\u3044\u3084\u308a\u65b9<\/h3>\n\n\n\n
pivot_longer\u95a2\u6570\u304c\u3067\u3066\u304f\u308b\u524d\u306e\u3084\u308a\u65b9\u306f\u3001<\/p>\n\n\n\n
old <- dat %>% \n gather(matches(\"^[\u7537\u5973].+\u6b73\"), key = key, value = value)\n\nold %>% select(key, value)\n<\/code><\/pre>\n\n\n\n## # A tibble: 205,968 \u00d7 2\n## key value\n## <chr> <chr>\n## 1 \u7537_0\uff5e4\u6b73 - \n## 2 \u7537_0\uff5e4\u6b73 - \n## 3 \u7537_0\uff5e4\u6b73 - \n## 4 \u7537_0\uff5e4\u6b73 - \n## 5 \u7537_0\uff5e4\u6b73 - \n## 6 \u7537_0\uff5e4\u6b73 - \n## 7 \u7537_0\uff5e4\u6b73 - \n## 8 \u7537_0\uff5e4\u6b73 - \n## 9 \u7537_0\uff5e4\u6b73 - \n## 10 \u7537_0\uff5e4\u6b73 - \n## # \u2139 205,958 more rows\n<\/pre>\n\n\n\n\u3053\u3053\u3067\u3001key\u3068value\u306f\u3053\u3093\u306a\u611f\u3058\u306a\u306e\u3067\u3001key\u3092\u3001\u6027\u5225\u3068\u5e74\u9f62\u533a\u5206\u306b\u308f\u3051\u3066\u3042\u3052\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n
old %>% \n select(key, value) %>% \n extract(col = key, \n into = c(\"gender\",\"agekubun\"), \n regex = \"(\u7537|\u5973)_(.+)\")\n<\/code><\/pre>\n\n\n\n## # A tibble: 205,968 \u00d7 3\n## gender agekubun value\n## <chr> <chr> <chr>\n## 1 \u7537 0\uff5e4\u6b73 - \n## 2 \u7537 0\uff5e4\u6b73 - \n## 3 \u7537 0\uff5e4\u6b73 - \n## 4 \u7537 0\uff5e4\u6b73 - \n## 5 \u7537 0\uff5e4\u6b73 - \n## 6 \u7537 0\uff5e4\u6b73 - \n## 7 \u7537 0\uff5e4\u6b73 - \n## 8 \u7537 0\uff5e4\u6b73 - \n## 9 \u7537 0\uff5e4\u6b73 - \n## 10 \u7537 0\uff5e4\u6b73 - \n## # \u2139 205,958 more rows\n<\/pre>\n\n\n\n\u3067\u304d\u3042\u304c\u308a\u3067\u3059\u3002(\u5206\u304b\u308a\u3084\u3059\u3044\u3088\u3046\u306b\u3001\u3042\u3048\u3066select\u3067\u5909\u6570\u3092\u7d5e\u308a\u3053\u3093\u3067\u3042\u308a\u307e\u3059)<\/p>\n\n\n\n
\u307e\u3068\u3081\u3066\u66f8\u304f\u3068\u3001<\/p>\n\n\n\n
old <- dat %>% \n gather(matches(\"^[\u7537\u5973].+\u6b73\"), \n key = key, \n value = value) %>% \n extract(col = key, \n into = c(\"gender\",\"agekubun\"), \n regex = \"(\u7537|\u5973)_(.+)\")\n<\/code><\/pre>\n\n\n\npivot_longer\u3092\u4f7f\u3046\u3084\u308a\u304b\u305f<\/h3>\n\n\n\n
pivot_longer\u95a2\u6570\u304c\u3067\u3066\u304d\u305f\u306e\u3067\u3001\u4e0a\u306e\u5909\u63db\u306f\u3082\u306e\u3059\u3054\u304f\u7c21\u5358\u306b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059<\/p>\n\n\n\n
new <- dat %>% \n pivot_longer(cols = matches(\"^[\u7537\u5973].+\u6b73\"),\n names_to = c(\"gender\",\"agekubun\"),\n values_to = \"value\",\n names_pattern = \"(\u7537|\u5973)_(.+)\")\n \n\nnew %>% select(gender, agekubun, value)\n<\/code><\/pre>\n\n\n\n## # A tibble: 205,968 \u00d7 3\n## gender agekubun value \n## <chr> <chr> <chr> \n## 1 \u7537 0\uff5e4\u6b73 - \n## 2 \u7537 5\uff5e9\u6b73 - \n## 3 \u7537 10\uff5e14\u6b73 22841.4 \n## 4 \u7537 15\uff5e19\u6b73 130452.25 \n## 5 \u7537 20\uff5e24\u6b73 390095 \n## 6 \u7537 25\uff5e29\u6b73 934335.5 \n## 7 \u7537 30\uff5e34\u6b73 2006768.5 \n## 8 \u7537 35\uff5e39\u6b73 3350609.5 \n## 9 \u7537 40\uff5e44\u6b73 5060809.25 \n## 10 \u7537 45\uff5e49\u6b73 5802070.3099999996\n## # \u2139 205,958 more rows\n<\/pre>\n\n\n\n\u7d30\u304b\u306a\u4fee\u6b63<\/h2>\n\n\n\n
value\u306e\u5024\u304c\u30011000\u4ef6\u5358\u4f4d\u306a\u3046\u3048\u3001\u6e80\u305f\u3057\u3066\u3044\u306a\u3044\u3068\u201d\u2015\u201c\u8868\u8a18\u306b\u306a\u3063\u3066\u3044\u308b\u305f\u3081\u3001\u6570\u5b57\u306b\u623b\u3057\u3066\u304a\u304d\u307e\u3057\u3087\u3046<\/p>\n\n\n\n
new <- new %>% \n mutate(value = as.numeric(value))\n<\/code><\/pre>\n\n\n\n\u5f8c\u3001\u30b0\u30e9\u30d5\u7b49\u306b\u3057\u305f\u3068\u304d\u306b\u9806\u756a\u304c\u3081\u3061\u3083\u304f\u3061\u3083\u306b\u306a\u308b\u306e\u3067\u3001agekubun\u306f\u9806\u756a\u3092\u56e0\u5b50\u578b\u306b\u3057\u3066\u6574\u3048\u3066\u304a\u304d\u307e\u3059(\u3053\u306e\u3053\u3068\u306f\u6700\u5f8c\u306e\u30b0\u30e9\u30d5\u3092\u63cf\u753b\u3057\u3066\u304b\u3089\u6c17\u3065\u304d\u307e\u3057\u305f\u3002)<\/p>\n\n\n\n
new <- new %>% \n mutate(agekubun = forcats::as_factor(agekubun))\n<\/code><\/pre>\n\n\n\n\u3053\u308c\u3067\u3001\u30c7\u30fc\u30bf\u3092tidy\u30c7\u30fc\u30bf\u306b\u5909\u63db\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002\u3042\u3068\u306fggplot2\u3067\u30b0\u30e9\u30d5\u3092\u4f5c\u308b\u306a\u308a\u3001Rmarkdown\u3067\u30ec\u30dd\u30fc\u30c8\u3092\u3064\u304f\u308b\u306a\u308a\u304a\u597d\u304d\u306b\u3069\u3046\u305e\u3002<\/p>\n\n\n\n
\u4f8b:\u7761\u7720\u85ac\u306e\u51e6\u65b9\u6570Top3\u306e\u5e74\u4ee3\u5225\u6027\u5225\u5225\u51e6\u65b9\u3092\u51fa\u3057\u3066\u307f\u308b\u3002<\/p>\n\n\n\n
#\u50ac\u7720\u93ae\u9759\u5264\uff0c\u6297\u4e0d\u5b89\u5264\t\u306e\u5408\u8a08\u51e6\u65b9\u6570\u306e\u30e9\u30f3\u30ad\u30f3\u30b0\u3092\u4f5c\u6210\n\nmedrank <- new %>% \n filter(`\u85ac\u52b9\u5206\u985e` == \"112\") %>% \n group_by(`\u533b\u85ac\u54c1\u30b3\u30fc\u30c9`) %>% \n summarise(total = sum(value,na.rm=TRUE)) %>% \n arrange(desc(total)) %>% \n mutate(rank = 1:nrow(.))\n\n# \u30c7\u30fc\u30bf\u306b\u30e9\u30f3\u30ad\u30f3\u30b0\u3092\u304f\u3063\u3064\u3051\u3066\u30011\u4f4d\u304b\u30893\u4f4d\u307e\u3067\u306b\u3057\u307c\u308a\u3053\u3080\ngdat <- new %>% \n left_join(medrank, by = \"\u533b\u85ac\u54c1\u30b3\u30fc\u30c9\") %>% \n filter(rank <= 3)\n\n\nggplot(gdat,\n aes(x = agekubun, \n y = value, \n color = gender )\n ) +\n geom_point() +\n geom_line(aes(group = gender)) +\n facet_wrap(~`\u533b\u85ac\u54c1\u540d`) +\n theme(axis.text.x = element_text(angle=45,hjust=1))\n<\/code><\/pre>\n\n\n\n![\"plot](\"http:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/unnamed-chunk-23-1.png\")
<\/figure>\n\n\n\n\u305d\u308c\u3067\u306fHappy R Life\u3092!<\/p>\n","protected":false},"excerpt":{"rendered":"
\u6700\u7d42\u66f4\u65b0\u65e5:2020\u5e741\u670810\u65e5 \u3088\u304f\u3042\u308b\u3053\u307e\u308a\u3054\u3068 \u300c\u304a\u5f79\u6240\u306e\u30c7\u30fc\u30bf\u3092\u96c6\u8a08\u3057\u305f\u3044\uff01\u3088\u3057\u3001\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\uff01\u30fb\u30fb\u30fbR\u3067\u8aad\u307f\u8fbc\u3093\u3060\u3089\u30bb\u30eb\u306e\u7d50\u5408\u306e\u3068\u3053\u308d\u3067\u308f\u3051\u306e\u308f\u304b\u3089\u306a\u3044\u5f62\u306b\u306a\u3063\u3066\u308b\u30fb\u30fb\u30fb\u300d \u3068\u3044\u3046\u3053\u3068\u306f\u3042\u308a\u307e\u305b\u3093\u304b? \u79c1\u306f\u3088\u304f\u3042\u308a\u307e\u3059\u3002 \u300c\u898b\u3084\u3059\u3044\u300d\u3053\u3068\u306f\u9593\u9055\u3044\u306a\u3044\u306e\u3067\u3059\u304c\u3001R\u3067\u5206\u6790\u3057\u3088\u3046\u3068\u3059\u308b\u3068\u3044\u308d\u3044\u308d\u306a\u554f\u984c\u304c\u751f\u3058\u3066\u304d\u307e\u3059\u3002 \u300c\u304d\u308c\u3044\u300d\u306b\u3059\u308b\u306e\u306b\u624b\u4f5c\u696d\u3068\u3044\u3046\u65b9\u3082\u591a\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001tidyverse\u306etidyr\u3001dplyr\u3092\u5229\u7528\u3059\u308c\u3070\u7d50\u69cb\u7c21\u5358\u306b\u30ad\u30ec\u30a4\u306b\u3067\u304d\u307e\u3059\u3002 \u3053\u306e\u8a18\u4e8b\u3067\u306f\u79c1\u306a\u308a\u306e\u3084\u308a\u65b9\u3092\u5171\u6709\u3057\u3066\u307f\u307e\u3059\u3002(\u3082\u3063\u3068\u3088\u3044\u3084\u308a\u65b9\u304c\u3042\u308b!\u3068\u3044\u3046\u65b9\u304c\u3044\u3089\u3063\u3057\u3083\u3044\u307e\u3057\u305f\u3089\u305c\u3072\u6559\u3048\u3066\u307b\u3057\u3044\u3067\u3059\u7b11) \u305d\u308c\u3067\u306f\u3044\u3063\u3066\u307f\u307e\u3057\u3087\u3046\u3002 \u5229\u7528\u3059\u308b\u30c7\u30fc\u30bf \u3053\u306e\u8a18\u4e8b\u3067\u306f\u3001\u300c\u539a\u751f\u52b4\u50cd\u7701\u304c\u516c\u958b\u3057\u3066\u3044\u308b \u7b2c\uff14\u56deNDB\u30aa\u30fc\u30d7\u30f3\u30c7\u30fc\u30bf (\u30a2\u30af\u30bb\u30b9\u65e5:2020\/1\/10)\u300d\u306e\u30c7\u30fc\u30bf\u3092\u5229\u7528\u3057\u307e\u3059\u3002 \u8272\u3005\u3068\u30c7\u30fc\u30bf\u304c\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u3053\u3053\u3067\u306f\u3001\u5916\u6765\uff08\u9662\u5916\uff09\u6027\u5e74\u9f62\u5225\u85ac\u52b9\u5206\u985e\u5225\u6570\u91cf]\u306e\u30a8\u30af\u30bb\u30eb\u30c7\u30fc\u30bf\u3092\u5229\u7528\u3057\u3066\u307f\u307e\u3059\u3002 \u30c7\u30fc\u30bf\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3068\u8aad\u307f\u8fbc\u307f \u30a8\u30af\u30bb\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u8fbc\u307f\u306b\u306f\u3001readxl::read_excel\u3092\u5229\u7528\u3057\u307e\u3059\u304c\u3001\u6b8b\u5ff5\u306a\u304c\u3089\u3001\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u304b\u3089\u76f4\u63a5\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u6a5f\u80fd\u304c\u3042\u308a\u307e\u305b\u3093\u3002 \u306a\u306e\u3067\u3001\u307e\u305a\u306f\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u304b\u3089\u3001\u305d\u308c\u3092\u8aad\u307f\u8fbc\u3080\u3068\u3044\u3046\u4f5c\u6226\u3067\u3044\u304d\u307e\u3057\u3087\u3046\u3002 \u3053\u308c\u3067\u30a8\u30af\u30bb\u30eb\u30d5\u30a1\u30a4\u30eb\u304ctemp.xlsx\u3068\u3044\u3046\u540d\u524d\u3067\u30ef\u30fc\u30ad\u30f3\u30b0\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u76f4\u4e0b\u306b\u4fdd\u5b58\u3055\u308c\u305f\u306f\u305a\u3067\u3059\u3002 \u3069\u3093\u306a\u30d5\u30a1\u30a4\u30eb\u304b\u3092\u958b\u304f\u524d\u306b\u3001\u4e00\u5fdc\u3001\u30a8\u30af\u30bb\u30eb\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u3069\u306e\u3088\u3046\u306a\u5f62\u304b\u3001\u78ba\u8a8d\u3057\u3066\u307f\u307e\u3059\u3002 \u85ac\u52b9\u5206\u985e\u306e\u3068\u3053\u308d\u304c\u7e26\u306b\u7a7a\u767d\u304c\u591a\u304f\u3001\u53f3\u306e\u65b9\u3067\u306f\u7537\u6027\u3068\u5973\u6027\u3067\u5e74\u9f62\u533a\u5206\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u307e\u3059\u304c\u3001\u30bb\u30eb\u304c\u4e8c\u3064\u306b\u308f\u304b\u308c\u3066\u307e\u3059\u3002 \u898b\u305f\u76ee\u306f\u308f\u304b\u308a\u3084\u3059\u3044\u3067\u3059\uff01\u304c\u3001R\u306b\u3068\u3063\u3066\u306f\u975e\u5e38\u306b\u96e3\u89e3\u306a\u30c7\u30fc\u30bf\u3067\u3059\u3002 \u8aad\u307f\u8fbc\u307f \u5b9f\u306f\u8aad\u307f\u8fbc\u3080\u3068\u3053\u308d\u304b\u3089\u3064\u307e\u308b\u306e\u3067\u3001\u9069\u5207\u306a\u30aa\u30d7\u30b7\u30e7\u30f3\u3092\u8a2d\u5b9a\u3057\u3066\u3042\u3052\u307e\u3057\u3087\u3046\u3002 \u3053\u306e\u3088\u3046\u306a\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u5834\u5408\u306f\u3001 \u307e\u305a\u3001\u3053\u308c\u3060\u3068\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\u3002 \u300c\u5fc5\u8981\u306a\u90e8\u5206\u3060\u3051\u300d\u3092\u8aad\u307f\u8fbc\u3080\u305f\u3081\u306b\u306f\u3001\u8aad\u307f\u8fbc\u3080\u7bc4\u56f2\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u4eca\u56de\u306f\u3001\u6700\u521d\u306e1\u884c\u3092\u98db\u3070\u305b\u3070\u3088\u3044\u306e\u3067skip\u3067\u6307\u5b9a\u3057\u307e\u3059\u3002 ## # A tibble: 4,905 \u00d7 51 ## `\u85ac\u52b9\\r\\n\u5206\u985e` \u85ac\u52b9\u5206\u985e\u540d\u79f0 `\u533b\u85ac\u54c1\\r\\n\u30b3\u30fc\u30c9` \u533b\u85ac\u54c1\u540d \u5358\u4f4d ## <dbl> <chr> <dbl> <chr> <chr> ## 1 NA <NA> NA <NA> <NA> ## 2 112 \u50ac\u7720\u93ae\u9759\u5264\u2026 611170508 \u30bd\u30e9\u30ca\u2026 \u9320 ## 3 NA <NA> 610443047 \u30de\u30a4\u30b9\u2026 \u9320 ## 4 NA <NA> 620049101 \u30ed\u30e9\u30bc\u2026 \u9320 ## 5 NA <NA> 611120055 \u30cf\u30eb\u30b7\u2026 \u9320 ## 6 NA <NA> 620049901 \u30a2\u30eb\u30d7\u2026 \u9320 ## 7 NA <NA> 610443048 \u30de\u30a4\u30b9\u2026 \u9320 ## 8 NA <NA> 610463223 \u30ec\u30f3\u30c9\u2026 \u9320 ## 9 NA <NA> 620004625 \u30ec\u30f3\u30c9\u2026 \u9320 ## 10 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","footnotes":""},"categories":[1],"tags":[4,5,6],"class_list":["post-67","post","type-post","status-publish","format-standard","hentry","category-uncategorized","tag-excel","tag-ndb","tag-6"],"_links":{"self":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/67","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/comments?post=67"}],"version-history":[{"count":8,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/67\/revisions"}],"predecessor-version":[{"id":81,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/67\/revisions\/81"}],"wp:attachment":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/media?parent=67"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/categories?post=67"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/tags?post=67"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"\"](\"http:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/01-1024x142.jpg\")
<\/figure>\n\n\n\n