{"id":23,"date":"2022-09-05T22:57:20","date_gmt":"2022-09-05T14:57:20","guid":{"rendered":"http:\/\/xn--805-6f0f4a6598f.fun\/?p=23"},"modified":"2024-05-22T16:09:30","modified_gmt":"2024-05-22T08:09:30","slug":"23","status":"publish","type":"post","link":"https:\/\/stu.chcmu.asia\/index.php\/2022\/09\/05\/23\/","title":{"rendered":"R \u8bed\u8a00\u7b2c\u4e00\u7ae0\uff1a\u4ecb\u7ecd R \u8bed\u8a00"},"content":{"rendered":"<h4>Listing 1.0 \u8865\u5145\u4e00\u4e9b\u5e38\u7528\u64cd\u4f5c<\/h4>\n<pre><code class=\"language-r\"># \u4ee3\u7801\u5185\u5bb9\uff08\u5982\u6ce8\u91ca\uff09\u5305\u542b\u4e2d\u6587\u65f6\u51fa\u73b0\u4e71\u7801\uff0c\u53ef\u4f7f\u7528UTF-8 \u6216\u8005 GB2312\uff08File \u2192 Reopen with Encoding \u2192 UTF-8\uff09\n\ngetwd() # \u67e5\u770b\u5f53\u524d\u5de5\u4f5c\u8def\u5f84\nls() # \u67e5\u770b\u73af\u5883\u4e2d\u7684\u53d8\u91cf\nrm() # \u5220\u9664\u53d8\u91cf rm(list=ls()) \u4e3a\u5220\u9664\u6240\u6709\u7684\u53d8\u91cf\u3002\u614e\u91cd\uff01\n# \u7b26\u53f7 # \u540e\u9762\u7684\u5185\u5bb9R\u4e0d\u4f1a\u8bc6\u522b\uff0c\u7528\u4e8e\u6ce8\u91ca\u3002\nq() # q()\u7528\u4e8e\u5173\u95ed\u8f6f\u4ef6\nsave(variable1,variable2,file=&quot;\u4fdd\u5b58\u540d.Rdata&quot;) # \u4fdd\u6301\u6570\u636e<\/code><\/pre>\n<h4>Listing 1.1 A Sample R session<\/h4>\n<pre><code class=\"language-R\"># \u8d4b\u503c\u65b9\u6cd5\nage &lt;- c(1,3,5,2,11,9,3,9,12,3) # \u5c06\u5411\u91cfc()\u7684\u5185\u5bb9\u8d4b\u503c\u7ed9age; &lt;-\u7b26\u53f7\u4e3a\u53f3\u5411\u5de6\u8d4b\u503c\nc(1,3,5,2,11,9,3,9,12,3) -&gt;age  # \u4e5f\u53ef\u4ee5\u7528 -&gt; \u7b26\u53f7\u5de6\u5411\u53f3\u8d4b\u503c\u3002\nweight &lt;- c(4.4,5.3,7.2,5.2,8.5,7.3,6.0,10.4,10.2,6.1) # \u5c06\u5411\u91cfc()\u7684\u5185\u5bb9\u8d4b\u503c\u7ed9weight\n\n# \u51e0\u4e2a\u57fa\u672c\u7edf\u8ba1\u91cf\nmean(weight) # mean()\u6c42\u5e73\u5747\nsd(weight) # sd()\u6c42\u65b9\u5dee\ncor(age,weight) # cor()\u6c42\u76f8\u5173\u6027\nplot(age,weight) #\u505a\u4e00\u4e2a\u6563\u70b9\u56fe<\/code><\/pre>\n<h4>Listing 1.2 An example of commands used to manage the R Workspace<\/h4>\n<pre><code class=\"language-R\">setwd(&quot;Path\/&quot;) # \u8bbe\u7f6e\u5de5\u4f5c\u8def\u5f84\n# \u53e6\u5916 getwd()\uff0c\u4e3a\u663e\u793a\u8def\u5f84\uff0c\u62ec\u53f7\u5185\u65e0\u5185\u5bb9\u65f6\u4e3a\u663e\u793a\u5f53\u524d\u5de5\u4f5c\u8def\u5f84\u3002\n\noptions() # \u663e\u793a\u73af\u5883\u53d8\u91cf\uff0c\u5373\u5305\u542b\u7a0b\u5e8f\u8bbe\u5b9a\u7684\u4e00\u822c\u53c2\u6570\u7684\u96c6\u5408\u3002\n\noptions(digits=3) #\u4fee\u6539\u73af\u5883\u53d8\u91cf\u4e2d\u7684\u6570\u503c\u53c2\u6570\uff0c\u6240\u6709\u6570\u503c\u5448\u73b0\u4e3a\u6709\u6548\u6570\u4e3a\u540e3\u4f4d\uff08\u4f1a\u5bf9\u7b2c4\u4f4d\u8fdb\u884c\u201c\u56db\u820d\u4e94\u5165\u201d\uff09\na&lt;-1.346\na # 0.1235\uff0c\u663e\u793a\u6709\u6548\u4f4d\u65703\u4f4d\uff0c\u7b2c4\u4f4d\u4e3a6\uff0c\u201c\u56db\u820d\u4e94\u5165\u201d\u540e\u8fdb\u4e00\u4f4d\u3002\n\n# runif(n,min=0,max=1)\uff1bn\u8868\u793a\u751f\u6210\u7684\u968f\u673a\u6570\u6570\u91cf\uff0cmin\u8868\u793a\u5747\u5300\u5206\u5e03\u7684\u4e0b\u9650\uff0cmax\u8868\u793a\u5747\u5300\u5206\u5e03\u7684\u4e0a\u9650\uff1b\u82e5\u7701\u7565\u53c2\u6570min\u3001max,\u5219\u9ed8\u8ba4\u751f\u6210[0,1]\u4e0a\u7684\u5747\u5300\u5206\u5e03\u968f\u673a\u6570\u3002\nx &lt;- runif(20) #\u751f\u621020\u4e2a\u533a\u95f4\u4e3a[0,1]\u7684\u5747\u5300\u5206\u5e03\u968f\u673a\u6570\n\nx # \u8fd9\u91ccx\u7684\u503c\u662f20\u4e2a\u5747\u5300\u5206\u5e03\u7684\u968f\u673a\u6570\uff0c\u6b64\u5904x\u4e0d\u6267\u884c\uff08options(digits=3)\uff09\u6709\u6548\u4f4d\u6570\u4e3a3\u3002\n\n# summary\uff08\uff09\uff0c\u7b80\u5355\u7edf\u8ba1\uff1a\u4ece\u6700\u5c0f\u503c\u5230\u6700\u5927\u503c\uff0c\u5c06\u6781\u5dee\u533a\u95f4\u4e00\u5206\u4e3a4\uff0c\u4ee5\u6b21\u5c55\u793a\u3002\nsummary(x) # Min(\u6700\u5c0f\u503c)\uff0c1st Qu\uff0825%\u503c\uff09\uff0cMedian\uff08\u4e2d\u4f4d\u6570\uff09\uff0cMean 3rd Qu.\uff0875%\uff09\uff0cMax\uff08\u6700\u5927\u503c\uff09\nhist(x) # \u67f1\u5f62\u56fe\uff08\u9891\u6570\u5206\u5e03\u56fe\uff09\nsavehistory() # \u4fdd\u6301\u6267\u884c\u5386\u53f2\u64cd\u4f5c\u4ee3\u7801\uff0c\u53ef\u70b9\u51fb\u4fdd\u5b58\u6309\u94ae\u3002\nsave.image() # \u751f\u6210\u4e00\u4e2a\u201c.RData\u201d\u7684\u6587\u4ef6,\u53ef\u70b9\u51fb\u67e5\u770b<\/code><\/pre>\n<h4>Listing 1.3 - Working with a new package<\/h4>\n<pre><code class=\"language-R\">help.start() # \u6253\u5f00\u67e5\u770b R \u4e2d\u6587\u4ef6\u7684\u5c0f\u7a97\u53e3\uff0c\n\n# install.packages(&quot;vcd&quot;) # \u5df2\u5b89\u88c5\n\nhelp(package=&quot;vcd&quot;) # \u67e5\u770bvcd\u5305\u7684\u5e2e\u52a9\uff0c\u67e5\u770b\u5305\u4e0d\u7528 ?vcd\nlibrary(vcd)\nhelp(Arthritis) # \u6216\u8005 ?Arthritis\nArthritis # \u4e3a vcd \u5305\u4e2d\u7684\u6570\u636e\uff0c&quot;\u5173\u8282\u708e&quot;\u6cbb\u7597\u7814\u7a76\u7684\u6570\u636e,\u4e5f\u53ef\u7528 View(Arthritis) \u67e5\u770b\n\nexample(Arthritis)\n# q() # \u5173\u95ed\u8f6f\u4ef6<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Listing 1.0 \u8865\u5145\u4e00\u4e9b\u5e38\u7528\u64cd\u4f5c # \u4ee3\u7801\u5185\u5bb9\uff08\u5982\u6ce8\u91ca\uff09\u5305\u542b\u4e2d\u6587\u65f6\u51fa\u73b0\u4e71\u7801\uff0c\u53ef\u4f7f\u7528UTF-8 \u6216\u8005 G [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2,31],"tags":[],"class_list":["post-23","post","type-post","status-publish","format-standard","hentry","category-r","category-statistics"],"_links":{"self":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/23","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/comments?post=23"}],"version-history":[{"count":1,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/23\/revisions"}],"predecessor-version":[{"id":1648,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/23\/revisions\/1648"}],"wp:attachment":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/media?parent=23"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/categories?post=23"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/tags?post=23"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}