![見出し画像](https://assets.st-note.com/production/uploads/images/88564306/rectangle_large_type_2_532ba42b04575f421a5a2a56134f94ca.jpeg?width=800)
R | ggplot | theme_dark | 背景を黒色にしたい
*ハイライト*
・theme_dark()で黒色の背景にできる
・背景にはさまざまが種類がある
install.packages("tidyverse")
library(ggplot2)
df <- data.frame(
subject = c("x1", "x2", "x3", "x4", "x5", "x6"),
weight = c(45, 53, 56, 72, 65, 50))
head(df, 2)
g <- ggplot(df, aes(x = subject, y = weight, fill = subject))+
geom_bar(stat = "identity")+
theme_dark()
plot(g)
![](https://assets.st-note.com/img/1665231666548-FOwrr6Us66.png?width=800)
コードの説明
#パッケージのインストール
最初にパッケージをRにインストールしましょう。gglpot2はtidyverseというパッケージに内包されているので,tidyverseをインストールし,ggplot2をライブラリーします。
install.packages("tidyverse")
library(ggplot2)
#データフレームの作成
ggplotで棒グラフを作成するために被験者6人の体重を表しているデータフレームを作成します。subjectは「被験者」を,weightは「体重」を表しています。
df <- data.frame(
subject = c("x1", "x2", "x3", "x4", "x5", "x6"),
weight = c(45, 53, 56, 72, 65, 50)) head(df, 2)
subject weight
1 x1 45
2 x2 53
: : :
#棒グラフの描画
ggplotで被験者をX軸に,体重をY軸にマッピングし,体重の値に従って棒グラフを作成します。まずggplotのなかに使用するデータフレーム,データセットの中の変数をX軸やY軸に割り当てます。今回は体重の値をそのまま表示させたいので,geom_bar()の中身をstat = "idenetity"にしました。
g <- ggplot(df, aes(x = subject, y = weight))+
geom_bar(stat = "identity")
plot(g)
![](https://assets.st-note.com/img/1665231667002-tQraxZQ7Jw.jpg?width=800)
#背景の変更
背景を黒色にするためにtheme_dark()を書き加えます。
g <- ggplot(df, aes(x = subject, y = weight, fill = subject))+
geom_bar(stat = "identity")+
theme_dark()
plot(g)
![](https://assets.st-note.com/img/1665231665781-jIb2cC0J9H.png?width=800)
■Rグラフィックスクックブック第2版 ―ggplot2によるグラフ作成のレシピ集/Winston Chang (著), 石井弓美子 (翻訳), 河内崇 (翻訳), 瀬戸山雅人 (翻訳)
■改訂2版 RユーザのためのRStudio[実践]入門〜tidyverseによるモダンな分析フローの世界/松村優哉 (著), 湯谷啓明 (著), 紀ノ定保礼 (著), 前田和寛 (著)
■Rが生産性を高める〜データ分析ワークフロー効率化の実践/igjit (著), atusy (著), hanaori (著)
![](https://assets.st-note.com/img/1665231666605-DbAo9LrbHT.png?width=800)
*ハイライト*
・theme_dark()で黒色の背景にできる
・背景にはさまざまが種類がある
install.packages("tidyverse")
library(ggplot2)
df <- data.frame(
subject = c("x1", "x2", "x3", "x4", "x5", "x6"),
weight = c(45, 53, 56, 72, 65, 50))
head(df, 2)
g <- ggplot(df, aes(x = subject, y = weight, fill = subject))+
geom_bar(stat = "identity")+
theme_dark()
plot(g)
![](https://assets.st-note.com/img/1665231699487-qEycNi62In.png?width=800)
コードの説明
#パッケージのインストール
最初にパッケージをRにインストールしましょう。gglpot2はtidyverseというパッケージに内包されているので,tidyverseをインストールし,ggplot2をライブラリーします。
install.packages("tidyverse")
library(ggplot2)
#データフレームの作成
ggplotで棒グラフを作成するために被験者6人の体重を表しているデータフレームを作成します。subjectは「被験者」を,weightは「体重」を表しています。
df <- data.frame(
subject = c("x1", "x2", "x3", "x4", "x5", "x6"),
weight = c(45, 53, 56, 72, 65, 50)) head(df, 2)
subject weight
1 x1 45
2 x2 53
: : :
#棒グラフの描画
ggplotで被験者をX軸に,体重をY軸にマッピングし,体重の値に従って棒グラフを作成します。まずggplotのなかに使用するデータフレーム,データセットの中の変数をX軸やY軸に割り当てます。今回は体重の値をそのまま表示させたいので,geom_bar()の中身をstat = "idenetity"にしました。
g <- ggplot(df, aes(x = subject, y = weight))+
geom_bar(stat = "identity")
plot(g)
#背景の変更
背景を黒色にするためにtheme_dark()を書き加えます。
g <- ggplot(df, aes(x = subject, y = weight, fill = subject))+
geom_bar(stat = "identity")+
theme_dark()
plot(g)
![](https://assets.st-note.com/img/1665231699621-Ug8O2NYw8n.png?width=800)
■Rグラフィックスクックブック第2版 ―ggplot2によるグラフ作成のレシピ集/Winston Chang (著), 石井弓美子 (翻訳), 河内崇 (翻訳), 瀬戸山雅人 (翻訳)
■改訂2版 RユーザのためのRStudio[実践]入門〜tidyverseによるモダンな分析フローの世界/松村優哉 (著), 湯谷啓明 (著), 紀ノ定保礼 (著), 前田和寛 (著)
■Rが生産性を高める〜データ分析ワークフロー効率化の実践/igjit (著), atusy (著), hanaori (著)
![](https://assets.st-note.com/img/1665231699677-2kPCByThlG.png?width=800)
この記事が気に入ったらサポートをしてみませんか?