我正在嘗試對齊兩個直方圖，使它們面對面，就像這個鏈接的影像一樣。 [示例圖片] (https://i.stack.imgur.com/mI6Q4.png)
我有每組的兩個單獨的直方圖，我試圖用cowplot的函式align_plots來對齊它們。然而，我的結果是這樣的。 ![我的對齊圖] (https://i.stack.imgur.com/E04UQ.png)
下面是我用來對齊它們的代碼，關于對齊和軸引數的任何變化，影像的結果仍然類似于上面發布的第二張：
aligned_hist <- cowplot：: align_plots(Asyhist, Symhist。 對齊= "hv"。 軸= "b"）
align_hist < - ggdraw(aligned_hist[[/span>1]]) draw_plot(aligned_hist[2]]）
align_hist
很抱歉沒有直接發布圖片，但我是堆疊溢位的新手，不允許我這樣做。希望有人能幫助我解決這個問題。謝謝！
uj5u.com熱心網友回復：
我不知道ggpubr直方圖，但是用vanilla ggplot2的方法是使用after_stat()來根據組別改變值。
library(ggplot2)
set.seed(0)
df <- data.frame()
x = c(rnorm（100。 1）。 rnorm(100。 2））,
組 = rep（c("A"/span>。 "B"）。 每個= 100）
)
ggplot(df, aes(x。 填充=組））
geom_histogram()
aes(y = after_stat( ifelse(組== 2, -1。 1) * count))
)
scale_y_continuous(labels = abs)
#> `stat_bin()`使用`bins = 30`。用`binwidth`挑選更好的值。
創建于2021-09-11，由reprex包（v2.0.1）
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/318938.html
標籤：