r - 使用共享轴在图中排列面板
问题描述
我正在尝试在 ggplot 中制作一个包含三个面板的图形。我想在两个面板相邻的地方删除轴标题和文本(参见下面的示例),并将一个图例放置在空白方面。
面板 A 和 B 应具有相同的 y 轴,并且所有三个面板都具有相同的 x 轴(A 和 B 基本上是完整数据集和子集的图,而 C 显示百分比变化)。我在 stackoverflow 上看到了很多有用的帖子,但没有一个能准确解释我想知道的内容。
我试过:1)将面板绘制为带有 的面facet_wrap()
,用于element_blank()
控制轴限制(如此处所述)并使用此功能替换图例:
# function to replace legend
library(lemon)
shift_legend2 <- function(p) {
# ...
# to grob
gp <- ggplotGrob(p)
facet.panels <- grep("^panel", gp[["layout"]][["name"]])
empty.facet.panels <- sapply(facet.panels, function(i) "zeroGrob" %in% class(gp[["grobs"]][[i]]))
empty.facet.panels <- facet.panels[empty.facet.panels]
# establish name of empty panels
empty.facet.panels <- gp[["layout"]][empty.facet.panels, ]
names <- empty.facet.panels$name
# example of names:
#[1] "panel-3-2" "panel-3-3"
# now we just need a simple call to reposition the legend
reposition_legend(p, 'center', panel=names)
}
# add dummy data for element_blank()
dat <- dat %>%
mutate(y_min = ifelse(figure == "pct_change", 0.8, 0),
y_max = ifelse(figure == "pct_change", 1.6, 150))
# plot
plot1 <- ggplot(dat, aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
facet_wrap(~figure, nrow = 2, scales = "free_y") +
geom_blank(aes(y = y_min)) +
geom_blank(aes(y = y_max))
# rearrange legend
shift_legend2(plot1)
2)单独绘制面板并稍后安排
a <- ggplot(dat[dat$figure == "d_complete",], aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
theme(legend.position = "none",
axis.title.x = element_blank(),
axis.text.x = element_blank())
b <- ggplot(dat[dat$figure == "d_subset",], aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
theme(legend.position = "none",
axis.title.y = element_blank(),
axis.text.y = element_blank()) +
ylim(c(0, 120)
c <- ggplot(dat[dat$figure == "pct_change",], aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
theme(legend.position = "none")
plot2 <- plot_grid(a, b, c, ncol=2, align = "hv", axis = "bl")
现在的问题是:
- 在图 1 中,面板 A 的 x 轴线消失了,我无法为面板 A 和 C 放置不同的 y 轴图例,并且面板 B 的 y 轴文本仍然存在
- 在情节 2 情节之间有非常难看的差距,我不知道如何添加图例
谢谢你的帮助!
数据:
dput(dat)
structure(list(class = c("AUN", "AUN", "AUN", "AUN", "AUN", "AUN",
"AUN", "AUN", "AUN", "CHE", "CHE", "CHE", "CHE", "CHE", "CHE",
"CHE", "CHE", "CHE"), year = c(0L, 0L, 0L, 5L, 5L, 5L, 10L, 10L,
10L, 0L, 0L, 0L, 5L, 5L, 5L, 10L, 10L, 10L), figure = c("d_subset",
"d_complete", "pct_change", "d_subset", "d_complete", "pct_change",
"d_subset", "d_complete", "pct_change", "d_subset", "d_complete",
"pct_change", "d_subset", "d_complete", "pct_change", "d_subset",
"d_complete", "pct_change"), values = c(73, 99, 1, 84, 118, 1.19191919191919,
80, 96, 0.96969696969697, 12, 16, 1, 19, 27, 1.6875, 16, 20,
1.25), y_min = c(0, 0, 0.8, 0, 0, 0.8, 0, 0, 0.8, 0, 0, 0.8,
0, 0, 0.8, 0, 0, 0.8), y_max = c(150, 150, 1.6, 150, 150, 1.6,
150, 150, 1.6, 150, 150, 1.6, 150, 150, 1.6, 150, 150, 1.6)), class = c("grouped_df",
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -18L), groups = structure(list(
class = c("AUN", "CHE"), .rows = list(1:9, 10:18)), row.names = c(NA,
-2L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE))
解决方案
我认为您在第二个选项中非常接近。您只需要修改plot.margin
a、b 和 c 图以减小可怕间隙的大小,然后使用ggdraw
. 这是生成所需图的完整代码。
library(tidyverse)
library(cowplot)
# Your original plots with the corresponding plot.margin
# Set the bottom margin to 0 to decrease the vertical gap between a and c plots
a <- ggplot(dat[dat$figure == "d_complete",], aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
theme(legend.position = "none",
axis.title.x = element_blank(),
axis.text.x = element_blank(),
# modify the plot's margins: top, right, bottom, left
plot.margin = unit(c(0.2,0,0,0), "cm"))
# Use same margins as plot a
b <- ggplot(dat[dat$figure == "d_subset",], aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
theme(legend.position = "none",
axis.title.y = element_blank(),
axis.text.y = element_blank(),
# modify the plot's margins: top, right, bottom, left
plot.margin = unit(c(0.2,0,0,0), "cm")) +
ylim(c(0, 120))
# Set top margin to -0.7 to decrease the vertical gap (between a and c)
c <- ggplot(dat[dat$figure == "pct_change",], aes(x = year, y = values)) +
geom_line(aes(col = class)) +
theme_cowplot(12) +
theme(legend.position = "none",
# modify the plot's margins: top, right, bottom, left
plot.margin = unit(c(-0.7,0,0.2,0), "cm"))
# Construct the c plot with legend
temp_plot <- dat %>%
filter(figure == "pct_change") %>%
ggplot(aes(x = year, y = values)) +
geom_line(aes(col = class))
# get the plot's legend and transform it to a grob
legend <- as_grob(get_legend(temp_plot))
# Put a, b and c plots together
plot2 <- plot_grid(a, b, c, ncol=2, align = "hv", axis = "bl")
# Add the legend
plot3 <- ggdraw(plot2) +
# set x and y position to draw the legend, usually requires playing with values between -1 and 1
draw_grob(legend, x = 0.25, y = 0.05, width = 1, height = 0.5)
推荐阅读
- java - 递归函数将硬币数量转换为硬币、硬币、镍币、便士
- javascript - 如何正确覆盖localStorage中的缓存数据
- c# - 增加从 Excel 工作表转换为 HTML 时包含的行范围
- javascript - 拒绝连接到“wss://live.mysite.com:3000/”,因为它违反了以下内容安全策略指令:
- javascript - 如何使用 Firebase 存储更改 Node.js 中图像的路径?
- c - Git Bash“致命错误:stdio.h:没有这样的文件或目录”
- php - 如何通过数据透视表展示相关产品?
- html - 当页面向下滚动时,如何获得一个不溢出的div来填充整个高度?
- haskell - Haskell:如何在 do 块下使用 where 语句
- javascript - 错误:验证失败:需要路径