Я хотел бы объединить несколько диаграмм рассеяния, используя ggmatrix
из GGally (который я предпочитаю gridarrange
из-за лучшего выравнивания, когда метки оси Y имеют разный размер). Мои вопросы
- Могу ли я сохранить исходные названия осей (ось Y от каждого графика, ось X только от последнего?
или альтернативно
- Могу ли я изменить (уменьшить) расстояние между заголовком оси и осью, если я использую
yAxisLabels=
, чтобы добавить заголовки оси Y в пределахggmatrix
? - Есть ли способ, используя
gridarrange
от Gridextra, правильно выровнять вертикальные линии сетки нескольких графиков, когда метки по оси Y имеют разный размер? (размер нижнего графика можно отрегулировать, добавив дополнительную легенду после Добавить общая легенда для комбинированных ggplots, но это не работает для меток / названий осей для меня)
Пример кода (в моих исходных наборах данных больше строк):
library(ggplot2)
library(gridExtra)
library(lattice)
library(grid)
library(GGally)
library(reshape2)
clm <- data.frame(cbind(c(2004,2005,2006,2007,2008,2009,2010,2011,2012,2013),
c(6.5,6.1,6.9,7.4,6.6,6.8,6.3,8.5,7.8,7.6),
c(554.0,468.0,537.0,592.0,900.0,689.4,672.2,551.3,705.0,669.3)))
colnames(clm) <- c("year","T","P")
bai <- data.frame(cbind(c(2004,2005,2006,2007,2008,2009,2010,2011,2012,2013),
c(336.4,489.5,309.8,141.5,913.4,604.1,791.1,1066.1,935.8,433.1),
c(839.3,951.9,890.3,700.4,1636.2,1615.1,1259.3,1186.8,1888.5,1279.8),
c(1169.2,1179.2,1275.1,1651.0,2127.1,2188.4,1740.7,1513.2,1826.2,2215.2)))
colnames(bai) <- c("year","S1","S2","S3")
chr <- data.frame(cbind(c(2004,2005,2006,2007,2008,2009,2010,2011,2012,2013),
c(0.35,0.67,0.50,0.28,1.17,0.93,1.28,1.51,1.19,0.63),
c(0.59,0.79,0.83,0.67,1.30,0.67,0.62,0.72,1.31,0.69),
c(0.78,0.85,0.86,1.04,1.10,1.14,0.80,0.83,1.27,1.19)))
colnames(chr) <- c("year","S1","S2","S3")
l_bai <- melt(bai,id.vars = "year")
l_chr <- melt(chr,id.vars = "year")
# plot single plots
gg_T <- ggplot(clm, aes(x=year, y=T)) + geom_line(colour = "red") + xlab("Year") + ylab("T (°C)")
gg_T
gg_P <- ggplot(clm, aes(x=year, y=P)) + geom_line(colour = "blue") + xlab("Year") + ylab("P (mm)")
gg_P
gg_bai <- ggplot(l_bai, aes(x=year, y=value,colour = variable)) + geom_line()+ xlab("Year") + ylab("BAI (µm)")
gg_bai
gg_chr <- ggplot(l_chr, aes(x=year, y=value,colour = variable)) + geom_line()+ xlab("Year") + ylab("RWI (-)")
gg_chr
# combine plots with ggmatrix
plotlist <- list(gg_T,gg_P,gg_bai,gg_chr)
# no axis titles plotted
ggmatrix(plotlist, 4, 1, showYAxisPlotLabels = TRUE,
gg=theme(axis.title = element_text(size = 12)) + theme(axis.text=element_text(size = 10)))
# add axis titles with yAxisLabels/xAxisLabels => huge gap between y-axis labels and title
ggmatrix(plotlist, 4, 1, showYAxisPlotLabels = TRUE,yAxisLabels = c("T (°C)","P (mm)"),xAxisLabels = "Year",
gg=theme(axis.title = element_text(size = 12)) + theme(axis.text=element_text(size = 10)))
# alternative with gridarrange, title and text of x-axis, legends are not plotted in the first 3 plots
gg_Tx <- ggplot(clm, aes(x=year, y=T)) + geom_line(colour = "red")+xlab("Year") + ylab("T (°C)") + theme(axis.title.x = element_blank(), axis.text.x = element_blank())
gg_Tx
gg_Px <- ggplot(clm, aes(x=year, y=P)) + geom_line(colour = "blue") + xlab("Year") + ylab("P (mm)") + theme(axis.title.x = element_blank(), axis.text.x = element_blank())
gg_Px
gg_baix <- ggplot(l_bai, aes(x=year, y=value,colour = variable)) + geom_line() + xlab("Year") + ylab("BAI (µm)") + theme(axis.title.x = element_blank(), axis.text.x = element_blank())+ guides(color=FALSE)
gg_baix
gg_chrx <- ggplot(l_chr, aes(x=year, y=value,colour = variable)) + geom_line()+ labs(colour="Site") + xlab("Year") + ylab("RWI (-)") + theme(legend.position = "bottom", legend.box = "horizontal")
gg_chrx
# problem with grid.arrange: vertical gridlines are not properly aligned due to different size of x-axis labels
grid.arrange(gg_Tx,gg_Px,gg_baix,gg_chrx,ncol=1)