У меня проблемы с выравниванием по правому краю заголовков горизонтальной оси Y для нескольких графиков в R ggplot2. У меня есть основной график, который представляет собой дендрограмму с метками листьев, созданными с помощью пакета ggdendro, и у меня есть несколько цветных полос под основным графиком с заголовками слева. Если я использую grid.arrange для размещения графиков на одной странице, я могу получить хороший интервал по вертикали между графиками, но я не могу последовательно выравнивать заголовки оси Y для цветных полос по правому краю. Если я использую plot_grid, я могу последовательно выровнять заголовки оси Y по правому краю, но у меня возникают проблемы с получением подходящего вертикального интервала между графиками. Любая помощь приветствуется!
Обновление: Два предложенных решения работают одинаково хорошо, поэтому я принимаю первое в качестве ответа. Использование ggarrange из пакета яиц и использование plot_grid с align = "v" вместо align = "hv" устранило мою проблему.
Создание основного графика и цветных полос:
require(ggplot2)
require(gridExtra)
require(cowplot)
require(ggdendro)
hc = hclust(dist(USArrests), "ave")
df = data.frame(cluster = cutree(hc, 6),
states = factor(hc$labels, levels = hc$labels[hc$order]))
p1_dendro = dendro_data(hc)
p1 = ggdendrogram(hc) +
coord_cartesian(xlim = c(-1, nrow(df) + 1), ylim = c( -1, max(p1_dendro$segments$y)), expand = F)
p2 = ggplot(df, aes(states, y = 1, fill = factor(cluster))) +
ylab("y label") +
geom_tile() + theme_minimal() +
coord_cartesian(xlim = c(-1, nrow(df) + 1), expand = F) +
theme(axis.title.x = element_blank(),
axis.title.y = element_text(angle = 0, vjust = 0.5, hjust = 1),
axis.ticks = element_blank(),
axis.text = element_blank(),
legend.position = "none",
line = element_blank())
p3 = ggplot(df, aes(states, y = 1, fill = factor(cluster))) +
ylab("a longer y label") +
geom_tile() + theme_minimal() +
coord_cartesian(xlim = c(-1, nrow(df) + 1), expand = F) +
theme(axis.title.x = element_blank(),
axis.title.y = element_text(angle = 0, vjust = 0.5, hjust = 1),
axis.ticks = element_blank(),
axis.text = element_blank(),
legend.position = "none",
line = element_blank())
сетка . организовать подход:
gp1 = ggplotGrob(p1)
gp2 = ggplotGrob(p2)
gp3 = ggplotGrob(p3)
maxWidth = grid::unit.pmax(gp1$widths[2:5], gp2$widths[2:5], gp3$widths[2:5])
gp1$widths[2:5] = as.list(maxWidth)
gp2$widths[2:5] = as.list(maxWidth)
gp3$widths[2:5] = as.list(maxWidth)
grid.arrange(gp1, gp2, gp3, ncol = 1, heights = c(8,1,1))
plot_grid approach:
plot_grid(p1, p2, p3, ncol = 1, align = "hv", axis = "tblr", rel_heights = c(8,1,1))
введите описание изображения здесь