在下面的图中,我有一个多面网格。
有什么办法可以将两个子图居于0
的中心,同时为min
轴保留不同的max
/ x
值?
在下面的情况下,左为xlim=c(-1,1)
,右为xlim=c(-2,2)
,但通常应适用。
(在一个现实生活中的示例中,这些是多面的火山图,我想以0
效果大小为中心,但要针对不同的图保留不同的x
比例)
library(ggplot2)
df = data.frame(x=c(1,2), y=c(0,0), group=c(1,2))
ggplot(df, aes(x=x, y=y)) + geom_point() + facet_wrap(~group, scale="free_x")
最佳答案
symmetrise_scale <- function(p, axis = "x"){
gb <- ggplot_build(p)
type <- switch(axis, "x" = "x.range", "y" = "y.range")
lims <- sapply(gb$panel$ranges, "[[", type)
fname <- as.character(p$facet$facets)
facets <- gb$panel$layout[[fname]]
lims2 <- as.vector(t(tcrossprod(apply(abs(lims), 2, max), c(-1,1))))
dummy <- setNames(data.frame(rep(facets, each=2), lims2), c(fname, axis))
switch(axis,
"x" = p + geom_blank(data=dummy, aes(x=x, y=Inf), inherit.aes = FALSE),
"y" = p + geom_blank(data=dummy, aes(x=Inf, y=y), inherit.aes = FALSE))
}
library(ggplot2)
df = data.frame(x=c(1,2), y=c(5,0.2), group=c(1,2))
p <- ggplot(df, aes(x=x, y=y)) + geom_point() + facet_wrap(~group, scale="free")
symmetrise_scale(p, "x")
symmetrise_scale(p, "y")
关于r - 在 `facet_wrap` ed网格中,将子图居中于0,同时保持 `free_x`,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/37635016/