我正在使用网格视口合并ggplot的多个绘图,这是必要的(我认为),因为我想旋转一个绘图,这在标准的ggplot甚至gridExtra包中都不可能。
我想在两个绘图上画一条线,以使相关性更加清晰。但是要精确知道线的位置,我需要在ggplot绘图(grob?)中找到一个点的相对位置。
我已经做了以下示例:
require(reshape2)
require(grid)
require(ggplot2)
datamat <- matrix(rnorm(50), ncol=5)
cov_mat <- cov(datamat)
cov_mat[lower.tri(cov_mat)] <- NA
data_df <- melt(datamat)
cov_df <- melt(cov_mat)
plot_1 <- ggplot(data_df, aes(x=as.factor(Var2), y=value)) + geom_boxplot()
plot_2 <- ggplot(cov_df, aes(x=Var1, y=Var2, fill=value)) +
geom_tile() +
scale_fill_gradient(na.value="transparent") +
coord_fixed() +
theme(
legend.position="none",
plot.background = element_rect(fill = "transparent",colour = NA),
panel.grid=element_blank(),
panel.background=element_blank(),
panel.border = element_blank(),
plot.margin = unit(c(0, 0, 0, 0), "npc"),
axis.ticks=element_blank(),
axis.title=element_blank(),
axis.text=element_text(size=unit(0,"npc")),
)
cov_heatmap <- ggplotGrob(plot_2)
boxplot <- ggplotGrob(plot_1)
grid.newpage()
pushViewport(viewport(height=unit(sqrt(2* 0.4 ^2), 'npc'),
width=unit(sqrt(2* 0.4 ^2), 'npc'),
x=unit(0.5, 'npc'),
y=unit(0.63, 'npc'),
angle=-45,
clip="on")
)
grid.draw(cov_heatmap)
upViewport(0)
pushViewport(viewport(height=unit(0.5, 'npc'),
width=unit(1, 'npc'),
x=unit(0.5, 'npc'),
y=unit(0.25, 'npc'),
clip="on")
)
grid.draw(boxplot)
我如何找到箱线图中相对于x和y轴的位置(比如,第一个箱子的位置)以及三角协方差矩阵的相对位置。
我知道我必须查看boxplot
的grob对象,但不知道如何在其中找到相关数据。
编辑:
这些线条来自底部图形上的点到顶部图形中的块。
geom_polygon
先旋转顶部面板的绘图更容易,然后再用例如cowplot::plot_grid
对齐绘图。 - Axeman