{"id":395,"date":"2023-03-21T09:38:39","date_gmt":"2023-03-21T09:38:39","guid":{"rendered":"https:\/\/yunshangtulv.com.cn\/?p=395"},"modified":"2023-03-21T09:38:39","modified_gmt":"2023-03-21T09:38:39","slug":"r%e8%af%ad%e8%a8%80%e4%b8%adcsv%e6%96%87%e4%bb%b6%e4%bd%bf%e7%94%a8%e8%af%a6%e8%a7%a3%e5%8f%8a%e5%ba%94%e7%94%a8%e5%ae%9e%e4%be%8b","status":"publish","type":"post","link":"https:\/\/yunshangtulv.com.cn\/?p=395","title":{"rendered":"R\u8bed\u8a00\u4e2dCSV\u6587\u4ef6\u4f7f\u7528\u8be6\u89e3\u53ca\u5e94\u7528\u5b9e\u4f8b"},"content":{"rendered":"
\n
\n
\n
\n
\n
\n

R\u8bed\u8a00\u662f\u4e00\u79cd\u7528\u4e8e\u6570\u636e\u5206\u6790\u548c\u7edf\u8ba1\u5efa\u6a21\u7684\u7f16\u7a0b\u8bed\u8a00\uff0c\u652f\u6301\u8bfb\u53d6\u548c\u5904\u7406\u5404\u79cd\u7c7b\u578b\u7684\u6570\u636e\u6587\u4ef6\uff0c\u5305\u62ecCSV\u6587\u4ef6\u3002CSV\uff08Comma Separated Values\uff09\u662f\u4e00\u79cd\u901a\u7528\u7684\u6587\u672c\u6587\u4ef6\u683c\u5f0f\uff0c\u7528\u4e8e\u8868\u793a\u8868\u683c\u6570\u636e\u3002\u5b83\u7531\u4e00\u7cfb\u5217\u4ee5\u9017\u53f7\u5206\u9694\u7684\u503c\u7ec4\u6210\uff0c\u6bcf\u884c\u4ee3\u8868\u4e00\u6761\u8bb0\u5f55\uff0c\u6bcf\u5217\u4ee3\u8868\u4e00\u79cd\u5c5e\u6027\u6216\u7279\u5f81\u3002<\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n

\n
\n
\n
\n
\n
\n

\u5728\u672c\u6559\u7a0b\u4e2d\uff0c\u6211\u4eec\u5c06\u4ecb\u7ecd\u5982\u4f55\u5728R\u8bed\u8a00\u4e2d\u8bfb\u53d6\u3001\u5904\u7406\u548c\u5206\u6790CSV\u6587\u4ef6\uff0c\u5e76\u63d0\u4f9b\u4e00\u4e9b\u5e94\u7528\u5b9e\u4f8b\u3002<\/p>\n

\u8bfb\u53d6CSV\u6587\u4ef6<\/h3>\n

\u5728R\u8bed\u8a00\u4e2d\uff0c\u8bfb\u53d6CSV\u6587\u4ef6\u7684\u6700\u5e38\u7528\u51fd\u6570\u662fread.csv()<\/code>\u3002\u4ee5\u4e0b\u662f\u4e00\u4e2a\u8bfb\u53d6CSV\u6587\u4ef6\u7684\u4f8b\u5b50\uff1a<\/p>\n

\n
# \u8bfb\u53d6CSV\u6587\u4ef6<\/span>
\ndata <- read.csv(\"data.csv\"<\/span>, header=TRUE)<\/p>\n

# \u663e\u793a\u6570\u636e\u6846\u7684\u524d6\u884c<\/span>
\nhead<\/span>(data)
\n<\/code><\/div>\n<\/div>\n

\u4e0a\u8ff0\u4ee3\u7801\u5c06\u8bfb\u53d6\u540d\u4e3a\u201cdata.csv\u201d\u7684CSV\u6587\u4ef6\uff0c\u5e76\u5c06\u5176\u5b58\u50a8\u4e3a\u540d\u4e3a\u201cdata\u201d\u7684\u6570\u636e\u6846\u5bf9\u8c61\u3002header=TRUE<\/code>\u53c2\u6570\u6307\u5b9a\u6587\u4ef6\u7684\u7b2c\u4e00\u884c\u5305\u542b\u5217\u540d\uff0c\u8fd9\u4e9b\u5217\u540d\u5c06\u6210\u4e3a\u6570\u636e\u6846\u7684\u5217\u540d\u3002<\/p>\n

\u5904\u7406CSV\u6587\u4ef6<\/h3>\n

\u4e00\u65e6\u6211\u4eec\u8bfb\u53d6\u4e86CSV\u6587\u4ef6\uff0c\u6211\u4eec\u5c31\u53ef\u4ee5\u4f7f\u7528\u5404\u79cd\u51fd\u6570\u548c\u65b9\u6cd5\u5bf9\u5176\u8fdb\u884c\u5904\u7406\u3002\u4ee5\u4e0b\u662f\u4e00\u4e9b\u5e38\u7528\u7684CSV\u6587\u4ef6\u5904\u7406\u65b9\u6cd5\uff1a<\/p>\n

\u67e5\u770bCSV\u6587\u4ef6\u7684\u57fa\u672c\u4fe1\u606f<\/h4>\n
\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528<\/span>str()<\/code>\u51fd\u6570\u548c<\/span>summary()<\/code>\u51fd\u6570\u6765\u67e5\u770bCSV\u6587\u4ef6\u7684\u57fa\u672c\u4fe1\u606f\u548c\u7edf\u8ba1\u6458\u8981\u3002\u4f8b\u5982\uff1a<\/span><\/div>\n
# \u67e5\u770b\u6570\u636e\u6846\u7684\u57fa\u672c\u4fe1\u606f<\/span>
\nstr<\/span>(data)<\/p>\n

# \u67e5\u770b\u6570\u636e\u6846\u7684\u6458\u8981\u4fe1\u606f<\/span>
\nsummary(data)
\n<\/code><\/div>\n<\/div>\n

str()<\/code>\u51fd\u6570\u53ef\u4ee5\u663e\u793a\u6570\u636e\u6846\u7684\u7ed3\u6784\u548c\u5185\u5bb9\uff0c\u5305\u62ec\u5217\u540d\u3001\u5217\u7c7b\u578b\u548c\u524d\u51e0\u884c\u6570\u636e\u3002summary()<\/code>\u51fd\u6570\u53ef\u4ee5\u63d0\u4f9b\u6570\u636e\u6846\u4e2d\u6bcf\u4e2a\u5217\u7684\u7edf\u8ba1\u6458\u8981\uff0c\u5305\u62ec\u6700\u5c0f\u503c\u3001\u6700\u5927\u503c\u3001\u4e2d\u4f4d\u6570\u3001\u5e73\u5747\u503c\u548c\u6807\u51c6\u5dee\u7b49\u3002<\/p>\n

\u7b5b\u9009CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e<\/h4>\n
\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u6570\u636e\u6846\u7684\u5217\u540d\u548c\u6761\u4ef6\u8868\u8fbe\u5f0f\u6765\u7b5b\u9009CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u3002\u4f8b\u5982\uff1a<\/span><\/div>\n
# \u7b5b\u9009\u5e74\u9f84\u5927\u4e8e30<\/span>\u5c81\u7684\u6570\u636e
\ndata_subset <- data<\/span>[data<\/span>$age<\/span> > 30<\/span>, ]<\/p>\n

# \u7b5b\u9009\u5973\u6027\u6570\u636e
\ndata_female <- subset(<\/span>data<\/span>, gender == \"Female\"<\/span>)<\/span>
\n<\/code><\/div>\n<\/div>\n

\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u6570\u636e\u6846\u7684\u5217\u540d\u548c\u6761\u4ef6\u8868\u8fbe\u5f0f\u6765\u7b5b\u9009CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u3002\u4f8b\u5982\uff0c\u4e0a\u9762\u7684\u4ee3\u7801\u5c06\u4ece\u201cdata\u201d\u6570\u636e\u6846\u4e2d\u9009\u62e9\u5e74\u9f84\u5927\u4e8e30\u5c81\u7684\u8bb0\u5f55\uff0c\u6216\u9009\u62e9\u201cgender\u201d\u5217\u4e3a\u201cFemale\u201d\u7684\u8bb0\u5f55\u3002<\/p>\n

\u5bf9CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u8fdb\u884c\u6392\u5e8f<\/h4>\n
\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528<\/span>order()<\/code>\u51fd\u6570\u6309\u7167\u7279\u5b9a\u5217\u7684\u5347\u5e8f\u6216\u964d\u5e8f\u5bf9CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u8fdb\u884c\u6392\u5e8f\u3002\u4f8b\u5982\uff1a<\/span><\/div>\n
# \u6309\u5e74\u9f84\u5347\u5e8f\u6392\u5e8f
\ndata_sorted <- data<\/span>[order(<\/span>data<\/span>$age<\/span>)<\/span>, ]<\/p>\n

# \u6309\u59d3\u540d\u548c\u5e74\u9f84\u964d\u5e8f\u6392\u5e8f
\ndata_sorted <- data<\/span>[order(<\/span>data<\/span>$name<\/span>, -data<\/span>$age<\/span>)<\/span>, ]
\n<\/code><\/div>\n<\/div>\n

\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528order()<\/code>\u51fd\u6570\u6309\u7167\u7279\u5b9a\u5217\u7684\u5347\u5e8f\u6216\u964d\u5e8f\u5bf9CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u8fdb\u884c\u6392\u5e8f\u3002-<\/code>\u7b26\u53f7\u53ef\u4ee5\u6307\u5b9a\u964d\u5e8f\u6392\u5e8f\u3002<\/p>\n

\u5bf9CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u8fdb\u884c\u7edf\u8ba1<\/h4>\n
\n
\n

\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u5404\u79cd\u51fd\u6570\u548c\u65b9\u6cd5\u5bf9CSV\u6587\u4ef6\u4e2d\u7684\u6570\u636e\u8fdb\u884c\u7edf\u8ba1\u548c\u5206\u6790\u3002\u4f8b\u5982\uff1a<\/p>\n

\n
<\/div>\n
# \u8ba1\u7b97\u5e73\u5747\u5e74\u9f84<\/span>
\nmean_age <- mean(data$age<\/span>)
\ncat<\/span>(\"\u5e73\u5747\u5e74\u9f84\uff1a\"<\/span>, mean_age, \"\\n\"<\/span>)<\/p>\n

# \u7edf\u8ba1\u7537\u5973\u4eba\u6570<\/span>
\nmale_count <- sum<\/span>(data$gender<\/span> == \"Male\"<\/span>)
\nfemale_count <- sum<\/span>(data$gender<\/span> == \"Female\"<\/span>)
\ncat<\/span>(\"\u7537\u6027\u4eba\u6570\uff1a\"<\/span>, male_count, \"\\n\"<\/span>)
\ncat<\/span>(\"\u5973\u6027\u4eba\u6570\uff1a\"<\/span>, female_count, \"\\n\"<\/span>)
\n<\/code><\/div>\n<\/div>\n

\u4e0a\u9762\u7684\u4ee3\u7801\u5c06\u8ba1\u7b97\u5e74\u9f84\u7684\u5e73\u5747\u503c\uff0c\u5e76\u7edf\u8ba1\u7537\u6027\u548c\u5973\u6027\u7684\u4eba\u6570\u3002mean()<\/code>\u51fd\u6570\u53ef\u4ee5\u8ba1\u7b97\u5e73\u5747\u503c\uff0csum()<\/code>\u51fd\u6570\u53ef\u4ee5\u8ba1\u7b97\u7b26\u5408\u6761\u4ef6\u7684\u5143\u7d20\u6570\u3002cat()<\/code>\u51fd\u6570\u53ef\u4ee5\u6253\u5370\u6587\u672c\u548c\u53d8\u91cf\u503c\u3002<\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n

\n
\n
\n
\n
\n
\n

\u5bfc\u51faCSV\u6587\u4ef6<\/h3>\n

\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528write.csv()<\/code>\u51fd\u6570\u5c06\u6570\u636e\u6846\u5bfc\u51fa\u4e3aCSV\u6587\u4ef6\u3002\u4f8b\u5982\uff1a<\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n

\n
\n
\n
\n
\n
\n
\n
# \u5bfc\u51fa\u6570\u636e<\/span>
\nwrite.csv(<\/span>data, \"new_data.csv\"<\/span>, row.names=<\/span>FALSE<\/span>)<\/span>
\n<\/code><\/div>\n<\/div>\n

\u4e0a\u9762\u7684\u4ee3\u7801\u5c06\u5bfc\u51fa\u540d\u4e3a\u201cnew_data.csv\u201d\u7684CSV\u6587\u4ef6\uff0c\u5e76\u5c06\u5176\u4e2d\u7684\u6570\u636e\u6846\u5199\u5165\u6587\u4ef6\u3002row.names=FALSE<\/code>\u53c2\u6570\u6307\u5b9a\u5728\u5bfc\u51fa\u8fc7\u7a0b\u4e2d\u4e0d\u8981\u5305\u542b\u884c\u540d\u79f0\u3002<\/p>\n

\u4ee5\u4e0a\u662fR\u8bed\u8a00\u4e2dCSV\u6587\u4ef6\u7684\u4e00\u4e9b\u5e38\u89c1\u64cd\u4f5c\u65b9\u6cd5\u3002\u5f53\u7136\uff0cR\u8bed\u8a00\u8fd8\u6709\u5f88\u591a\u5176\u4ed6\u6709\u7528\u7684\u51fd\u6570\u548c\u65b9\u6cd5\u53ef\u4f9b\u4f7f\u7528\uff0c\u8fd9\u91cc\u53ea\u662f\u7b80\u5355\u4ecb\u7ecd\u4e86\u4e00\u4e9b\u57fa\u672c\u64cd\u4f5c\u3002<\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

R\u8bed\u8a00\u662f\u4e00\u79cd\u7528\u4e8e\u6570\u636e\u5206\u6790\u548c\u7edf\u8ba1\u5efa\u6a21\u7684\u7f16\u7a0b\u8bed\u8a00\uff0c\u652f\u6301\u8bfb\u53d6\u548c\u5904\u7406\u5404\u79cd\u7c7b\u578b\u7684\u6570\u636e\u6587\u4ef6\uff0c\u5305\u62ecCSV\u6587\u4ef6\u3002CSV\uff08Com […]<\/p>\n","protected":false},"author":111,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9],"tags":[],"class_list":["post-395","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/395","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/users\/111"}],"replies":[{"embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=395"}],"version-history":[{"count":0,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/395\/revisions"}],"wp:attachment":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=395"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=395"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=395"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}