{"id":338,"date":"2018-04-23T18:44:42","date_gmt":"2018-04-23T10:44:42","guid":{"rendered":"http:\/\/www.wuchangsong.com\/?p=338"},"modified":"2018-04-23T18:44:42","modified_gmt":"2018-04-23T10:44:42","slug":"pie%e5%9b%be%e7%bb%98%e5%88%b6","status":"publish","type":"post","link":"http:\/\/www.wuchangsong.com\/?p=338","title":{"rendered":"pie\u56fe\u7ed8\u5236"},"content":{"rendered":"<pre>\r\nx <- c(344,1619,1002,74,882,117,1292,58,68,158,73,303,139,579,92,93,2110,997)\r\nlabel <-c(\"Black\",\"Blue\",\"Brown\",\"Cyan\",\"Green\",\"Greenyellow\",\"Grey\",\"Grey60\",\"Lightcyan\",\"Magenta\",\"Midnightblue\",\"Pink\",\"Purple\",\"Red\",\"Salmon\",\"Tan\",\"Turquoise\",\"Yellow\")\r\npie(x, labels = label,radius =1.8,col =c(\"black\",\"blue\",\"brown\",\"cyan\",\"green\",\"greenyellow\",\"grey\",\"grey60\",\"lightcyan\",\"magenta\",\"midnightblue\",\"pink\",\"purple\",\"red\",\"salmon\",\"tan\",\"turquoise\",\"yellow\"),clockwise = TRUE)\r\npercent<-round(100*x\/sum(x),2)\r\npercent <-paste(percent, \"%\", sep = \"\")\r\npie(x, labels = percent,radius =1.8,col =c(\"black\",\"blue\",\"brown\",\"cyan\",\"green\",\"greenyellow\",\"grey\",\"grey60\",\"lightcyan\",\"magenta\",\"midnightblue\",\"pink\",\"purple\",\"red\",\"salmon\",\"tan\",\"turquoise\",\"yellow\"),clockwise = TRUE)\r\npie(x, labels = percent,main=\"\u997c\u56fe\",radius =2.0,col =c(\"black\",\"blue\",\"brown\",\"cyan\",\"green\",\"greenyellow\",\"grey\",\"grey60\",\"lightcyan\",\"magenta\",\"midnightblue\",\"pink\",\"purple\",\"red\",\"salmon\",\"tan\",\"turquoise\",\"yellow\"),clockwise = TRUE)\r\npie(x, labels = percent,main=\"\u997c\u56fe\",radius =2.0,col =c(\"black\",\"blue\",\"brown\",\"cyan\",\"green\",\"greenyellow\",\"grey\",\"grey60\",\"lightcyan\",\"magenta\",\"midnightblue\",\"pink\",\"purple\",\"red\",\"salmon\",\"tan\",\"turquoise\",\"yellow\"),clockwise = TRUE)\r\nlegend(locator(1),label, cex=1.2, fill=c(\"black\",\"blue\",\"brown\",\"cyan\",\"green\",\"greenyellow\",\"grey\",\"grey60\",\"lightcyan\",\"magenta\",\"midnightblue\",\"pink\",\"purple\",\"red\",\"salmon\",\"tan\",\"turquoise\",\"yellow\"))<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>x<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"_links":{"self":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/338"}],"collection":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=338"}],"version-history":[{"count":1,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/338\/revisions"}],"predecessor-version":[{"id":339,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=\/wp\/v2\/posts\/338\/revisions\/339"}],"wp:attachment":[{"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=338"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=338"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.wuchangsong.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=338"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}