{"id":228,"date":"2022-11-02T21:46:29","date_gmt":"2022-11-02T12:46:29","guid":{"rendered":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-draw-histogram-and-boxplot-in-ggplot2-of-r\/"},"modified":"2024-09-03T21:31:04","modified_gmt":"2024-09-03T12:31:04","slug":"how-to-draw-histogram-and-boxplot-in-ggplot2-of-r","status":"publish","type":"post","link":"https:\/\/best-biostatistics.com\/toukei-er\/entry\/how-to-draw-histogram-and-boxplot-in-ggplot2-of-r\/","title":{"rendered":"R \u3067 ggplot \u3092\u4f7f\u3063\u3066\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3068\u7bb1\u3072\u3052\u56f3\u3092\u4e00\u3064\u306e\u30b0\u30e9\u30d5\u306b\u66f8\u304f\u65b9\u6cd5"},"content":{"rendered":"\n

R\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3068\u7bb1\u3072\u3052\u56f3\u3092ggplot2 \u3092\u4f7f\u3063\u3066\u91cd\u306d\u3066\u63cf\u304f\u65b9\u6cd5\u306e\u7d39\u4ecb\u3002<\/p>\n\n\n\n\n\n\n\n

R\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3092ggplot2 \u3092\u4f7f\u3063\u3066\u63cf\u304f\u65b9\u6cd5<\/h2>\n\n\n\n

R\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3092ggplot2\u3092\u4f7f\u3063\u3066\u63cf\u304f\u65b9\u6cd5\u3092\u7d39\u4ecb\u3059\u308b\u3002<\/p>\n\n\n\n

\u307e\u305aggplot2 \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u3001\u547c\u3073\u51fa\u3057\u3066\u304a\u304f\u3002<\/p>\n\n\n\n

install.packages<\/span>(<\/span>\"ggplot2\"<\/span>)<\/span>\nlibrary<\/span>(<\/span>ggplot2)<\/span>\n<\/code><\/pre>\n\n\n\n
\u6b21\u306b\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3092\u63cf\u304f\u30c7\u30fc\u30bf\u3092\u6e96\u5099\u3059\u308b\u3002<\/p>\n\n\n\n
\u4eca\u56de\u306f pROC \u30d1\u30c3\u30b1\u30fc\u30b8\u306e aSAH \u30c7\u30fc\u30bf\u30bb\u30c3\u30c8\u3092\u4f7f\u7528\u3059\u308b\u3002<\/p>\n\n\n\n
aSAH \u30c7\u30fc\u30bf\u30bb\u30c3\u30c8\u306e\u4e2d\u306e age \u306e\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3092\u63cf\u304f\u3053\u3068\u306b\u3059\u308b\u3002<\/p>\n\n\n\n
pROC \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u3001\u547c\u3073\u51fa\u3059\u3002<\/p>\n\n\n\n
install.packages<\/span>(<\/span>\"pROC\"<\/span>)<\/span>\nlibrary<\/span>(<\/span>pROC)<\/span>\n<\/code><\/pre>\n\n\n\n
\u901a\u5e38\u306e\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u306f\u3053\u3093\u306a\u611f\u3058\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
hist<\/span>(<\/span>aSAH$<\/span>age)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
ggplot2\u3067\u63cf\u304f\u3068\u3053\u3093\u306a\u304b\u3063\u3053\u3044\u3044\u611f\u3058\u306b\u63cf\u3051\u308b\u3002<\/p>\n\n\n\n
ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>age))<\/span> +<\/span> geom_histograpm<\/span>()<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
R\u3067\u7bb1\u3072\u3052\u56f3\u3092ggplot2 \u3092\u4f7f\u3063\u3066\u63cf\u304f\u65b9\u6cd5<\/h2>\n\n\n\n
R\u3067\u7bb1\u3072\u3052\u56f3\u3092 ggplot2 \u3092\u4f7f\u3063\u3066\u63cf\u304f\u65b9\u6cd5\u3092\u7d39\u4ecb\u3059\u308b\u3002<\/p>\n\n\n\n
\u901a\u5e38\u306e\u7bb1\u3072\u3052\u56f3\u306f\u3001\u3053\u3093\u306a\u611f\u3058\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
boxplot<\/span>(<\/span>aSAH$<\/span>age)<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
ggplot2 \u3092\u4f7f\u3063\u3066\u63cf\u304f\u3068\u3053\u3046\u3044\u3046\u3075\u3046\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>1<\/span>,<\/span> y=<\/span>age))<\/span> +<\/span> geom_boxplot<\/span>()<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u3053\u308c\u3092\u6a2a\u306b\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u3002<\/p>\n\n\n\n
ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>1<\/span>,<\/span> y=<\/span>age))<\/span> +<\/span> geom_boxplot<\/span>()<\/span> +<\/span> coord_flip<\/span>()<\/span>\n<\/code><\/pre>\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>
R\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3068\u7bb1\u3072\u3052\u56f3\u3092 ggplot2 \u3067\u91cd\u306d\u3066\u63cf\u304f\u65b9\u6cd5<\/h2>\n\n\n\n
\u4e0a\u8a18\u306e\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u306bHist1\u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3066\u3001\u7bb1\u3072\u3052\u56f3\u306b\u306f Box1 \u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3066\u3001\u4e0a\u4e0b\u306b\u4e26\u3079\u3066\u63cf\u304f\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u793a\u3059\u3002<\/p>\n\n\n\n
Hist1 <-<\/span> ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>age))<\/span>+<\/span>\ngeom_histogram<\/span>()<\/span>\nBox1 <-<\/span> ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>1<\/span>,<\/span> y=<\/span>age))<\/span>+<\/span>\ngeom_boxplot<\/span>()<\/span>+<\/span>\ncoord_flip<\/span>()<\/span>\ngrid.arrange<\/span>(<\/span>Hist1,<\/span> Box1,<\/span> ncol=<\/span>1<\/span>,<\/span> nrow=<\/span>2<\/span>)<\/span>\n<\/code><\/pre>\n\n\n\n
grid.arrange() \u3068\u3044\u3046\u306e\u304c\u4e26\u3079\u308b\u95a2\u6570\u3067\u3001ncol=\u304c\u5217\u306e\u30b0\u30e9\u30d5\u67a0\u306e\u6570\u3001nrow=\u304c\u884c\u306e\u30b0\u30e9\u30d5\u67a0\u306e\u6570\u3067\u3042\u308b\u3002<\/p>\n\n\n\n
\u3059\u308b\u3068\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u56f3\u304c\u63cf\u3051\u308b\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u3053\u3053\u304b\u3089\u3082\u3046\u5c11\u3057\u304d\u308c\u3044\u306b\u3057\u3066\u3044\u304f\u3002<\/p>\n\n\n\n
\u30b9\u30af\u30ea\u30d7\u30c8\u5185\u306b\u6ce8\u91c8\u3092\u5165\u308c\u3066\u3001\u3069\u306e\u884c\u304c\u4f55\u3092\u3057\u3066\u3044\u308b\u306e\u304b\u308f\u304b\u308b\u3088\u3046\u306b\u3057\u3066\u304a\u304f\u3002<\/p>\n\n\n\n
x <-<\/span> aSAH$<\/span>age\nMean <-<\/span> mean<\/span>(<\/span>x)<\/span>\nLim <-<\/span> c<\/span>(<\/span>min<\/span>(<\/span>x)<\/span>-<\/span>sd<\/span>(<\/span>x)<\/span>\/<\/span>2<\/span>,<\/span> max<\/span>(<\/span>x)<\/span>+<\/span>sd<\/span>(<\/span>x)<\/span>\/<\/span>2<\/span>)<\/span> #X\u8ef8\u306e\u6700\u5c0f\u6700\u5927\u306e\u8a2d\u5b9a<\/span>\nHist2 <-<\/span> ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>age))<\/span>+<\/span>\ngeom_histogram<\/span>(<\/span>fill =<\/span> \"darkgray\"<\/span>)<\/span>+<\/span> #\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3092\u8584\u3044\u30b0\u30ec\u30fc\u3067\u5857\u308b<\/span>\ngeom_vline<\/span>(<\/span>xintercept =<\/span> Mean,<\/span> color=<\/span>\"black\"<\/span>)<\/span>+<\/span> #\u5e73\u5747\u5024\u306e\u4f4d\u7f6e\u306b\u7e26\u306e\u7dda\u3092\u9ed2\u3067\u63cf\u304f<\/span>\ncoord_cartesian<\/span>(<\/span>xlim =<\/span> Lim)<\/span> #X\u8ef8\u306e\u8a2d\u5b9a\u3092\u3053\u3053\u3067\u53cd\u6620<\/span>\nBox2 <-<\/span> ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>1<\/span>,<\/span> y=<\/span>age))<\/span>+<\/span>\ngeom_boxplot<\/span>()<\/span>+<\/span>\ncoord_flip<\/span>(<\/span>ylim =<\/span> Lim)<\/span>+<\/span> #\u30b0\u30e9\u30d5\u3092\u6a2a\u306b\u3057\u3066\u3044\u308b\u306e\u3067\u6a2a\u8ef8\u306eY\u8ef8\u306e\u8a2d\u5b9a<\/span>\ntheme<\/span>(<\/span>axis.text.y =<\/span> element_text<\/span>(<\/span>color=<\/span>\"white\"<\/span>))<\/span>+<\/span> #\u6a2a\u306b\u3057\u305f\u5f8c\u306e\u7e26\u65b9\u5411\u306e\u8ef8\u306e\u6587\u5b57\u3092\u767d\u306b\u3057\u3066\u975e\u8868\u793a\u306b<\/span>\nlabs<\/span>(<\/span>x=<\/span>\"\"<\/span>)<\/span> #\u7e26\u65b9\u5411\u306e\u8ef8\u306e\u30e9\u30d9\u30eb\u3092\u975e\u8868\u793a\u306b<\/span>\ngrid.arrange<\/span>(<\/span>Hist2,<\/span> Box2,<\/span> ncol=<\/span>1<\/span>,<\/span> nrow=<\/span>2<\/span>,<\/span> heights=<\/span>c<\/span>(<\/span>4<\/span>,<\/span>1<\/span>))<\/span> #heights \u3067\u4e0b\u306e\u90e8\u5206\u306e\u9ad8\u3055\u30921\/4\u306b<\/span>\n<\/code><\/pre>\n\n\n\n
\u5b9f\u884c\u3059\u308b\u3068\u3053\u3093\u306a\u30b0\u30e9\u30d5\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u4e0a\u4e0b\u3092\u5165\u308c\u66ff\u3048\u308b\u3068\u3053\u3093\u306a\u3075\u3046\u306b\u306a\u308b\u3002<\/p>\n\n\n\n
grid.arrange<\/span>(<\/span>Box2,<\/span> Hist2,<\/span> ncol=<\/span>1<\/span>,<\/span> nrow=<\/span>2<\/span>,<\/span> heights=<\/span>c<\/span>(<\/span>1<\/span>,<\/span>4<\/span>))<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u7bb1\u3072\u3052\u56f3\u306e\u30e9\u30d9\u30eb\u3092\u6d88\u3059\u3068\u3082\u3063\u3068\u898b\u6804\u3048\u304c\u3044\u3044\u304b\u3082\u3057\u308c\u306a\u3044\u3002<\/p>\n\n\n\n
Box2 <-<\/span> ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>1<\/span>,<\/span> y=<\/span>age))<\/span>+<\/span>\ngeom_boxplot<\/span>()<\/span>+<\/span>\ncoord_flip<\/span>(<\/span>ylim =<\/span> Lim)<\/span>+<\/span>\ntheme<\/span>(<\/span>axis.text.y =<\/span> element_text<\/span>(<\/span>color=<\/span>\"white\"<\/span>))<\/span>+<\/span>\nlabs<\/span>(<\/span>x=<\/span>\"\"<\/span>,<\/span> y=<\/span>\"\"<\/span>)<\/span> # y=\"\" \u3092\u8ffd\u52a0<\/span>\ngrid.arrange<\/span>(<\/span>Box2,<\/span> Hist2,<\/span> ncol=<\/span>1<\/span>,<\/span> nrow=<\/span>2<\/span>,<\/span> heights=<\/span>c<\/span>(<\/span>1<\/span>,<\/span>4<\/span>))<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u7bb1\u3072\u3052\u56f3\u306b theme_minimal() \u3092\u9069\u7528\u3059\u308b\u3068\u30b7\u30f3\u30d7\u30eb\u3067\u307f\u3084\u3059\u304f\u306a\u308b\u3002<\/p>\n\n\n\n
Box2 <-<\/span> ggplot<\/span>(<\/span>aSAH,<\/span> aes<\/span>(<\/span>x=<\/span>1<\/span>,<\/span> y=<\/span>age))<\/span>+<\/span>\ngeom_boxplot<\/span>()<\/span>+<\/span>\ncoord_flip<\/span>(<\/span>ylim =<\/span> Lim)<\/span>+<\/span>\ntheme_minimal<\/span>()<\/span>+<\/span> #\u3053\u306e\u884c\u3092\u8ffd\u52a0<\/span>\ntheme<\/span>(<\/span>axis.text.y =<\/span> element_text<\/span>(<\/span>color=<\/span>\"white\"<\/span>))<\/span>+<\/span>\nlabs<\/span>(<\/span>x=<\/span>\"\"<\/span>,<\/span> y=<\/span>\"\"<\/span>)<\/span>\ngrid.arrange<\/span>(<\/span>Box2,<\/span> Hist2,<\/span> ncol=<\/span>1<\/span>,<\/span> nrow=<\/span>2<\/span>,<\/span> heights=<\/span>c<\/span>(<\/span>1<\/span>,<\/span>4<\/span>))<\/span>\n<\/code><\/pre>\n\n\n\n
\"\"<\/figure>\n\n\n\n
<\/span><\/p>\n\n\n\n
\u307e\u3068\u3081<\/h2>\n\n\n\n
R\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3068\u7bb1\u3072\u3052\u56f3\u3092\u91cd\u306d\u308b\u65b9\u6cd5\u3092\u3001ggplot2\u3092\u4f7f\u3063\u3066\u7d39\u4ecb\u3057\u305f\u3002<\/p>\n\n\n\n
\u4f55\u3089\u304b\u5f79\u306b\u7acb\u3066\u3070\u5e78\u3044\u3002<\/p>\n\n\n\n
\u53c2\u8003\u30b5\u30a4\u30c8<\/h2>\n\n\n\n
RPubs – ggplot2\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3068\u7bb1\u3072\u3052\u56f3\u3092\u540c\u6642\u306b\u63cf\u304f\uff06\u30b0\u30e9\u30d5\u3092\u4e00\u62ec\u51fa\u529b\u3059\u308b<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
R\u3067\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3068\u7bb1\u3072\u3052\u56f3\u3092ggplot2 \u3092\u4f7f\u3063\u3066\u91cd\u306d\u3066\u63cf\u304f\u65b9\u6cd5\u306e\u7d39\u4ecb\u3002<\/p>\n","protected":false},"author":2,"featured_media":1311,"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":[43,5,37],"tags":[],"class_list":["post-228","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-ggplot2","category-r","category-37"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/best-biostatistics.com\/toukei-er\/wp-content\/uploads\/2022\/11\/20221102213438.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/228","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=228"}],"version-history":[{"count":1,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/228\/revisions"}],"predecessor-version":[{"id":1312,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/posts\/228\/revisions\/1312"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media\/1311"}],"wp:attachment":[{"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/media?parent=228"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/categories?post=228"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/best-biostatistics.com\/toukei-er\/wp-json\/wp\/v2\/tags?post=228"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}