{"id":3280,"date":"2024-11-18T00:12:17","date_gmt":"2024-11-17T15:12:17","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/?p=3280"},"modified":"2025-03-20T19:31:47","modified_gmt":"2025-03-20T10:31:47","slug":"how-to-perform-text-mining-in-r-and-create-a-biplot-using-correspondence-analysis","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-perform-text-mining-in-r-and-create-a-biplot-using-correspondence-analysis\/","title":{"rendered":"R \u3067\u30c6\u30ad\u30b9\u30c8\u30de\u30a4\u30cb\u30f3\u30b0\u3092\u884c\u3044\u5bfe\u5fdc\u5206\u6790\u3067\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\u3092\u66f8\u304f\u65b9\u6cd5"},"content":{"rendered":"\n

R \u3067\u5f62\u614b\u7d20\u89e3\u6790\u3092\u884c\u3044\u3001\u5916\u90e8\u5909\u6570\u3068\u306e\u5bfe\u5fdc\u5206\u6790\u3092\u5b9f\u884c\u3057\u3001\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\uff08biplot\uff09\u3092\u66f8\u304f\u65b9\u6cd5\u306e\u89e3\u8aac<\/p>\n\n\n\n\n\n\n\n

\u524d\u6e96\u5099\uff1a\u30c7\u30fc\u30bf\u306e\u8aad\u307f\u8fbc\u307f\u304b\u3089\u5916\u90e8\u5909\u6570\u3067\u5206\u5272\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58<\/h2>\n\n\n\n

\u30c6\u30ad\u30b9\u30c8\u30c7\u30fc\u30bf\u306f\u3001\u4f8b\u3048\u3070\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30c7\u30fc\u30bf\u3092\u6e96\u5099\u3059\u308b<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

\u3053\u3053\u3067\u3001comment \u304c\u5206\u6790\u5bfe\u8c61\u306e\u30c6\u30ad\u30b9\u30c8\u5217\u3001name \u304c\u5916\u90e8\u5909\u6570\u3067\u3042\u308b<\/p>\n\n\n\n

\u5916\u90e8\u5909\u6570\u306f\u30013 \u7a2e\u985e\u306e\u30ab\u30c6\u30b4\u30ea\u3067\u3042\u308b<\/p>\n\n\n\n

\u30c7\u30fc\u30bf\u306f\u3001\u4f8b\u3048\u3070\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u3001readxl \u30d1\u30c3\u30b1\u30fc\u30b8\u306e read_excel \u95a2\u6570\u3092\u4f7f\u3063\u3066\u8aad\u307f\u8fbc\u3080<\/p>\n\n\n\n

library(readxl)\nDataset <- read_excel(\"20201121 Air Purifier Humidifier Review.xlsx\")<\/code><\/pre>\n\n\n\n
\u3082\u3057\u3001\u5916\u90e8\u5909\u6570\u304c\u6587\u5b57\u578b\uff08chr\uff09\u3068\u3057\u3066\u8a8d\u8b58\u3055\u308c\u3066\u3044\u308b\u5834\u5408\u306f\u3001\u56e0\u5b50\u578b\uff08Factor\uff09\u306b\u5909\u66f4\u3059\u308b<\/p>\n\n\n\n
# name \u306e\u5909\u6570\u578b\u3092\u56e0\u5b50\u578b\u306b\u5909\u66f4\nlibrary(magrittr)\nDataset %<>% \n  mutate(name = as.factor(name))<\/code><\/pre>\n\n\n\n
\u30c7\u30fc\u30bf\u30bb\u30c3\u30c8\u306e\u8981\u7d04\u3092\u898b\u3066\u307f\u308b<\/p>\n\n\n\n
# \u30c7\u30fc\u30bf\u30bb\u30c3\u30c8\u8981\u7d04\nlibrary(dplyr)\nDataset %>% \n  select(name:rating) %>% \n  summary()<\/code><\/pre>\n\n\n\n
\u51fa\u529b\u306f\u4ee5\u4e0b\u306e\u3068\u304a\u308a<\/p>\n\n\n\n
> Dataset %>% \n+   select(name:rating) %>% \n+   summary()\n                 name         rating     \n \u30a2\u30a4\u30ea\u30b9\u30aa\u30fc\u30e4\u30de  :105   Min.   :1.000  \n \u30a2\u30f3\u30c9\u30c7\u30b3        :105   1st Qu.:1.000  \n \u30d7\u30e9\u30ba\u30de\u30af\u30e9\u30b9\u30bf\u30fc:105   Median :4.000  \n                          Mean   :3.044  \n                          3rd Qu.:5.000  \n                          Max.   :5.000  <\/code><\/pre>\n\n\n\n
\u6b21\u306b\u3001\u5916\u90e8\u5909\u6570\u306e\u30ab\u30c6\u30b4\u30ea\u3092 Items \u3068\u3044\u3046\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u683c\u7d0d\u3059\u308b<\/p>\n\n\n\n
# \u5916\u90e8\u5909\u6570\u306e\u30ab\u30c6\u30b4\u30ea\u3092\u683c\u7d0d\nItems <- Dataset %>% \n  use_series(name) %>% \n  levels()<\/code><\/pre>\n\n\n\n
\u3053\u3053\u3067\u3001\u5916\u90e8\u5909\u6570\u306e\u30ab\u30c6\u30b4\u30ea\u3054\u3068\u306b\u51e6\u7406\u3092\u9069\u7528\u3059\u308b\u95a2\u6570 map \u3092\u4f7f\u3046<\/p>\n\n\n\n
\u4f8b\u3048\u3070\u3001Dataset \u5185\u306e name \u306e\u4e00\u3064\u4e00\u3064\u306b NROW \u3092\u9069\u7528\u3059\u308b\uff08\u884c\u6570\u3092\u8868\u793a\u3059\u308b\uff09\u3068\u3001<\/p>\n\n\n\n
# \u5916\u90e8\u5909\u6570\u306e\u30ab\u30c6\u30b4\u30ea\u3054\u3068\u306b\u95a2\u6570\u306e\u9069\u7528\nlibrary(purrr)\nItems %>% \n  map(\n    ~filter(Dataset, name==.x) %>% \n      NROW()\n  )<\/code><\/pre>\n\n\n\n
\u51fa\u529b\u306f\u4ee5\u4e0b\u306e\u3068\u304a\u308a\u306b\u306a\u308b<\/p>\n\n\n\n
> Items %>% \n+   map(\n+     ~filter(Dataset, name==.x) %>% \n+       NROW()\n+   )\n[[1]]\n[1] 105\n\n[[2]]\n[1] 105\n\n[[3]]\n[1] 105<\/code><\/pre>\n\n\n\n
\u3053\u306e map \u95a2\u6570\u306f\u3001apply \u95a2\u6570\u306e\u3088\u3046\u306b\u3001\u30ab\u30c6\u30b4\u30ea\u305d\u308c\u305e\u308c\u306b\u4f55\u304b\u51e6\u7406\u3092\u884c\u3046\u3068\u3044\u3046\u6a5f\u80fd\u3092\u6301\u3064<\/p>\n\n\n\n
\u30ab\u30c6\u30b4\u30ea\u305d\u308c\u305e\u308c\u3067\u51e6\u7406\u3092\u65bd\u3059\u3053\u3068\u304c\u3067\u304d\u308b\u6a5f\u80fd\u3092\u4f7f\u3063\u3066\u3001\u30ab\u30c6\u30b4\u30ea 3 \u7a2e\u5225\u306b\u3001\u30c6\u30ad\u30b9\u30c8\u3092\u5206\u3051\u3066\u3001\u30d5\u30a1\u30a4\u30eb\u306b\u51fa\u529b\u3059\u308b<\/p>\n\n\n\n
\u51fa\u529b\u5148\u306f\u3001Windows \u3067\u8a00\u3048\u3070\u3001\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u30d5\u30a9\u30eb\u30c0\u306e\u4e0b\u306e\u3001AirPurifier \u3068\u3044\u3046\u65b0\u3057\u304f\u4f5c\u3063\u305f\u30d5\u30a9\u30eb\u30c0\u306b\u3059\u308b<\/p>\n\n\n\n
# \u5916\u90e8\u5909\u6570\u3067\u5206\u5272\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\u683c\u7d0d\nsetwd(\"~\/AirPurifier\")\n\nItems %>% \n  map(\n    ~filter(Dataset, name==.x) %>% {\n      tmp <- use_series(data=., comment) %>% \n        as.character()\n      writeLines(text=tmp, con=paste0(\"Item\",(1:3)[Items==.x],\".txt\"))\n    }\n      \n  )<\/code><\/pre>\n\n\n\n
\u3053\u3046\u3059\u308b\u3068\u3001AirPurifier \u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306b Item1.txt, Item2.txt, Item3.txt \u3068\u3044\u3046\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u304c\u4f5c\u3089\u308c\u308b<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u3053\u308c\u3089\u306e\u4e2d\u8eab\u306f\u3001\u30ab\u30c6\u30b4\u30ea\u305d\u308c\u305e\u308c\u306e comment \u30c6\u30ad\u30b9\u30c8\u304c\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u5f62\u614b\u7d20\u89e3\u6790\uff08\u5358\u8a9e\u306e\u62bd\u51fa\uff09\u3068\u5bfe\u5fdc\u5206\u6790\u306e\u305f\u3081\u306e\u884c\u5217\u6e96\u5099<\/h2>\n\n\n\n
\u6b21\u306b\u3001\u5f62\u614b\u7d20\u89e3\u6790\u3001\u3064\u307e\u308a\u3001\u6587\u7ae0\u304b\u3089\u5358\u8a9e\u306e\u62bd\u51fa\u3092\u884c\u3046<\/p>\n\n\n\n
\u307e\u3060\u3001MeCab \u3084 RMeCab \u306e\u8a2d\u5b9a\u304c\u7d42\u308f\u3063\u3066\u3044\u306a\u3051\u308c\u3070\u3001\u4ee5\u4e0b\u306e\u8a18\u4e8b\u3092\u53c2\u7167\u3057\u3066\u3001\u8a2d\u5b9a\u3059\u308b<\/p>\n\n\n
\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\u3042\u308f\u305b\u3066\u8aad\u307f\u305f\u3044<\/span>\n\t\t\t\t\t
\"\"<\/figure><\/div>\t\t\t\t\t
\n\t\t\t\t\t\tR \u3068 MeCab \u3067\u30c6\u30ad\u30b9\u30c8\u30de\u30a4\u30cb\u30f3\u30b0\u3092\u884c\u3046\u65b9\u6cd5<\/a>\n\t\t\t\t\t\tR\u3067\u30c6\u30ad\u30b9\u30c8\u30de\u30a4\u30cb\u30f3\u30b0\u3059\u308b\u3084\u308a\u65b9\u3002 MeCab \u3068 RMeCab \u3092\u4f7f\u3046\u65b9\u6cd5\u3002 \u4f8b\u3068\u3057\u3066\u3001\u30ef\u30fc\u30c9\u30af\u30e9\u30a6\u30c9\u3092\u63cf\u304f\u65b9\u6cd5\u3092\u7d39\u4ecb\u3002 \u30c6\u30ad\u30b9\u30c8\u30de\u30a4\u30cb\u30f3\u30b0\u3068\u306f\uff1f \u30c6\u30ad\u30b9\u30c8\u30c7\u30fc\u30bf\u3092\u540d\u8a5e\u3001\u52d5\u8a5e…<\/span>\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t<\/div>\n\t\t<\/div>\n\n\n
# \u5f62\u614b\u7d20\u89e3\u6790\nlibrary(RMeCab)\nAP <- docDF(\".\", type=1, pos=c(\"\u540d\u8a5e\",\"\u52d5\u8a5e\",\"\u5f62\u5bb9\u8a5e\"))\n\nAP2 <- AP %>% \n  filter(POS2 %in% c(\"\u4e00\u822c\",\"\u56fa\u6709\",\"\u81ea\u7acb\"))\n\nAP3 <- AP2 %>% \n  filter(! TERM %in% c(\"\u3042\u308b\",\"\u3044\u3046\",\"\u3044\u308b\",\"\u3059\u308b\",\"\u3067\u304d\u308b\",\"\u306a\u308b\",\"\u601d\u3046\"))\n<\/code><\/pre>\n\n\n\n
\u307e\u305a\u3001docDF \u3067\u3001\u5f62\u614b\u7d20\uff08\u5358\u8a9e\uff09\u5206\u6790\u3092\u3059\u308b\u306e\u3067\u3001type=1 \u3067\u3001\u53d6\u308a\u51fa\u3059\u54c1\u8a5e\u306f\u3001\u4f8b\u3048\u3070\u3001\u540d\u8a5e\u3001\u52d5\u8a5e\u3001\u5f62\u5bb9\u8a5e\u3068\u3059\u308b<\/p>\n\n\n\n
docDF \u306e\u30ab\u30c3\u30b3\u5185\u306e\u6700\u521d\u306b\u3042\u308b\u3001”.” \u306f\u3001\u73fe\u5728\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u3092\u4f7f\u3063\u3066\u304f\u3060\u3055\u3044\u3068\u3044\u3046\u610f\u5473\u3067\u3042\u308b<\/p>\n\n\n\n
\u73fe\u5728\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306f\u3001AirPurifier \u3068\u3044\u3046\u540d\u524d\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u3067\u3001\u305d\u306e\u4e2d\u306b\u3042\u308b\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f7f\u7528\u3059\u308b\u6307\u793a\u306b\u306a\u308b<\/p>\n\n\n\n
\u51e6\u7406\u3057\u305f\u7d50\u679c\u3092 AP \u306b\u683c\u7d0d\u3057\u305f\u306e\u3067\u3001AP \u306e\u5148\u982d\u90e8\u5206\u3092\u898b\u3066\u307f\u308b\u3068\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u51fa\u529b\u3055\u308c\u308b<\/p>\n\n\n\n
TERM \u304c\u5358\u8a9e\u3001POS1 \u304c\u54c1\u8a5e\u3001POS2 \u304c\u54c1\u8a5e\u8a73\u7d30\u3001Item1.txt, Item2.txt, Item3.txt \u304c\u5916\u90e8\u5909\u6570\u30ab\u30c6\u30b4\u30ea\u305d\u308c\u305e\u308c\u306b\u304a\u3051\u308b comment \u30c6\u30ad\u30b9\u30c8\u3067\u306e\u51fa\u73fe\u983b\u5ea6\u3067\u3042\u308b<\/p>\n\n\n\n
> head(AP)\n  TERM POS1     POS2 Item1.txt Item2.txt Item3.txt\n1    ! \u540d\u8a5e \u30b5\u5909\u63a5\u7d9a         0         0         1\n2    # \u540d\u8a5e \u30b5\u5909\u63a5\u7d9a         0         1         0\n3    % \u540d\u8a5e \u30b5\u5909\u63a5\u7d9a         1        29         5\n4   %( \u540d\u8a5e \u30b5\u5909\u63a5\u7d9a         0         1         0\n5   %) \u540d\u8a5e \u30b5\u5909\u63a5\u7d9a         0         1         0\n6  %\u3001 \u540d\u8a5e \u30b5\u5909\u63a5\u7d9a         0         1         0<\/code><\/pre>\n\n\n\n
\u6b21\u306b\u3001POS2 \u3068\u3044\u3046\u5909\u6570\u306b \u4e00\u822c\u30fb\u56fa\u6709\u30fb\u81ea\u7acb \u304c \u542b\u307e\u308c\u3066\u3044\u308b\u884c\u3060\u3051\u3092\u53d6\u308a\u51fa\u3059\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u3066 AP2 \u3092\u4f5c\u308b<\/p>\n\n\n\n
> head(AP2)\n    TERM POS1 POS2 Item1.txt Item2.txt Item3.txt\n128    A \u540d\u8a5e \u4e00\u822c         4         0         0\n129    C \u540d\u8a5e \u4e00\u822c         1         0         0\n130   CM \u540d\u8a5e \u4e00\u822c         0         0         2\n131   DE \u540d\u8a5e \u4e00\u822c         0         0         1\n132  Err \u540d\u8a5e \u4e00\u822c         0         2         0\n134   HP \u540d\u8a5e \u4e00\u822c         1         0         0<\/code><\/pre>\n\n\n\n
\u3055\u3089\u306b\u3001\u3042\u308b\u30fb\u3044\u3046\u30fb\u3044\u308b\u30fb\u3059\u308b\u30fb\u3067\u304d\u308b\u30fb\u306a\u308b\u30fb\u601d\u3046\u3001\u3068\u3044\u3046\u983b\u51fa\u3059\u308b\u304c\u3001\u3042\u307e\u308a\u3001\u610f\u5473\u3092\u6301\u305f\u306a\u3044\u52d5\u8a5e\u3092\u524a\u9664\u3057\u3066 AP3 \u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3066\u3044\u308b<\/p>\n\n\n\n
\u3053\u306e\u6bb5\u968e\u3067\u3001AP3 \u306f\u30011496 \u884c\u3042\u308b<\/p>\n\n\n\n
\u305d\u308c\u3060\u3051\u305f\u304f\u3055\u3093\u306e\u5358\u8a9e\u304c\u62bd\u51fa\u3055\u308c\u3066\u3044\u308b<\/p>\n\n\n\n
\u305f\u3060\u3057\u3001\u51fa\u73fe\u983b\u5ea6\u304c\u5c0f\u3055\u3044\u5358\u8a9e\u306f\u3042\u307e\u308a\u7279\u5fb4\u3092\u898b\u308b\u306e\u306b\u306f\u9069\u5207\u3067\u306f\u306a\u3044<\/p>\n\n\n\n
\u3042\u308b\u7a0b\u5ea6\u3001\u51fa\u73fe\u983b\u5ea6\u304c\u9ad8\u3044\u5358\u8a9e\u306b\u7d5e\u308b\u306e\u304c\u3088\u3044<\/p>\n\n\n\n
\u51fa\u73fe\u983b\u5ea6\u306e\u4e0b\u9650\u3092\u63a2\u308b\u305f\u3081\u306b\u30013 \u30b0\u30eb\u30fc\u30d7\u3092\u901a\u3057\u3066\u306e\u51fa\u73fe\u983b\u5ea6\u3092\u8a08\u7b97\u3057\u3066\u307f\u308b<\/p>\n\n\n\n
AP3[, -(1:3)] \u306f\u3001\u5f8c\u308d\u304b\u3089 1 \u5217\u76ee\u304b\u3089 3 \u5217\u76ee\u3092\u4f7f\u3046\u3068\u3044\u3046\u610f\u5473\u3067\u3001Item1.txt, Item2.txt, Item3.txt \u306e 3 \u5217\u3092\u6307\u3057\u3066\u3044\u308b<\/p>\n\n\n\n
# \u5bfe\u5fdc\u5206\u6790\u306b\u5411\u3051\u3066\u7d5e\u308a\u8fbc\u307f\nAP3$SUMS <- rowSums(AP3[,-(1:3)])\ntable(AP3$SUMS)\n<\/code><\/pre>\n\n\n\n
\u983b\u5ea6\u4e00\u89a7\u3092\u898b\u3066\u307f\u308b\u3068\u30011 \u304b\u3089 154 \u307e\u3067\u5e45\u5e83\u304f\u5206\u5e03\u3057\u3066\u3044\u308b\u3053\u3068\u304c\u308f\u304b\u308b<\/p>\n\n\n\n
> table(AP3$SUMS)\n\n  1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17 \n770 264 110  76  55  34  20  31  17  16   8   9   8   7   7   5   4 \n 18  19  20  21  22  23  24  25  26  27  28  29  30  31  33  34  36 \n  4   1   3   5   2   1   2   2   1   3   1   1   1   3   1   2   1 \n 39  40  41  47  51  54  55  59  64  77  80  86  87  98 119 124 140 \n  1   1   3   1   1   1   1   1   1   1   1   2   1   1   1   1   1 \n154 \n  1 <\/code><\/pre>\n\n\n\n
\u3053\u3053\u304b\u3089\u51fa\u73fe\u983b\u5ea6\u4e0b\u9650\u3092\u6c7a\u3081\u308b\u304b\u306f\u3001\u6c7a\u307e\u3063\u305f\u65b9\u6cd5\u306f\u306a\u3044\u304c\u3001\u4e00\u3064\u306e\u56f3\u306b 50 \u500b\u7a0b\u5ea6\u306e\u5358\u8a9e\u3067\u3042\u308b\u3068\u3001\u898b\u901a\u3057\u304c\u304d\u3044\u3066\u8208\u5473\u6df1\u3044\u56f3\u306b\u306a\u308b\u3068\u3044\u3046\u611f\u899a\u304b\u3089\u300150 \u5358\u8a9e\u304f\u3089\u3044\u306b\u306a\u308b\u533a\u5207\u308a\u3092\u898b\u3064\u3051\u308b<\/p>\n\n\n\n
\u4eca\u56de\u306e\u5834\u5408\u306f\u3001\u3061\u3087\u3046\u3069 20 \u56de\u4ee5\u4e0a\u3068\u3059\u308b\u3068\u300150 \u5358\u8a9e\u306b\u306a\u308b<\/p>\n\n\n\n
> table(AP3$SUMS>=20)\n\nFALSE  TRUE \n 1446    50 <\/code><\/pre>\n\n\n\n
\u306a\u306e\u3067\u300120 \u56de\u4ee5\u4e0a\u51fa\u73fe\u3057\u305f\u5358\u8a9e\u3060\u3051\u306b\u7d5e\u308b\u3053\u3068\u306b\u3059\u308b<\/p>\n\n\n\n
AP4 <- AP3 %>% \n  filter(SUMS >= 20)\n\nAP4$TERM<\/code><\/pre>\n\n\n\n
\u7d5e\u3063\u305f\u5f8c\u306e\u5358\u8a9e\u7fa4\u306f\u3001\u4ee5\u4e0b\u306e\u3068\u304a\u308a<\/p>\n\n\n\n
> AP4$TERM\n [1] \"\u3044\u3044\"         \"\u3064\u304f\"         \"\u306a\u3044\"         \"\u3088\u3044\"        \n [5] \"\u308f\u304b\u308b\"       \"\u30bf\u30f3\u30af\"       \"\u30cf\u30a4\u30d6\u30ea\u30c3\u30c9\" \"\u30d2\u30fc\u30bf\u30fc\"    \n [9] \"\u30d5\u30a3\u30eb\u30bf\u30fc\"   \"\u30ea\u30d3\u30f3\u30b0\"     \"\u4ed6\"           \"\u4f7f\u3046\"        \n[13] \"\u4f7f\u3048\u308b\"       \"\u4fa1\u683c\"         \"\u5024\u6bb5\"         \"\u5165\u308b\"        \n[17] \"\u5165\u308c\u308b\"       \"\u51fa\u308b\"         \"\u51fa\u6765\u308b\"       \"\u5206\u304b\u308b\"      \n[21] \"\u52b9\u679c\"         \"\u5546\u54c1\"         \"\u5834\u6240\"         \"\u5927\u304d\u3044\"      \n[25] \"\u5b89\u3044\"         \"\u5bb9\u91cf\"         \"\u5bdd\u308b\"         \"\u5bdd\u5ba4\"        \n[29] \"\u5c4a\u304f\"         \"\u611f\u3058\"         \"\u6301\u3064\"         \"\u66f8\u304f\"        \n[33] \"\u6708\"           \"\u672c\u4f53\"         \"\u6c17\"           \"\u6c34\"          \n[37] \"\u6e7f\u5ea6\"         \"\u7a7a\u6c17\"         \"\u7f6e\u304f\"         \"\u81ea\u52d5\"        \n[41] \"\u826f\u3044\"         \"\u82b1\u7c89\"         \"\u84b8\u6c17\"         \"\u898b\u308b\"        \n[45] \"\u8a00\u3046\"         \"\u8cb7\u3046\"         \"\u90e8\u5c4b\"         \"\u96fb\u6e90\"        \n[49] \"\u97f3\"           \"\u9ad8\u3044\"      <\/code><\/pre>\n\n\n\n
\u3053\u306e\u30bb\u30af\u30b7\u30e7\u30f3\u306e\u6700\u5f8c\u306b\u3001\u73fe\u5728\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306e AP4 \u3092\u884c\u5217\u306b\u5909\u63db\u3059\u308b<\/p>\n\n\n\n
# \u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u304b\u3089\u884c\u5217\u306b\u5909\u63db\nlibrary(stringr)\ncolnames(AP4)\n\n## \u6570\u5024\u5217\u3060\u3051\u9078\u629e\nAP5 <- AP4 %>% select(matches(\"Item\\\\d\"))\n## \u5217\u540d\u3092\u8a2d\u5b9a\ncolnames(AP5) <- Items\n## \u884c\u540d\u3092\u8a2d\u5b9a\nrownames(AP5) <- AP4$TERM\n## \u6b21\u5143\u306e\u78ba\u8a8d\ndim(AP5)<\/code><\/pre>\n\n\n\n
\u3053\u3053\u307e\u3067\u3067\u3001AP4 \u306f\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u3001\u5358\u8a9e\u306e\u7a2e\u985e\u3068\u3001\u3069\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\uff083 \u3064\u306e\u5916\u90e8\u5909\u6570\u30ab\u30c6\u30b4\u30ea\uff09\u3067\u3001\u4f55\u56de\u51fa\u73fe\u3057\u3066\u3044\u308b\u304b\u306e\u60c5\u5831\u304c\u5165\u3063\u3066\u3044\u308b<\/p>\n\n\n\n
> head(AP4)\n      TERM   POS1 POS2 Item1.txt Item2.txt Item3.txt SUMS\n199   \u3044\u3044 \u5f62\u5bb9\u8a5e \u81ea\u7acb        12        17        22   51\n372   \u3064\u304f   \u52d5\u8a5e \u81ea\u7acb         3         9        10   22\n399   \u306a\u3044 \u5f62\u5bb9\u8a5e \u81ea\u7acb        12        47        39   98\n481   \u3088\u3044 \u5f62\u5bb9\u8a5e \u81ea\u7acb         6         9         5   20\n487 \u308f\u304b\u308b   \u52d5\u8a5e \u81ea\u7acb        10         8        13   31\n654 \u30bf\u30f3\u30af   \u540d\u8a5e \u4e00\u822c        13        24        43   80<\/code><\/pre>\n\n\n\n
\u3053\u306e\u3046\u3061\u3001Item1.txt, Item2.txt, Item3.txt \u3068\u3042\u308b\u5217\u3060\u3051\u53d6\u308a\u51fa\u3059<\/p>\n\n\n\n
\u3053\u308c\u304c\u5bfe\u5fdc\u5206\u6790\u3092\u884c\u3046\u5143\u3068\u306a\u308b\u30c7\u30fc\u30bf\u3067\u3001\u3053\u306e\u90e8\u5206\u3092\u884c\u5217\u306b\u5909\u63db\u3059\u308b<\/p>\n\n\n\n
\u4e0a\u8a18\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u5b9f\u884c\u3057\u3066\u3001AP5 \u3092\u898b\u3066\u307f\u308b\u3068\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u3063\u3066\u3044\u308b<\/p>\n\n\n\n
> head(AP5)\n       \u30a2\u30a4\u30ea\u30b9\u30aa\u30fc\u30e4\u30de \u30a2\u30f3\u30c9\u30c7\u30b3 \u30d7\u30e9\u30ba\u30de\u30af\u30e9\u30b9\u30bf\u30fc\n\u3044\u3044                 12         17                 22\n\u3064\u304f                  3          9                 10\n\u306a\u3044                 12         47                 39\n\u3088\u3044                  6          9                  5\n\u308f\u304b\u308b               10          8                 13\n\u30bf\u30f3\u30af               13         24                 43<\/code><\/pre>\n\n\n\n
\u5148\u307b\u3069\u306f\u3001Item1.txt, Item2.txt, Item3.txt \u3068\u306a\u3063\u3066\u3044\u305f\u5217\u540d\u3067\u3042\u308b\u304c\u3001\u3053\u3053\u3067\u30013 \u3064\u306e\u30ab\u30c6\u30b4\u30ea\u540d\u3092\u4ed8\u3051\u305f<\/p>\n\n\n\n
\u3053\u3053\u307e\u3067\u3067\u3001AP5 \u306f\u300150 \u884c \uff58 3 \u5217\u306e\u884c\u5217\u306b\u306a\u3063\u305f<\/p>\n\n\n\n
\uff1e\uff1e\u3082\u3046\u7d71\u8a08\u3067\u60a9\u3080\u306e\u306f\u7d42\u308f\u308a\u306b\u3057\u307e\u305b\u3093\u304b\uff1f\u00a0<\/a><\/strong><\/span><\/p>\r\n\"\"<\/a>\r\n
\u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div>
\u5bfe\u5fdc\u5206\u6790\u306e\u5b9f\u65bd\u3068\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\u306e\u63cf\u753b<\/h2>\n\n\n\n
\u6700\u5f8c\u306b\u5bfe\u5fdc\u5206\u6790\u306e\u5b9f\u65bd\u3068\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\u306e\u63cf\u753b\u3092\u8aac\u660e\u3059\u308b<\/p>\n\n\n\n
\u307e\u305a\u3001\u5bfe\u5fdc\u5206\u6790\u3092 FactoMineR \u30d1\u30c3\u30b1\u30fc\u30b8\u306e CA \u95a2\u6570\u3067\u5b9f\u884c\u3059\u308b<\/p>\n\n\n\n
\u3053\u3053\u3067\u306f\u3001\u56f3\u306e\u63cf\u753b\u3092\u884c\u308f\u305a\u3001\u5225\u306e\u95a2\u6570\u3067\u56f3\u306e\u63cf\u753b\u3092\u884c\u3046<\/p>\n\n\n\n
## \u5bfe\u5fdc\u5206\u6790\u306e\u307f\uff08\u56f3\u306f\u3053\u3053\u3067\u306f\u63cf\u304b\u306a\u3044\uff09\nlibrary(FactoMineR)\nAP5.CA <- CA(AP5, graph=FALSE)\nsummary(AP5.CA)<\/code><\/pre>\n\n\n\n
\u5206\u6790\u7d50\u679c\u306e\u30b5\u30de\u30ea\u30fc\u3092\u898b\u3066\u307f\u308b\u3068\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u51fa\u529b\u3055\u308c\u308b<\/p>\n\n\n\n
> summary(AP5.CA)\n\nCall:\nCA(X = AP5, graph = FALSE) \n\nThe chi square of independence between the two variables is equal to 642.067 (p-value =  7.370266e-81 ).\n\nEigenvalues\n                       Dim.1   Dim.2\nVariance               0.209   0.066\n% of var.             76.016  23.984\nCumulative % of var.  76.016 100.000\n\nRows (the 10 first)\n               Iner*1000    Dim.1    ctr   cos2    Dim.2    ctr   cos2  \n\u3044\u3044         |     0.756 |  0.186  0.362  0.999 | -0.006  0.001  0.001 |\n\u3064\u304f         |     0.392 |  0.030  0.004  0.021 | -0.202  0.583  0.979 |\n\u306a\u3044         |     1.731 | -0.112  0.254  0.306 | -0.169  1.822  0.694 |\n\u3088\u3044         |     0.740 | -0.045  0.008  0.024 |  0.290  1.096  0.976 |\n\u308f\u304b\u308b       |     1.877 |  0.341  0.738  0.821 |  0.159  0.509  0.179 |\n\u30bf\u30f3\u30af       |     4.108 |  0.250  1.022  0.520 | -0.240  2.993  0.480 |\n\u30cf\u30a4\u30d6\u30ea\u30c3\u30c9 |    10.232 | -1.067  4.895  0.999 | -0.030  0.012  0.001 |\n\u30d2\u30fc\u30bf\u30fc     |    13.713 | -1.086  6.528  0.994 |  0.083  0.121  0.006 |\n\u30d5\u30a3\u30eb\u30bf\u30fc   |     6.256 |  0.386  1.191  0.398 | -0.475  5.718  0.602 |\n\u30ea\u30d3\u30f3\u30b0     |     1.265 | -0.337  0.513  0.846 | -0.144  0.296  0.154 |\n\nColumns\n                     Iner*1000     Dim.1     ctr    cos2     Dim.2     ctr    cos2  \n\u30a2\u30a4\u30ea\u30b9\u30aa\u30fc\u30e4\u30de   |    75.448 |   0.406  16.072   0.445 |   0.453  63.560   0.555 |\n\u30a2\u30f3\u30c9\u30c7\u30b3         |   119.996 |  -0.531  57.453   1.000 |   0.005   0.014   0.000 |\n\u30d7\u30e9\u30ba\u30de\u30af\u30e9\u30b9\u30bf\u30fc |    79.295 |   0.386  26.475   0.697 |  -0.254  36.426   0.303 |<\/code><\/pre>\n\n\n\n
Dim.1 \u3068 Dim.2 \u3068\u3044\u3046\u306e\u304c\u3001\u7b2c\u4e00\u6210\u5206\u3001\u7b2c\u4e8c\u6210\u5206\u3068\u547c\u3070\u308c\u308b\u3082\u306e\u3067\u3001\u30d7\u30ed\u30c3\u30c8\u306e\u5ea7\u6a19\u306b\u306a\u308b<\/p>\n\n\n\n
\u3053\u306e\u6570\u5024\u81ea\u4f53\u306f\u76f8\u5bfe\u7684\u306a\u610f\u5473\u5408\u3044\u3060\u3051\u306a\u306e\u3067\u3001\u7d76\u5bfe\u5024\u3067\u4f55\u304b\u5224\u65ad\u3067\u304d\u308b\u3082\u306e\u3067\u306f\u306a\u3044<\/p>\n\n\n\n
\u305d\u3057\u3066\u3001\u4ee5\u4e0b\u306e 2\u8ef8\u306e\u56f3\u3001\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\uff08\u30d0\u30a4\u306f 2 \u3064\u3068\u3044\u3046\u610f\u5473\uff09\u3092\u66f8\u3044\u3066\u3001\u50be\u5411\u3092\u898b\u3066\u53d6\u308b\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
## \u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\nlibrary(factoextra)\nfviz_ca_biplot(AP5.CA)<\/code><\/pre>\n\n\n\n
\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\u306f\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u66f8\u304b\u308c\u308b<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
\u8ef8\u306b\u66f8\u3044\u3066\u3042\u308b \uff05 \u306e\u6570\u5024\u306e\u610f\u5473\u306f\u3001\u6a2a\u8ef8\u306f\u3001\u89e3\u6790\u3057\u305f\u884c\u5217\u30c7\u30fc\u30bf\uff08AP5\uff09\u306e\u3070\u3089\u3064\u304d\u306e 76 \uff05 \u3092\u3001\u7e26\u8ef8\u306f\u3001\u3070\u3089\u3064\u304d\u306e 24 \uff05 \u3092\u5360\u3081\u3066\u3044\u308b\u3068\u3044\u3046\u610f\u5473\u3067\u3042\u308b<\/p>\n\n\n\n
\u305d\u3057\u3066\u3001\u6a2a\u8ef8\u3068\u7e26\u8ef8\u304c\u4f55\u3092\u793a\u3057\u3066\u3044\u308b\u304b\u306f\u3001\u5206\u6790\u8005\u304c\u60f3\u50cf\u3092\u3081\u3050\u3089\u3059\u3068\u3044\u3046\u898b\u65b9\u306b\u306a\u308b<\/p>\n\n\n\n
\u5358\u8a9e\u304b\u3089\u306f\u3001\u8ef8\u306e\u50be\u5411\u306f\u3001\u898b\u3066\u53d6\u308c\u306a\u3044\u304c\u3001\u3042\u306a\u305f\u306a\u3089\u3001\u3069\u306e\u3088\u3046\u306a\u898b\u65b9\u3092\u3059\u308b\u3060\u308d\u3046\u304b<\/p>\n\n\n\n
\u5343\u5dee\u4e07\u5225\u306a\u306e\u3067\u3001\u6b63\u89e3\u306f\u306a\u3044<\/p>\n\n\n\n
\u4e00\u65b9\u3067\u3001\u8d64\u3067\u66f8\u3044\u3066\u3042\u308b 3 \u3064\u306e\u5916\u90e8\u5909\u6570\u3067\u3042\u308b\u304c\u3001\u30a2\u30a4\u30ea\u30b9\u30aa\u30fc\u30e4\u30de\u3068\u30d7\u30e9\u30ba\u30de\u30af\u30e9\u30b9\u30bf\u30fc\u3068\u3042\u308b 2 \u3064\u306f\u7a7a\u6c17\u6e05\u6d44\u6a5f\u3067\u3001\u30a2\u30f3\u30c9\u30c7\u30b3\u306f\u52a0\u6e7f\u5668\u3067\u3042\u308b\u305f\u3081\u3001\u6a2a\u8ef8\u306f\u3001\u6a5f\u80fd\u306e\u9055\u3044\u305d\u306e\u3082\u306e\u304b\u3082\u3057\u308c\u306a\u3044<\/p>\n\n\n\n
\u3067\u306f\u3001\u7e26\u8ef8\u306f\u3001\u3069\u3046\u304b\u3068\u8a00\u3048\u3070\u3001\u30ea\u30fc\u30ba\u30ca\u30d6\u30eb\u306a\u4fa1\u683c\u3067\u30b7\u30f3\u30d7\u30eb vs \u9ad8\u304f\u3066\u9ad8\u6a5f\u80fd \u3068\u3044\u3046\u3088\u3046\u306a\u8ef8\u304b\u3082\u3057\u308c\u306a\u3044<\/p>\n\n\n\n
\u9752\u306e\u5358\u8a9e\u3068\u8d64\u306e\u5916\u90e8\u5909\u6570\u306e\u95a2\u4fc2\u6027\u3067\u3082\u8aad\u307f\u53d6\u308a\u3092\u3057\u3066\u3001\u60f3\u50cf\u3092\u81a8\u3089\u307e\u305b\u308b\u3068\u3088\u3044<\/p>\n\n\n\n
\u5916\u90e8\u5909\u6570\u306e\u5468\u8fba\u306b\u96c6\u307e\u3063\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u306f\u3001\u76f4\u63a5\u7684\u306b\u306f\u95a2\u4fc2\u306a\u3044\u304c\u3001\u305d\u306e\u65b9\u5411\u306b\u3042\u308b\u5358\u8a9e\u306f\u3001\u5916\u90e8\u5909\u6570\u30ab\u30c6\u30b4\u30ea\u3067\u767a\u305b\u3089\u308c\u304c\u3061\u306a\u5358\u8a9e\u3068\u8aad\u307f\u53d6\u308c\u3070\u3088\u3044<\/p>\n\n\n\n
\u30d7\u30e9\u30ba\u30de\u30af\u30e9\u30b9\u30bf\u30fc\u306e\u65b9\u5411\u306b\u306f\u3001\u81ea\u52d5\u30fb\u30d5\u30a3\u30eb\u30bf\u30fc\u30fb\u82b1\u7c89 \u306a\u3069\u304c\u76ee\u306b\u4ed8\u304f<\/p>\n\n\n\n
\u30a2\u30a4\u30ea\u30b9\u30aa\u30fc\u30e4\u30de\u306e\u65b9\u5411\u306b\u306f\u3001\u5024\u6bb5\u30fb\u5bdd\u5ba4\u30fb\u97f3\u30fb\u5927\u304d\u3044\u306a\u3069\u304c\u76ee\u306b\u5165\u308b<\/p>\n\n\n\n
\u30a2\u30f3\u30c9\u30c7\u30b3\u306e\u65b9\u5411\u306b\u306f\u3001\u6e7f\u5ea6\u30fb\u9ad8\u3044\u30fb\u30ea\u30d3\u30f3\u30b0\u306a\u3069\u304c\u7279\u5fb4\u3068\u601d\u308f\u308c\u308b<\/p>\n\n\n\n
\u3053\u306e\u3088\u3046\u306b\u3001\u5bfe\u5fdc\u5206\u6790\u306f\u3001\u4f55\u304b\u691c\u8a3c\u7684\u306a\u5206\u6790\u3068\u3044\u3046\u308f\u3051\u3067\u306f\u306a\u3044\u3082\u306e\u306e\u3001\u5358\u8a9e\u306e\u51fa\u73fe\u304c\u5916\u90e8\u5909\u6570\u3068\u306e\u95a2\u4fc2\u6027\u306b\u304a\u3044\u3066\u3001\u3069\u306e\u3088\u3046\u306a\u50be\u5411\u304c\u3042\u308b\u304b\u3092\u3001\u53ef\u8996\u5316\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3068\u3044\u3046\u70b9\u3067\u3001\u8208\u5473\u6df1\u3044\u5206\u6790\u65b9\u6cd5\u3067\u3042\u308b<\/p>\n\n\n\n
\u307e\u3068\u3081<\/h2>\n\n\n\n
R \u3067\u30c6\u30ad\u30b9\u30c8\u30de\u30a4\u30cb\u30f3\u30b0\uff08\u5f62\u614b\u7d20\u89e3\u6790\uff09\u3092\u884c\u3044\u3001\u5bfe\u5fdc\u5206\u6790\u3092\u5b9f\u65bd\u3057\u3001\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\u3092\u66f8\u304f\u65b9\u6cd5\u3092\u89e3\u8aac\u3057\u305f<\/p>\n\n\n\n
\u5916\u90e8\u5909\u6570\u3068\u306e\u95a2\u4fc2\u6027\u3092\u898b\u3089\u308c\u308b\u8208\u5473\u6df1\u3044\u5206\u6790\u65b9\u6cd5\u3067\u3042\u308b<\/p>\n\n\n\n
\u53c2\u8003\u306b\u306a\u308c\u3070<\/p>\n\n\n\n
\u53c2\u8003\u66f8\u7c4d<\/h2>\n\n\n\n
R\u306b\u3088\u308b\u30c6\u30ad\u30b9\u30c8\u30de\u30a4\u30cb\u30f3\u30b0\u5165\u9580(\u7b2c2\u7248)<\/a><\/p>\n\n\n\n\n","protected":false},"excerpt":{"rendered":"
R \u3067\u5f62\u614b\u7d20\u89e3\u6790\u3092\u884c\u3044\u3001\u5916\u90e8\u5909\u6570\u3068\u306e\u5bfe\u5fdc\u5206\u6790\u3092\u5b9f\u884c\u3057\u3001\u30d0\u30a4\u30d7\u30ed\u30c3\u30c8\uff08biplot\uff09\u3092\u66f8\u304f\u65b9\u6cd5\u306e\u89e3\u8aac<\/p>\n","protected":false},"author":2,"featured_media":3284,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[5,93,123],"tags":[],"class_list":["post-3280","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r","category-93","category-123"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2024\/11\/ca_air_purifier_comment.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/3280","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/comments?post=3280"}],"version-history":[{"count":16,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/3280\/revisions"}],"predecessor-version":[{"id":3553,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/3280\/revisions\/3553"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media\/3284"}],"wp:attachment":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media?parent=3280"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/categories?post=3280"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/tags?post=3280"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}