
我嘗試將這兩種型別都放在一個串列 (
ggMarginal(p, type = list("density", "histogram"))) 中,但它type的長度必須為 1。
在此先感謝您的幫助!
uj5u.com熱心網友回復:
我認為您需要創建兩個圖并交換它們的上邊距 grobs:
library(ggExtra)
library(ggplot2)
p <- ggplot(mtcars, aes(wt, mpg)) geom_point()
ph <- ggMarginal(p, type = "histogram")
pd <- ggMarginal(p, type = "density")
ph$grobs[ph$layout$name == "topMargPlot"] <-
pd$grobs[ph$layout$name == "topMargPlot"]
ph

由reprex 包于 2022-03-09 創建(v2.0.1)
轉載請註明出處,本文鏈接:https://www.uj5u.com/net/440258.html
