{"id":4519,"date":"2024-05-31T16:04:07","date_gmt":"2024-05-31T08:04:07","guid":{"rendered":"http:\/\/cnliutz.wicp.vip\/?p=4519"},"modified":"2024-05-31T16:04:09","modified_gmt":"2024-05-31T08:04:09","slug":"r%e8%af%ad%e8%a8%80%e6%95%b0%e6%8d%ae%e6%a1%86%e5%b8%b8%e7%94%a8%e6%93%8d%e4%bd%9c%e6%96%b9%e6%b3%95","status":"publish","type":"post","link":"http:\/\/g1n29wqq.ipyingshe.net:5347\/?p=4519","title":{"rendered":"R\u8bed\u8a00\u6570\u636e\u6846\u5e38\u7528\u64cd\u4f5c\u65b9\u6cd5"},"content":{"rendered":"\n<pre class=\"wp-block-code\"><code>library(tidyverse)  #\u8c03\u7528tidyverse\u5e93\uff0c\u9700\u8981\u63d0\u524d\u5b89\u88c5\u8be5\u54ed install.packages(\"tidyverse\")\nleadership &lt;- data.frame(\n manager = c(1, 2, 3, 4, 5),\n date = c(\"10\/24\/08\", \"10\/28\/08\", \"10\/1\/08\", \"10\/12\/08\", \"5\/1\/09\"),\n  country = c(\"US\", \"US\", \"UK\", \"UK\", \"UK\"),\n gender = c(\"M\", \"F\", \"F\", \"M\", \"F\"),\n age = c(32, 45, 25, 39, 99),\n q1 = c(5, 3, 3, 3, 2),\n q2 = c(4, 5, 5, 3, 2),\n q3 = c(5, 2, 5, 4, 1),\n q4 = c(5, 5, 5, NA, 2),\n q5 = c(5, 5, 2, NA, 1),\n datas = c(Sys.Date()+1,Sys.Date()+2,Sys.Date()+3,Sys.Date()+4,Sys.Date()+5)\n)\n#\u6570\u636e\u6c42\u548c to total each q1~5\ntotal_score = leadership$q1+leadership$q2+leadership$q3+leadership$q4+leadership$q5\ntotal_score\n#\u663e\u793a\u6570\u636e\u6846\u6570\u636e show the dataframe of leadership\nleadership\n#\u53bb\u9664\u6570\u636e\u6846\u7684\u67d0\u5217\u6570\u636eremove age coloumn\nnewdata &lt;-leadership&#91;order(leadership$gender, -leadership$age),]\nnewdata\n#\u5217\u51fa\u7279\u5b9a\u5217\u7684\u6570\u636e\u5982\uff1alist data q1~5\nmyvars &lt;- paste(\"q\", 1:5, sep=\"\") \nnewdata &lt;- leadership&#91;myvars]\nnewdata\n#\u968f\u673a\u62bd\u53d6\u6307\u5b9a\u6570\u91cf\u7684\u884c random select rows \nmysample &lt;- leadership&#91;sample(1:nrow(leadership), 3, replace=FALSE),]\nmysample\n#\u9009\u53d6\u6570\u636e\u6846\u7684\u90e8\u5206\u5217\uff08-\u8868\u793a\u53bb\u6389\u67d0\u5217\uff09\nleadership_subset &lt;- select(leadership, country:-age, starts_with(\"q\"))\nleadership_subset\n#\u6761\u4ef6\u8fc7\u6ee4  dataframe &lt;- filter(dataframe, expression)\nextreme_men &lt;- filter(leadership,  gender == \"M\" &amp;  (q1 &lt; 2 | q3> 4))\nextreme_men\n#arrang() \u6392\u5e8f\u6570\u636e\nleadership &lt;- arrange(leadership,gender, desc(age)) \nleadership\n\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15],"tags":[],"class_list":["post-4519","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/4519","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4519"}],"version-history":[{"count":1,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/4519\/revisions"}],"predecessor-version":[{"id":4520,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=\/wp\/v2\/posts\/4519\/revisions\/4520"}],"wp:attachment":[{"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4519"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4519"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/g1n29wqq.ipyingshe.net:5347\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4519"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}