{"id":446,"date":"2019-03-01T20:50:30","date_gmt":"2019-03-01T11:50:30","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-color-in-the-part-of-the-graph\/"},"modified":"2024-10-12T10:19:36","modified_gmt":"2024-10-12T01:19:36","slug":"how-to-color-in-the-part-of-the-graph","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-color-in-the-part-of-the-graph\/","title":{"rendered":"R \u3067\u30b0\u30e9\u30d5\u3092\u63cf\u3044\u3066\u30b0\u30e9\u30d5\u306e\u4e00\u90e8\u3092\u5857\u308a\u3064\u3076\u3059\u65b9\u6cd5"},"content":{"rendered":"\n

\u30b0\u30e9\u30d5\u3092\u63cf\u3044\u305f\u5f8c\u3001\u4e00\u90e8\u3092\u5857\u308a\u3064\u3076\u3057\u305f\u3044\u3068\u304d\u304c\u3042\u308b\u3002<\/p>\n\n\n\n

\u305d\u3093\u306a\u3068\u304d\u306b\u3069\u3046\u3057\u305f\u3089\u3044\u3044\u304b\uff1f<\/p>\n\n\n\n\n\n\n\n

\u6a19\u6e96\u6b63\u898f\u5206\u5e03\u306e\u5834\u5408<\/h2>\n\n\n\n

\u78ba\u7387\u5206\u5e03\u306e\u4e00\u90e8\u3092\u5857\u308a\u3064\u3076\u3057\u305f\u3044\u5834\u5408\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u3059\u308c\u3070\u53ef\u80fd\u3002<\/p>\n\n\n\n

# \u524d\u534a<\/span>\ncurve<\/span>(<\/span>dnorm<\/span>(<\/span>x),<\/span> -<\/span>4<\/span>,<\/span> 4<\/span>,<\/span> las=<\/span>1<\/span>,<\/span> xlab=<\/span>\"Z\"<\/span>)<\/span>\narrows<\/span>(<\/span>0<\/span>,<\/span>0<\/span>,<\/span>0<\/span>,<\/span>dnorm<\/span>(<\/span>0<\/span>),<\/span>length=<\/span>0<\/span>)<\/span>\n# \u5f8c\u534a<\/span>\nxvalu <-<\/span> seq<\/span>(<\/span>0<\/span>,<\/span>4<\/span>,<\/span>length=<\/span>200<\/span>)<\/span>\ndvalu <-<\/span> dnorm<\/span>(<\/span>xvalu)<\/span>\npolygon<\/span>(<\/span>c<\/span>(<\/span>xvalu,<\/span> rev<\/span>(<\/span>xvalu)),<\/span> c<\/span>(<\/span>rep<\/span>(<\/span>0<\/span>,<\/span>200<\/span>),<\/span> rev<\/span>(<\/span>dvalu)),<\/span>col=<\/span>\"palegreen\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
\u524d\u534a\u306e curve() \u3067\u78ba\u7387\u5206\u5e03\u3092\u63cf\u304f\u3002<\/p>\n\n\n\n
\u3053\u3053\u3067\u306f\u6a19\u6e96\u6b63\u898f\u5206\u5e03\u3092dnorm()\u3067\u63cf\u304f\u3002<\/p>\n\n\n\n
arrows()\u306f\u30b0\u30e9\u30d5\u306e\u9ad8\u3055\u307e\u3067\u7dda\u3092\u5f15\u304f\u3053\u3068\u304c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
arrows()\u306e\u4e2d\u306e4\u3064\u306e\u6570\u5b57\u306f\u3001\u59cb\u70b9\u306eX\u5ea7\u6a19\u3068Y\u5ea7\u6a19\u3001\u7d42\u70b9\u306eX\u5ea7\u6a19\u3068Y\u5ea7\u6a19\u3092\u8868\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n
0,0,0,dnorm(0)\u3067\u3042\u308c\u3070\u3001\u59cb\u70b9\u306f(0,0)\u3067\u3001\u7d42\u70b9\u306f(0,dnorm(0))\u307e\u3067\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\u6700\u5f8c\u306elength=\u306f\u77e2\u5370\u306e\u77e2\u306e\u5927\u304d\u3055\u30670\u3068\u3059\u308c\u3070\u3001\u77e2\u306f\u306a\u304f\u306a\u308a\u76f4\u7dda\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\u5f8c\u534a\u306e xvalu \u306f\u3001\u5857\u308a\u3064\u3076\u3057\u305f\u3044\u90e8\u5206\u306eX\u5ea7\u6a19\u3092\u898f\u5b9a\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n
\u4eca\u56de\u306f0\u304b\u30894\u307e\u3067200\u306b\u5206\u3051\u3066\u3068\u3044\u3046\u6307\u793a\u3060\u3002<\/p>\n\n\n\n
\u3053\u308c\u3060\u3051\u7d30\u304b\u304f\u3059\u308b\u3068\u4eba\u306e\u76ee\u306b\u306f\u9023\u7d9a\u3057\u3066\u3044\u308b\u3088\u3046\u306b\u898b\u3048\u308b\u3002<\/p>\n\n\n\n
xvalu\u3067\u898f\u5b9a\u3057\u305fX\u5ea7\u6a19\u306b\u76f8\u5f53\u3059\u308bY\u5ea7\u6a19\u3092dvalu\u306b\u683c\u7d0d\u3059\u308b\u3002<\/p>\n\n\n\n
polygon()\u3067\u5857\u308a\u3064\u3076\u3059\u3002<\/p>\n\n\n\n
()\u5185\u6700\u521d\u306ec()\u306f\u3001X\u5ea7\u6a19\u30920\u304b\u30894\u306b\u52d5\u304b\u3057\u3066\u30014\u304b\u30890\u306b\u623b\u3063\u3066\u304f\u308b\u3068\u3044\u3046\u5024\u3092\u6307\u793a\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n
Y\u5ea7\u6a19\u306f\u6700\u521d\u306e200\u306f0\u3067\u3001\u3042\u3068\u306e200\u306f\u3001xvalu\u304c4\u304b\u30890\u306b\u5c0f\u3055\u304f\u306a\u308b\u306b\u3064\u3044\u3066\u3001\u3060\u3093\u3060\u3093\u306b\u5927\u304d\u304f\u306a\u308b\u3002<\/p>\n\n\n\n
\u3053\u308c\u3067\u7d50\u5c40\u4e2d\u5fc3\u3088\u308a\u53f3\u5074\u304c\u5857\u308a\u3064\u3076\u3055\u308c\u308b\u3053\u3068\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\u8272\u306fcol=\u3067\u6307\u5b9a\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
palegreen\u3068\u3044\u3046\u3088\u3046\u306a\u8272\u306e\u540d\u524d\u3067\u6307\u5b9a\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
\u51fa\u6765\u4e0a\u304c\u308a\u306f\u3053\u3061\u3089\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
t \u5206\u5e03\u306e\u5834\u5408<\/h2>\n\n\n\n
\u4e0b\u8a18\u306f\u81ea\u7531\u5ea6df=8\u306e t \u5206\u5e03\u3092\u63cf\u3044\u3066\u3001\u4e0a\u5074\u3001\u4e0b\u50742.5\u30d1\u30fc\u30bb\u30f3\u30c8\u3092\u5857\u308a\u3064\u3076\u3059\u30b9\u30af\u30ea\u30d7\u30c8\u3060\u3002<\/p>\n\n\n\n
n1 <-<\/span> 5<\/span>\nn2 <-<\/span> 5<\/span>\ndf <-<\/span> n1+<\/span>n2-<\/span>2<\/span>\ncurve<\/span>(<\/span>dt<\/span>(<\/span>x,<\/span> df),<\/span> -<\/span>4<\/span>,<\/span> 4<\/span>,<\/span> las=<\/span>1<\/span>,<\/span> xlab=<\/span>\"t\"<\/span>)<\/span>\narrows<\/span>(<\/span>qt<\/span>(<\/span>0.975<\/span>,<\/span>df),<\/span>0<\/span>,<\/span>qt<\/span>(<\/span>0.975<\/span>,<\/span>df),<\/span>dt<\/span>(<\/span>qt<\/span>(<\/span>0.975<\/span>,<\/span>df),<\/span>df),<\/span>0<\/span>)<\/span>\narrows<\/span>(<\/span>qt<\/span>(<\/span>0.025<\/span>,<\/span>df),<\/span>0<\/span>,<\/span>qt<\/span>(<\/span>0.025<\/span>,<\/span>df),<\/span>dt<\/span>(<\/span>qt<\/span>(<\/span>0.025<\/span>,<\/span>df),<\/span>df),<\/span>0<\/span>)<\/span>\nxvalu <-<\/span> seq<\/span>(<\/span>qt<\/span>(<\/span>0.975<\/span>,<\/span>df),<\/span>4<\/span>,<\/span>length=<\/span>100<\/span>)<\/span>\ndvalu <-<\/span> dt<\/span>(<\/span>xvalu,<\/span> df)<\/span>\npolygon<\/span>(<\/span>c<\/span>(<\/span>xvalu,<\/span> rev<\/span>(<\/span>xvalu)),<\/span> c<\/span>(<\/span>rep<\/span>(<\/span>0<\/span>,<\/span>100<\/span>),<\/span> rev<\/span>(<\/span>dvalu)),<\/span>col=<\/span>\"skyblue\"<\/span>)<\/span>\nxvall <-<\/span> seq<\/span>(<\/span>-<\/span>4<\/span>,<\/span> qt<\/span>(<\/span>0.025<\/span>,<\/span>df),<\/span>length=<\/span>100<\/span>)<\/span>\ndvall <-<\/span> dt<\/span>(<\/span>xvall,<\/span> df)<\/span>\npolygon<\/span>(<\/span>c<\/span>(<\/span>xvall,<\/span> rev<\/span>(<\/span>xvall)),<\/span> c<\/span>(<\/span>rep<\/span>(<\/span>0<\/span>,<\/span>100<\/span>),<\/span> rev<\/span>(<\/span>dvall)),<\/span>col=<\/span>\"skyblue\"<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
polygon()\u306b\u4f7f\u3046X\u5ea7\u6a19\u3084Y\u5ea7\u6a19\u306e\u8a08\u7b97\u306e\u4ed5\u65b9\u3084\u3001polygon()\u3067\u306e\u6307\u793a\u306e\u51fa\u3057\u65b9\u306f\u4e0a\u8a18\u306e\u6a19\u6e96\u6b63\u898f\u5206\u5e03\u306e\u3068\u304d\u3068\u540c\u3058\u3060\u3002<\/p>\n\n\n\n
\u305f\u3060\u3057\u4eca\u56de\u306fdnorm()\u306e\u4ee3\u308f\u308a\u306b\u3001dt()\u3092\u4f7f\u3044\u3001df\u3067\u6307\u5b9a\u3057\u3066\u3044\u308b\u81ea\u7531\u5ea6\u3092\u4e0e\u3048\u3066\u3042\u3052\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002<\/p>\n\n\n\n
\u307e\u305fX\u5ea7\u6a19\u306f\u304a\u3088\u305d2\u304b\u30894\u307e\u3067\u3092\u5857\u308a\u3064\u3076\u3059\u3053\u3068\u306b\u306a\u308a\u3001\u4e0a\u8a18\u4f8b\u306e\u534a\u5206\u306a\u306e\u3067\u3001100\u306b\u5206\u5272\u3057\u305f\u3002<\/p>\n\n\n\n
\u51fa\u6765\u4e0a\u304c\u308a\u306f\u3053\u3061\u3089\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\uff1e\uff1e\u3082\u3046\u7d71\u8a08\u3067\u60a9\u3080\u306e\u306f\u7d42\u308f\u308a\u306b\u3057\u307e\u305b\u3093\u304b\uff1f\u00a0<\/a><\/strong><\/span><\/p>\r\n\"\"<\/a>\r\n
\u21911\u4e07\u4eba\u4ee5\u4e0a\u306e\u533b\u7642\u5f93\u4e8b\u8005\u304c\u8cfc\u8aad\u4e2d<\/span><\/strong><\/span><\/p><\/div>
\u307e\u3068\u3081<\/h2>\n\n\n\n
curve()\u3092\u4f7f\u3063\u3066\u78ba\u7387\u5206\u5e03\u3092\u63cf\u304d\u3001polygon()\u3092\u4f7f\u3063\u3066\u5206\u5e03\u306e\u4e00\u90e8\u3092\u5857\u308a\u3064\u3076\u3059\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u305f\u3002<\/p>\n\n\n\n
polygon()\u306f\u3044\u308d\u3044\u308d\u3068\u5fdc\u7528\u304c\u5229\u304f\u3068\u601d\u3046\u3002<\/p>\n\n\n\n
\u53c2\u8003\u306b\u306a\u308c\u3070\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30b0\u30e9\u30d5\u3092\u63cf\u3044\u305f\u5f8c\u3001\u4e00\u90e8\u3092\u5857\u308a\u3064\u3076\u3057\u305f\u3044\u3068\u304d\u304c\u3042\u308b\u3002 \u305d\u3093\u306a\u3068\u304d\u306b\u3069\u3046\u3057\u305f\u3089\u3044\u3044\u304b\uff1f<\/p>\n","protected":false},"author":2,"featured_media":2649,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[5,37],"tags":[],"class_list":["post-446","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r","category-37"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2019\/03\/20190301203415.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/446","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/comments?post=446"}],"version-history":[{"count":2,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/446\/revisions"}],"predecessor-version":[{"id":2652,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/446\/revisions\/2652"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media\/2649"}],"wp:attachment":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media?parent=446"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/categories?post=446"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/tags?post=446"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}