[解決済み] メインタイトルの追加 複数のプロット ggarange
2022-01-30 12:17:03
質問
1つのデータフレームがあります
dt
には、ダイビングの行動に関するデータが含まれており、3つの異なる領域でのデータです。
BA, MI, FA
.
複数のプロットにメインタイトルを付けたいのですが (
ba, mi, fa
を使用しています。
ggarrange
しかし、うまくいくものが見つかりませんでした。
3つのプロットの一番上にメインタイトル "潜水深度 (m)" を追加したいのですが、どうすればいいですか?
library(data.table)
library(ggplot2)
dt = data.table(area= c("BA", "FA", "MI"),
dmean = c(30, 50, 200, 76, 467, 87, 98, 10, 240, 176, 89, 400, 340, 10, 40, 54, 89, 340, 205),
sex = c("F", "M"))
ba<-ggplot(dt[dt$area=="BA",], mapping = aes(y = dmean, x = sex, color = sex, fill=sex))+
geom_violin(alpha=.5,scale = "width",trim = FALSE, position=position_dodge(1))+
ggtitle("Dive mean at BA and sex")+
scale_y_log10(breaks = c(10, 30, 50, 100, 200, 300, 400, 500)) +
scale_fill_discrete(name="Social class",
labels=c("Female", "Male"))+
xlab("Habitat")+
ylab("Dive depth (m)")+
theme_bw();ba
mi<-ggplot(dt[dt$area=="MI",], mapping = aes(y = dmean, x = sex, color = sex, fill=sex))+
geom_violin(alpha=.5,scale = "width",trim = FALSE, position=position_dodge(1))+
ggtitle("Dive mean at MI and sex")+
scale_y_log10(breaks = c(10, 30, 50, 100, 200, 300, 400, 500)) +
scale_fill_discrete(name="Social class",
labels=c("Female", "Male"))+
xlab("Habitat")+
ylab("Dive depth (m)")+
theme_bw();mi
fa<-ggplot(dt[dt$area=="FA",], mapping = aes(y = dmean, x = sex, color = sex, fill=sex))+
geom_violin(alpha=.5,scale = "width",trim = FALSE, position=position_dodge(1))+
ggtitle("Dive mean at FA and sex")+
scale_y_log10(breaks = c(10, 30, 50, 100, 200, 300, 400, 500)) +
scale_fill_discrete(name="Social class",
labels=c("Female", "Male"))+
xlab("Habitat")+
ylab("Dive depth (m)")+
theme_bw();fa
t<-ggarrange(ba, mi, fa,
ncol=3, nrow=1, common.legend = TRUE, legend="bottom");t
#I tried insert:
ggtitle = "Dive depths (m)"
top = "Dive depths (m)")
top=textGrob("Dive depths (m)"
誰かやり方知ってる?
どのように解決するのですか?
を使用することができます。
annotate_figure
:
library(ggpubr)
plot<- ggarrange(ba,mi,fa, ncol=3, nrow=1, common.legend = TRUE,legend="bottom")
annotate_figure(plot, top = text_grob("Dive depths (m)",
color = "red", face = "bold", size = 14))
関連
-
[解決済み】RでのMLEエラー:'vmmin'の初期値が有限でない
-
[解決済み】Matplotlibでサブプロットにタイトルを追加する方法
-
[解決済み】R Markdown - html出力でフォントサイズとフォントタイプを変更する
-
[解決済み] データフレームの行を複数の列でソート(並び替え)する。
-
[解決済み] matplotlib のプロットで軸のテキストを非表示にする
-
[解決済み] ggplotで凡例のタイトルを変更する方法
-
[解決済み] ggplot2 Rプロットで軸の制限を設定するには?
-
[解決済み】ggplot2によるサイド・バイ・サイド・プロット
-
[解決済み】ggplot2でプロットタイトルを中央に配置する
-
[解決済み】ggplot2で軸のタイトルやラベルの大きさを変更する。
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】エラー:'dimnames' [2]の長さが配列の範囲と等しくない [終了しました]
-
[解決済み】数学関数への非数値引数
-
[解決済み】scale_color_manual()が動作しない件
-
[解決済み] write.tableしようとすると、未実装の型リストが表示される。
-
[解決済み】bstTreeの予測値の混乱行列、エラー:'The data must contain some levels that overlap reference'.
-
[解決済み】ロジスティック回帰 - eval(family$initialize) : y 値は 0 <= y <= 1 である必要があります。
-
[解決済み】RでAIC中に行数が変化するのはなぜですか?そうならないようにするにはどうしたらいいですか?
-
[解決済み] ヒートマップ作成時のエラー - 外部関数呼び出しでNA/NaN/Inf (arg 11)
-
[解決済み】Rでmax.printの制限値を増やす方法
-
[解決済み】"object not interpretable as a factor "というエラーの意味は?[クローズド]