差分

このページの2つのバージョン間の差分を表示します。

--- ggplot2でタイトルとx軸y軸の設定 [2018/08/12] – [グループによって少しだけｘ軸方向にずらす] adash333
+++ ggplot2でタイトルとx軸y軸の設定 [2020/08/12] (現在) – [ggplot2でタイトルとx軸y軸の設定] adash333
@@ 行 1: / 行 1: @@
 ====== ggplot2でタイトルとx軸y軸の設定 ======
+[[初めての医療統計:index.html|初めての医療統計 目次]]
 ggplot2でグラフを描いた後に、タイトルを中央に記載したり、y軸の値の範囲の設定、x軸のラベルの値の変更などについて記載します。
@@ 行 6: / 行 7: @@
 /12/30 2017/12/31 \\
 http://twosquirrel.mints.ne.jp/?p=21665
+===== ソースコード =====
+https://colab.research.google.com/drive/1yPHODB6sgUU9OJx48tEibAF9rnUHDv-s?usp=sharing#scrollTo=M0KdH1hDF0l8
 ===== 開発環境 =====
-RStudio Cloudのconsole画面（画面左下）で、install.package("tidyverse")を入力して、tidyverseパッケージをインストールした状態とします。
+RStudio Cloudのconsole画面（画面左下）で、install.packages("tidyverse")を入力して、tidyverseパッケージをインストールした状態とします。
 参考：http://twosquirrel.mints.ne.jp/?p=26918
@@ 行 15: / 行 19: @@
 ===== グラフタイトルをグラフ上部中央に記載する =====
+<code>
+ggplot() +
+  ggtitle("Use theme(plot.title = element_text(hjust = 0.5)) to center") +
+  theme(plot.title = element_text(hjust = 0.5))
+</code>
+参考：https://codeday.me/jp/qa/20190317/372133.html
 ===== x軸の値を変更する =====
@@ 行 28: / 行 40: @@
 例）
 <code>
-b <- b + scale_x_discrete(“Time”, labels = c(“BW_00pre” = “Day0”, “BW_01POD” = “1POD”, “BW_07POD” = “7POD”, “BW_14POD” = “14POD”))
+b <- b +
+  scale_x_discrete("Time", labels = c("Course1" = "preop", "Course2" = "one week", "Course3" = "one month", "Course4" = "three months")) +
+  theme(plot.title = element_text(hjust = 0.5), text = element_text(size=20))
 </code>
+https://stackoverflow.com/questions/13297995/changing-font-size-and-direction-of-axes-text-in-ggplot2
 ==== ｘ軸の値が連続値の場合 ====
 <code>
-coord_cartesian(ylim = c(0,25)) + scale_x_continuous(breaks = seq(0,25,by=5),labels=c(0,5,10,15,20,25))
+coord_cartesian(ylim = c(0,25)) +
+scale_x_continuous(breaks = seq(0,25,by=5),labels=c(0,5,10,15,20,25))
 </code>
 のような感じで用いる。
@@ 行 42: / 行 57: @@
 例）
 <code>
-b <- b + coord_cartesian(ylim = c(0,25)) + scale_x_continuous(breaks = seq(0,25,by=5),labels=c(0,5,10,15,20,25))
+b <- b + coord_cartesian(ylim = c(0,25)) +
+scale_x_continuous(breaks = seq(0,25,by=5),labels=c(0,5,10,15,20,25))
 </code>
@@ 行 58: / 行 74: @@
 </code>
+===== 軸のラベルの書き換え =====
+<code>
+# y軸のラベルの書き換え
+labs(y="Length")
+</code>
 ===== グループによって少しだけｘ軸方向にずらす =====
@@ 行 88: / 行 109: @@
 <iframe style="width:120px;height:240px;" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" src="//rcm-fe.amazon-adsystem.com/e/cm?lt1=_blank&bc1=000000&IS2=1&bg1=FFFFFF&fc1=000000&lc1=0000FF&t=twosquirrel-22&language=ja_JP&o=9&p=8&l=as4&m=amazon&f=ifr&ref=as_ss_li_til&asins=487311814X&linkId=0c89d7378632a8fa2f9442eb6408bf53"></iframe>
 </html>
+===== リンク =====
+目次：[[初めての医療統計:index.html|初めての医療統計 目次]]