{"id":1211,"date":"2023-07-27T06:58:14","date_gmt":"2023-07-27T06:58:14","guid":{"rendered":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/"},"modified":"2023-07-27T06:58:14","modified_gmt":"2023-07-27T06:58:14","slug":"r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95","status":"publish","type":"post","link":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/","title":{"rendered":"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\">\u673a\u5668\u5b66\u4e60\u4e2d\u6700\u5e38\u89c1\u7684\u95ee\u9898\u4e4b\u4e00\u662f<a href=\"https:\/\/statorials.org\/cn\/\u591a\u91cd\u5171\u7ebf\u6027\u56de\u5f52\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u591a\u91cd\u5171\u7ebf\u6027<\/a>\u3002\u5f53\u6570\u636e\u96c6\u4e2d\u7684\u4e24\u4e2a\u6216\u591a\u4e2a\u9884\u6d4b\u53d8\u91cf\u9ad8\u5ea6\u76f8\u5173\u65f6\uff0c\u5c31\u4f1a\u53d1\u751f\u8fd9\u79cd\u60c5\u51b5\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u53d1\u751f\u8fd9\u79cd\u60c5\u51b5\u65f6\uff0c\u6a21\u578b\u53ef\u80fd\u80fd\u591f\u5f88\u597d\u5730\u62df\u5408\u8bad\u7ec3\u6570\u636e\u96c6\uff0c\u4f46\u5b83\u53ef\u80fd\u5728\u4ece\u672a\u89c1\u8fc7\u7684\u65b0\u6570\u636e\u96c6\u4e0a\u8868\u73b0\u4e0d\u4f73\uff0c\u56e0\u4e3a\u5b83\u4e0e\u8bad\u7ec3\u6570\u636e\u96c6<a href=\"https:\/\/statorials.org\/cn\/\u673a\u5668\u5b66\u4e60\u8fc7\u5ea6\u62df\u5408\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u8fc7\u5ea6\u62df\u5408<\/a>\u3002\u8bad\u7ec3\u96c6\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u89e3\u51b3\u8fd9\u4e2a\u95ee\u9898\u7684\u4e00\u79cd\u65b9\u6cd5\u662f\u4f7f\u7528\u4e00\u79cd\u79f0\u4e3a <a href=\"https:\/\/statorials.org\/cn\/\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5<\/a>\u7684\u65b9\u6cd5\uff0c\u5176\u5de5\u4f5c\u539f\u7406\u5982\u4e0b\uff1a<\/span><\/p>\n<ul>\n<li><span style=\"color: #000000;\">\u6807\u51c6\u5316\u9884\u6d4b\u53d8\u91cf\u548c\u54cd\u5e94\u53d8\u91cf\u3002<\/span><\/li>\n<li>\u8ba1\u7b97<em style=\"color: #000000;\">p \u4e2a<\/em>\u539f\u59cb\u9884\u6d4b\u53d8\u91cf<span style=\"color: #000000;\">\u7684<em>M \u4e2a<\/em>\u7ebf\u6027\u7ec4\u5408\uff08\u79f0\u4e3a\u201cPLS \u5206\u91cf\u201d\uff09\uff0c<\/span><span style=\"color: #000000;\">\u8fd9\u4e9b\u7ec4\u5408\u89e3\u91ca\u4e86\u54cd\u5e94\u53d8\u91cf\u548c\u9884\u6d4b\u53d8\u91cf\u4e2d\u7684\u5927\u91cf\u53d8\u5316\u3002<\/span><\/li>\n<li><span style=\"color: #000000;\">\u4f7f\u7528\u6700\u5c0f\u4e8c\u4e58\u6cd5\u62df\u5408\u7ebf\u6027\u56de\u5f52\u6a21\u578b\uff0c\u5e76\u4f7f\u7528 PLS \u5206\u91cf\u4f5c\u4e3a\u9884\u6d4b\u53d8\u91cf\u3002<\/span><\/li>\n<li><span style=\"color: #000000;\">\u4f7f\u7528<\/span><a href=\"https:\/\/statorials.org\/cn\/k\u6298\u4ea4\u53c9\u9a8c\u8bc1\/\" target=\"_blank\" rel=\"noopener noreferrer\">k \u6298\u4ea4\u53c9\u9a8c\u8bc1<\/a><span style=\"color: #000000;\">\u6765\u627e\u5230\u6a21\u578b\u4e2d\u4fdd\u7559\u7684 PLS \u7ec4\u4ef6\u7684\u6700\u4f73\u6570\u91cf\u3002<\/span><\/li>\n<\/ul>\n<p><span style=\"color: #000000;\">\u672c\u6559\u7a0b\u63d0\u4f9b\u4e86\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\u7684\u5206\u6b65\u793a\u4f8b\u3002<\/span><\/p>\n<h3><span style=\"color: #000000;\"><strong>\u7b2c1\u6b65\uff1a\u52a0\u8f7d\u5fc5\u8981\u7684\u5305<\/strong><\/span><\/h3>\n<p><span style=\"color: #000000;\">\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u7684\u6700\u7b80\u5355\u65b9\u6cd5\u662f\u4f7f\u7528<a href=\"https:\/\/cran.r-project.org\/web\/packages\/pls\/pls.pdf\" target=\"_blank\" rel=\"noopener noreferrer\">pls<\/a>\u5305\u4e2d\u7684\u51fd\u6570\u3002<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#install pls package (if not already installed)<\/span>\ninstall.packages(\" <span style=\"color: #008000;\">pls<\/span> \")\n\n<span style=\"color: #008080;\">load pls package\n<\/span>library(pls)\n<\/strong><\/pre>\n<h3><span style=\"color: #000000;\"><strong>\u6b65\u9aa4 2\uff1a\u62df\u5408\u504f\u6700\u5c0f\u4e8c\u4e58\u6a21\u578b<\/strong><\/span><\/h3>\n<p><span style=\"color: #000000;\">\u5728\u6b64\u793a\u4f8b\u4e2d\uff0c\u6211\u4eec\u5c06\u4f7f\u7528\u540d\u4e3a<strong>mtcars<\/strong>\u7684\u5185\u7f6e R \u6570\u636e\u96c6\uff0c\u5176\u4e2d\u5305\u542b\u4e0d\u540c\u7c7b\u578b\u6c7d\u8f66\u7684\u6570\u636e\uff1a<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#view first six rows of mtcars dataset<\/span>\nhead(mtcars)\n\n                   mpg cyl disp hp drat wt qsec vs am gear carb\nMazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4\nMazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4\nDatsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1\nHornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1\nHornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2\nValiant 18.1 6 225 105 2.76 3,460 20.22 1 0 3 1\n<\/strong><\/pre>\n<p><span style=\"color: #000000;\">\u5bf9\u4e8e\u6b64\u793a\u4f8b\uff0c\u6211\u4eec\u5c06\u4f7f\u7528<em>hp<\/em>\u4f5c\u4e3a<a href=\"https:\/\/statorials.org\/cn\/\u53d8\u91cf\u89e3\u91ca\u6027\u53cd\u5e94\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u54cd\u5e94\u53d8\u91cf<\/a>\u5e76\u4f7f\u7528\u4ee5\u4e0b\u53d8\u91cf\u4f5c\u4e3a\u9884\u6d4b\u53d8\u91cf\u6765\u62df\u5408\u504f\u6700\u5c0f\u4e8c\u4e58 (PLS) \u6a21\u578b\uff1a<\/span><\/p>\n<ul>\n<li><span style=\"color: #000000;\">\u82f1\u91cc\/\u52a0\u4ed1<\/span><\/li>\n<li><span style=\"color: #000000;\">\u5c55\u793a<\/span><\/li>\n<li><span style=\"color: #000000;\">\u62c9\u5c4e<\/span><\/li>\n<li><span style=\"color: #000000;\">\u91cd\u91cf<\/span><\/li>\n<li><span style=\"color: #000000;\">\u5feb\u79d2<\/span><\/li>\n<\/ul>\n<p><span style=\"color: #000000;\">\u4ee5\u4e0b\u4ee3\u7801\u663e\u793a\u4e86\u5982\u4f55\u4f7f PLS \u6a21\u578b\u9002\u5408\u6b64\u6570\u636e\u3002\u8bf7\u6ce8\u610f\u4ee5\u4e0b\u53c2\u6570\uff1a<\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\"><strong>scale=TRUE<\/strong> \uff1a\u8fd9\u544a\u8bc9 R \u6570\u636e\u96c6\u4e2d\u7684\u6bcf\u4e2a\u53d8\u91cf\u90fd\u5e94\u8be5\u7f29\u653e\u4e3a\u5747\u503c 0 \u548c\u6807\u51c6\u5dee 1\u3002\u8fd9\u786e\u4fdd\u4e86\u5982\u679c\u4ee5\u4e0d\u540c\u7684\u5355\u4f4d\u8fdb\u884c\u6d4b\u91cf\uff0c\u5219\u9884\u6d4b\u53d8\u91cf\u4e0d\u4f1a\u5bf9\u6a21\u578b\u4ea7\u751f\u592a\u5927\u5f71\u54cd\u3002<\/span><\/li>\n<li> <span style=\"color: #000000;\"><strong>validation=\u201dCV\u201d<\/strong> \uff1a\u8fd9\u544a\u8bc9 R \u4f7f\u7528<a href=\"https:\/\/statorials.org\/cn\/k\u6298\u4ea4\u53c9\u9a8c\u8bc1\/\" target=\"_blank\" rel=\"noopener noreferrer\">k \u6298\u4ea4\u53c9\u9a8c\u8bc1<\/a>\u6765\u8bc4\u4f30\u6a21\u578b\u6027\u80fd\u3002\u8bf7\u6ce8\u610f\uff0c\u9ed8\u8ba4\u60c5\u51b5\u4e0b\u4f7f\u7528 k=10 \u6298\u53e0\u3002\u53e6\u8bf7\u6ce8\u610f\uff0c\u60a8\u53ef\u4ee5\u6307\u5b9a\u201cLOOCV\u201d\u6765<a href=\"https:\/\/statorials.org\/cn\/\u7559\u4e0b\u4e00\u4e2a\u4ea4\u53c9\u9a8c\u8bc1\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u4ee3\u66ff\u6267\u884c\u7559\u4e00\u4ea4\u53c9\u9a8c\u8bc1<\/a>\u3002<\/span><\/li>\n<\/ul>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#make this example reproducible\n<\/span>set.seed(1)\n\n<span style=\"color: #008080;\">#fit PCR model\n<\/span>model &lt;- plsr(hp~mpg+disp+drat+wt+qsec, data=mtcars, scale= <span style=\"color: #008000;\">TRUE<\/span> , validation=\" <span style=\"color: #008000;\">CV<\/span> \")<\/strong><\/pre>\n<h3><span style=\"color: #000000;\"><strong>\u6b65\u9aa43\uff1a\u9009\u62e9PLS\u7ec4\u4ef6\u7684\u6570\u91cf<\/strong><\/span><\/h3>\n<p><span style=\"color: #000000;\">\u4e00\u65e6\u6211\u4eec\u62df\u5408\u4e86\u6a21\u578b\uff0c\u6211\u4eec\u9700\u8981\u786e\u5b9a\u8981\u4fdd\u7559\u591a\u5c11\u4e2a PLS \u7ec4\u4ef6\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u4e3a\u6b64\uff0c\u53ea\u9700\u67e5\u770b\u901a\u8fc7 k \u4ea4\u53c9\u9a8c\u8bc1\u8ba1\u7b97\u51fa\u7684\u6d4b\u8bd5\u5747\u65b9\u6839\u8bef\u5dee\uff08\u6d4b\u8bd5 RMSE\uff09\uff1a<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#view summary of model fitting\n<\/span>summary(model)\n\nData: \n\tY dimension: 32 1\nFit method: kernelpls\nNumber of components considered: 5\n\nVALIDATION: RMSEP\nCross-validated using 10 random segments.\n       (Intercept) 1 comp 2 comps 3 comps 4 comps 5 comps\nCV 69.66 40.57 35.48 36.22 36.74 36.67\nadjCV 69.66 40.41 35.12 35.80 36.27 36.20\n\nTRAINING: % variance explained\n    1 comp 2 comps 3 comps 4 comps 5 comps\nX 68.66 89.27 95.82 97.94 100.00\nhp 71.84 81.74 82.00 82.02 82.03\n<\/strong><\/pre>\n<p><span style=\"color: #000000;\">\u7ed3\u679c\u4e2d\u6709\u4e24\u4e2a\u6709\u8da3\u7684\u8868\uff1a<\/span><\/p>\n<p> <span style=\"color: #000000;\"><strong>1. \u9a8c\u8bc1\uff1aRMSEP<\/strong><\/span><\/p>\n<p><span style=\"color: #000000;\">\u8be5\u8868\u544a\u8bc9\u6211\u4eec\u901a\u8fc7 k \u500d\u4ea4\u53c9\u9a8c\u8bc1\u8ba1\u7b97\u51fa\u7684 RMSE \u68c0\u9a8c\u3002\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u4ee5\u4e0b\u5185\u5bb9\uff1a<\/span><\/p>\n<ul>\n<li><span style=\"color: #000000;\">\u5982\u679c\u6211\u4eec\u5728\u6a21\u578b\u4e2d\u4ec5\u4f7f\u7528\u539f\u59cb\u9879\uff0c\u5219\u68c0\u9a8c\u7684 RMSE \u4e3a<strong>69.66<\/strong> \u3002<\/span><\/li>\n<li><span style=\"color: #000000;\">\u5982\u679c\u6211\u4eec\u6dfb\u52a0\u7b2c\u4e00\u4e2a PLS \u5206\u91cf\uff0cRMSE \u6d4b\u8bd5\u5c06\u964d\u81f3<strong>40.57\u3002<\/strong><\/span><\/li>\n<li><span style=\"color: #000000;\">\u5982\u679c\u6211\u4eec\u6dfb\u52a0\u7b2c\u4e8c\u4e2a PLS \u5206\u91cf\uff0cRMSE \u6d4b\u8bd5\u5c06\u964d\u81f3<strong>35.48\u3002<\/strong><\/span><\/li>\n<\/ul>\n<p><span style=\"color: #000000;\">\u6211\u4eec\u53ef\u4ee5\u770b\u5230\uff0c\u6dfb\u52a0\u989d\u5916\u7684 PLS \u7ec4\u4ef6\u5b9e\u9645\u4e0a\u4f1a\u5bfc\u81f4\u6d4b\u8bd5\u7684 RMSE \u589e\u52a0\u3002\u56e0\u6b64\uff0c\u770b\u6765\u5728\u6700\u7ec8\u6a21\u578b\u4e2d\u4ec5\u4f7f\u7528\u4e24\u4e2a PLS \u7ec4\u4ef6\u662f\u6700\u4f73\u9009\u62e9\u3002<\/span><\/p>\n<p> <span style=\"color: #000000;\"><strong>2. \u8bad\u7ec3\uff1a\u89e3\u91ca\u65b9\u5dee\u767e\u5206\u6bd4<\/strong><\/span><\/p>\n<p><span style=\"color: #000000;\">\u8be5\u8868\u544a\u8bc9\u6211\u4eec PLS \u5206\u91cf\u89e3\u91ca\u7684\u54cd\u5e94\u53d8\u91cf\u7684\u65b9\u5dee\u767e\u5206\u6bd4\u3002\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u4ee5\u4e0b\u5185\u5bb9\uff1a<\/span><\/p>\n<ul>\n<li><span style=\"color: #000000;\">\u4ec5\u4f7f\u7528\u7b2c\u4e00\u4e2a PLS \u5206\u91cf\uff0c\u6211\u4eec\u53ef\u4ee5\u89e3\u91ca\u54cd\u5e94\u53d8\u91cf\u4e2d<strong>68.66%<\/strong>\u7684\u53d8\u5f02\u3002<\/span><\/li>\n<li><span style=\"color: #000000;\">\u901a\u8fc7\u6dfb\u52a0\u7b2c\u4e8c\u4e2a PLS \u5206\u91cf\uff0c\u6211\u4eec\u53ef\u4ee5\u89e3\u91ca\u54cd\u5e94\u53d8\u91cf\u4e2d<strong>89.27%<\/strong>\u7684\u53d8\u5f02\u3002<\/span><\/li>\n<\/ul>\n<p><span style=\"color: #000000;\">\u8bf7\u6ce8\u610f\uff0c\u6211\u4eec\u4ecd\u7136\u80fd\u591f\u901a\u8fc7\u4f7f\u7528\u66f4\u591a\u7684 PLS \u5206\u91cf\u6765\u89e3\u91ca\u66f4\u591a\u7684\u65b9\u5dee\uff0c\u4f46\u6211\u4eec\u53ef\u4ee5\u770b\u5230\uff0c\u6dfb\u52a0\u4e24\u4e2a\u4ee5\u4e0a\u7684 PLS \u5206\u91cf\u5b9e\u9645\u4e0a\u5e76\u4e0d\u4f1a\u589e\u52a0\u592a\u591a\u89e3\u91ca\u7684\u65b9\u5dee\u767e\u5206\u6bd4\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u6211\u4eec\u8fd8\u53ef\u4ee5\u4f7f\u7528<strong>validationplot()<\/strong>\u51fd\u6570\u5c06RMSE\u6d4b\u8bd5\uff08\u4ee5\u53caMSE\u548cR\u5e73\u65b9\u6d4b\u8bd5\uff09\u53ef\u89c6\u5316\u4e3aPLS\u5206\u91cf\u6570\u91cf\u7684\u51fd\u6570\u3002<\/span> <\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#visualize cross-validation plots\n<\/span>validationplot(model)\nvalidationplot(model, val.type=\" <span style=\"color: #008000;\">MSEP<\/span> \")\nvalidationplot(model, val.type=\" <span style=\"color: #008000;\">R2<\/span> \")<\/strong> <\/pre>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"aligncenter wp-image-11975 \" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/svpr1.png\" alt=\"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\" width=\"396\" height=\"382\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"aligncenter wp-image-11976 \" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/sil-vous-plaitr2.png\" alt=\"R \u4e2d\u7684 MSE \u4ea4\u53c9\u9a8c\u8bc1\" width=\"396\" height=\"391\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p><img decoding=\"async\" loading=\"lazy\" class=\"aligncenter wp-image-11977 \" src=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/sil-vous-plaitr3.png\" alt=\"R \u4e2d\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\u7684\u4ea4\u53c9\u9a8c\u8bc1\" width=\"397\" height=\"387\" srcset=\"\" sizes=\"auto, \"><\/p>\n<p><span style=\"color: #000000;\">\u5728\u6bcf\u5f20\u56fe\u4e2d\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\uff0c\u901a\u8fc7\u6dfb\u52a0\u4e24\u4e2a PLS \u7ec4\u4ef6\uff0c\u6a21\u578b\u62df\u5408\u5ea6\u6709\u6240\u63d0\u9ad8\uff0c\u4f46\u5f53\u6211\u4eec\u6dfb\u52a0\u66f4\u591a PLS \u7ec4\u4ef6\u65f6\uff0c\u6a21\u578b\u62df\u5408\u5ea6\u5f80\u5f80\u4f1a\u6076\u5316\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u56e0\u6b64\uff0c\u6700\u4f18\u6a21\u578b\u4ec5\u5305\u542b\u524d\u4e24\u4e2a PLS \u5206\u91cf\u3002<\/span><\/p>\n<h3><span style=\"color: #000000;\"><strong>\u7b2c 4 \u6b65\uff1a\u4f7f\u7528\u6700\u7ec8\u6a21\u578b\u8fdb\u884c\u9884\u6d4b<\/strong><\/span><\/h3>\n<p><span style=\"color: #000000;\">\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u5177\u6709\u4e24\u4e2a PLS \u7ec4\u4ef6\u7684\u6700\u7ec8\u6a21\u578b\u6765\u5bf9\u65b0\u89c2\u5bdf\u7ed3\u679c\u8fdb\u884c\u9884\u6d4b\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u4ee5\u4e0b\u4ee3\u7801\u6f14\u793a\u4e86\u5982\u4f55\u5c06\u539f\u59cb\u6570\u636e\u96c6\u62c6\u5206\u4e3a\u8bad\u7ec3\u96c6\u548c\u6d4b\u8bd5\u96c6\uff0c\u5e76\u4f7f\u7528\u5177\u6709\u4e24\u4e2a PLS \u7ec4\u4ef6\u7684\u6700\u7ec8\u6a21\u578b\u5bf9\u6d4b\u8bd5\u96c6\u8fdb\u884c\u9884\u6d4b\u3002<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#define training and testing sets\n<\/span>train &lt;- mtcars[1:25, c(\"hp\", \"mpg\", \"disp\", \"drat\", \"wt\", \"qsec\")]\ny_test &lt;- mtcars[26: <span style=\"color: #3366ff;\">nrow<\/span> (mtcars), c(\"hp\")]\ntest &lt;- mtcars[26: <span style=\"color: #3366ff;\">nrow<\/span> (mtcars), c(\"mpg\", \"disp\", \"drat\", \"wt\", \"qsec\")]\n    \n<span style=\"color: #008080;\">#use model to make predictions on a test set\n<\/span>model &lt;- plsr(hp~mpg+disp+drat+wt+qsec, data=train, scale= <span style=\"color: #008000;\">TRUE<\/span> , validation=\" <span style=\"color: #008000;\">CV<\/span> \")\npcr_pred &lt;- predict(model, test, ncomp= <span style=\"color: #008000;\">2<\/span> )\n\n<span style=\"color: #008080;\">#calculate RMSE\n<\/span><span style=\"color: #3366ff;\">sqrt<\/span> ( <span style=\"color: #3366ff;\">mean<\/span> ((pcr_pred - y_test)^2))\n\n[1] 54.89609\n<\/strong><\/pre>\n<p><span style=\"color: #000000;\">\u6211\u4eec\u770b\u5230\u6d4b\u8bd5\u7684 RMSE \u7ed3\u679c\u4e3a<strong>54.89609<\/strong> \u3002\u8fd9\u662f\u6d4b\u8bd5\u96c6\u89c2\u6d4b\u503c\u7684\u9884\u6d4b<em>hp<\/em>\u503c\u548c\u89c2\u5bdf\u5230\u7684<em>hp<\/em>\u503c\u4e4b\u95f4\u7684\u5e73\u5747\u504f\u5dee\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u8bf7\u6ce8\u610f\uff0c\u5177\u6709\u4e24\u4e2a\u4e3b\u6210\u5206<a href=\"https:\/\/statorials.org\/cn\/r-\u4e2d\u7684\u4e3b\u6210\u5206\u56de\u5f52\/\" target=\"_blank\" rel=\"noopener noreferrer\">\u7684\u7b49\u6548\u4e3b\u6210\u5206\u56de\u5f52\u6a21\u578b<\/a>\u4ea7\u751f\u7684\u6d4b\u8bd5 RMSE \u4e3a<strong>56.86549<\/strong> \u3002\u56e0\u6b64\uff0c\u5bf9\u4e8e\u8be5\u6570\u636e\u96c6\uff0cPLS \u6a21\u578b\u7a0d\u5fae\u4f18\u4e8e PCR \u6a21\u578b\u3002<\/span><\/p>\n<p><span style=\"color: #000000;\">\u53ef\u4ee5<a href=\"https:\/\/github.com\/Statorials\/R-Guides\/blob\/main\/partial_least_squares.R\" target=\"_blank\" rel=\"noopener noreferrer\">\u5728\u6b64\u5904<\/a>\u627e\u5230\u6b64\u793a\u4f8b\u4e2d R \u4ee3\u7801\u7684\u5b8c\u6574\u7528\u6cd5\u3002<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u673a\u5668\u5b66\u4e60\u4e2d\u6700\u5e38\u89c1\u7684\u95ee\u9898\u4e4b\u4e00\u662f\u591a\u91cd\u5171\u7ebf\u6027\u3002\u5f53\u6570\u636e\u96c6\u4e2d\u7684\u4e24\u4e2a\u6216\u591a\u4e2a\u9884\u6d4b\u53d8\u91cf\u9ad8\u5ea6\u76f8\u5173\u65f6\uff0c\u5c31\u4f1a\u53d1\u751f\u8fd9\u79cd\u60c5\u51b5\u3002 \u53d1\u751f\u8fd9\u79cd [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-1211","post","type-post","status-publish","format-standard","hentry","category-11"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09<\/title>\n<meta name=\"description\" content=\"\u672c\u6559\u7a0b\u4ecb\u7ecd\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff0c\u5305\u62ec\u5206\u6b65\u793a\u4f8b\u3002\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/cn\/r-\u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\/\" \/>\n<meta property=\"og:locale\" content=\"zh_CN\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09\" \/>\n<meta property=\"og:description\" content=\"\u672c\u6559\u7a0b\u4ecb\u7ecd\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff0c\u5305\u62ec\u5206\u6b65\u793a\u4f8b\u3002\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/cn\/r-\u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-27T06:58:14+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/svpr1.png\" \/>\n<meta name=\"author\" content=\"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u4f5c\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u9884\u8ba1\u9605\u8bfb\u65f6\u95f4\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 \u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/\",\"url\":\"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/\",\"name\":\"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/cn\/#website\"},\"datePublished\":\"2023-07-27T06:58:14+00:00\",\"dateModified\":\"2023-07-27T06:58:14+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/cn\/#\/schema\/person\/124e4e5b7c9f8dc0f1f95cc8c1db3261\"},\"description\":\"\u672c\u6559\u7a0b\u4ecb\u7ecd\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff0c\u5305\u62ec\u5206\u6b65\u793a\u4f8b\u3002\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/#breadcrumb\"},\"inLanguage\":\"zh-Hans\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u5bb6\",\"item\":\"https:\/\/statorials.org\/cn\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/cn\/#website\",\"url\":\"https:\/\/statorials.org\/cn\/\",\"name\":\"Statorials\",\"description\":\"\u60a8\u7684\u7edf\u8ba1\u7d20\u517b\u6307\u5357\uff01\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/cn\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"zh-Hans\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/cn\/#\/schema\/person\/124e4e5b7c9f8dc0f1f95cc8c1db3261\",\"name\":\"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"zh-Hans\",\"@id\":\"https:\/\/statorials.org\/cn\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/statorials.org\/cn\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"https:\/\/statorials.org\/cn\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg\",\"caption\":\"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a\"},\"description\":\"\u5927\u5bb6\u597d\uff0c\u6211\u662f\u672c\u6770\u660e\uff0c\u4e00\u4f4d\u9000\u4f11\u7684\u7edf\u8ba1\u5b66\u6559\u6388\uff0c\u540e\u6765\u6210\u4e3a Statorials \u7684\u70ed\u5fc3\u6559\u5e08\u3002 \u51ed\u501f\u5728\u7edf\u8ba1\u9886\u57df\u7684\u4e30\u5bcc\u7ecf\u9a8c\u548c\u4e13\u4e1a\u77e5\u8bc6\uff0c\u6211\u6e34\u671b\u5206\u4eab\u6211\u7684\u77e5\u8bc6\uff0c\u901a\u8fc7 Statorials \u589e\u5f3a\u5b66\u751f\u7684\u80fd\u529b\u3002\u4e86\u89e3\u66f4\u591a\",\"sameAs\":[\"https:\/\/statorials.org\/cn\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09","description":"\u672c\u6559\u7a0b\u4ecb\u7ecd\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff0c\u5305\u62ec\u5206\u6b65\u793a\u4f8b\u3002","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/cn\/r-\u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\/","og_locale":"zh_CN","og_type":"article","og_title":"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09","og_description":"\u672c\u6559\u7a0b\u4ecb\u7ecd\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff0c\u5305\u62ec\u5206\u6b65\u793a\u4f8b\u3002","og_url":"https:\/\/statorials.org\/cn\/r-\u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\/","og_site_name":"Statorials","article_published_time":"2023-07-27T06:58:14+00:00","og_image":[{"url":"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/svpr1.png"}],"author":"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a","twitter_card":"summary_large_image","twitter_misc":{"\u4f5c\u8005":"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a","\u9884\u8ba1\u9605\u8bfb\u65f6\u95f4":"1 \u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/","url":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/","name":"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09","isPartOf":{"@id":"https:\/\/statorials.org\/cn\/#website"},"datePublished":"2023-07-27T06:58:14+00:00","dateModified":"2023-07-27T06:58:14+00:00","author":{"@id":"https:\/\/statorials.org\/cn\/#\/schema\/person\/124e4e5b7c9f8dc0f1f95cc8c1db3261"},"description":"\u672c\u6559\u7a0b\u4ecb\u7ecd\u5982\u4f55\u5728 R \u4e2d\u6267\u884c\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff0c\u5305\u62ec\u5206\u6b65\u793a\u4f8b\u3002","breadcrumb":{"@id":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/#breadcrumb"},"inLanguage":"zh-Hans","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%81%8f%e6%9c%80%e5%b0%8f%e4%ba%8c%e4%b9%98%e6%b3%95\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u5bb6","item":"https:\/\/statorials.org\/cn\/"},{"@type":"ListItem","position":2,"name":"R \u4e2d\u7684\u504f\u6700\u5c0f\u4e8c\u4e58\u6cd5\uff08\u4e00\u6b65\u4e00\u6b65\uff09"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/cn\/#website","url":"https:\/\/statorials.org\/cn\/","name":"Statorials","description":"\u60a8\u7684\u7edf\u8ba1\u7d20\u517b\u6307\u5357\uff01","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/cn\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"zh-Hans"},{"@type":"Person","@id":"https:\/\/statorials.org\/cn\/#\/schema\/person\/124e4e5b7c9f8dc0f1f95cc8c1db3261","name":"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a","image":{"@type":"ImageObject","inLanguage":"zh-Hans","@id":"https:\/\/statorials.org\/cn\/#\/schema\/person\/image\/","url":"https:\/\/statorials.org\/cn\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","contentUrl":"https:\/\/statorials.org\/cn\/wp-content\/uploads\/2023\/10\/Dr.-Benjamin-Anderson-96x96.jpg","caption":"\u672c\u6770\u660e\u00b7\u5b89\u5fb7\u68ee\u535a"},"description":"\u5927\u5bb6\u597d\uff0c\u6211\u662f\u672c\u6770\u660e\uff0c\u4e00\u4f4d\u9000\u4f11\u7684\u7edf\u8ba1\u5b66\u6559\u6388\uff0c\u540e\u6765\u6210\u4e3a Statorials \u7684\u70ed\u5fc3\u6559\u5e08\u3002 \u51ed\u501f\u5728\u7edf\u8ba1\u9886\u57df\u7684\u4e30\u5bcc\u7ecf\u9a8c\u548c\u4e13\u4e1a\u77e5\u8bc6\uff0c\u6211\u6e34\u671b\u5206\u4eab\u6211\u7684\u77e5\u8bc6\uff0c\u901a\u8fc7 Statorials \u589e\u5f3a\u5b66\u751f\u7684\u80fd\u529b\u3002\u4e86\u89e3\u66f4\u591a","sameAs":["https:\/\/statorials.org\/cn"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/posts\/1211","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/comments?post=1211"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/posts\/1211\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/media?parent=1211"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/categories?post=1211"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/cn\/wp-json\/wp\/v2\/tags?post=1211"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}