ここではかなり具体的な質問ですが、同様の問題を抱えている他の人に役立つ可能性があります。
私はいくつかの簡単なデータを持っています:
Y = c(0.02, 0.03, 0.03, 0.04, 0.05, 0.06, 0.08, 0.09, 0.10, 0.13, 0.17, 0.17, 0.21, 0.22,
0.35, 0.47, 0.51, 0.53, 0.54, 0.65, 0.78)
X = c(0.45, 0.26, 0.35, 0.22, 0.37, 0.09, 0.27, 0.51, 0.39, 0.37, 0.37, 0.27, 0.51, 0.36,
0.44, 0.49, 0.63, 0.49, 0.71, 0.56, 0.67)
self1 = data.frame(X, Y)
シンプルなカスタムggplotテーマもあります。
plot.theme = theme(axis.text = element_text(size=26), axis.title=element_text(size=28),
plot.title=element_text(size=36, margin=margin(0,0,20,0)), panel.grid.minor
= element_blank(), plot.margin=unit(c(0.1,0.25,0.5,0.85), "cm"), axis.title.y =
element_text(margin=margin(0,15,0,0)), panel.border = element_rect(color="black", fill=NA,
size=2), axis.ticks = element_blank(), legend.title = element_text(size=26), legend.text =
element_text(size=18))
限界ヒストグラムを使用してデータの散布図をプロットすると、次のようになります。
bing = ggplot(self1, aes(x=X, y=Y)) + geom_point(size=3) +
geom_smooth(method = "lm", se=F, color="black") +
plot.theme +
ylab("Observed selfing rate") +
xlab("Observed crossing rate") +
geom_vline(xintercept = 0.42, linetype="longdash") +
geom_hline(yintercept = 0.25, linetype="longdash")
ggExtra::ggMarginal(bing, type = "histogram", bins=6, size=10)
「観測された交差率」の「g」がグラフの下部で途切れていることを除いて、すべてが素晴らしく見えます。考えられるすべてのテーマパラメータをいじってみました。また、いくつかの引数を調整してみましたが、ggMarginal
すべてをプロット領域内に収めるために変更する必要があるものはまだ見つかりません。誰かが私を助けることができますか?問題は、最終的にはggMarginalがさまざまなテーマパラメータのサイズを自動調整する方法にあると思いますが、それは単なる予感です。
g
がプロットの場合は、描画するg$vp = grid::viewport(height=0.9, width=0.9)
前に実行できます(printまたはgrid.draw)
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加