Utilizzando ggplot, vorrei rappresentare un riquadro grafico con pannello, ma con la stessa altezza del riquadro per ogni pannello. Ho questo grafico:geom_tile e facet_grid/facet_wrap per la stessa altezza di piastrelle
dataSta <- list(sites=rep(paste("S", 1:31),each=12), month=rep(1:12,31), value=round(runif(31*12, min=0, max=3000)), panel=c(rep("Group 1",16*12),rep("Group 2", 12*12), rep("Group 3", 3*12)))
library(ggplot2)
library(grid)
base_size <- 9
windows()
ggplot(data.frame(dataSta), aes(factor(month), sites)) +
geom_tile(aes(fill = value), colour = "black")+
facet_wrap(~panel, scale="free_y", nrow=3)+
theme_grey(base_size = base_size) +
labs(x = "",y = "") +
scale_x_discrete(expand = c(0, 0)) +
scale_y_discrete(expand = c(0, 0)) +
theme(legend.title = element_blank(),
axis.ticks = element_blank(),
axis.text.x = element_text(size = base_size *0.8, hjust = 0),
panel.margin = unit(0,"lines"),
strip.text = element_text(colour="red3", size=10, face=2))
Ma l'altezza delle piastrelle è diverso tra il pannello. Io cerco di usare facet_grid:
windows()
ggplot(data.frame(dataSta), aes(factor(month), sites)) +
geom_tile(aes(fill = value), colour = "black")+
facet_grid(panel~., scales="free_y", space="free")+
theme_grey(base_size = base_size) +
labs(x = "",y = "") +
scale_x_discrete(expand = c(0, 0)) +
scale_y_discrete(expand = c(0, 0)) +
theme(legend.title = element_blank(),
axis.ticks = element_blank(),
axis.text.x = element_text(size = base_size *0.8, hjust = 0),
panel.margin = unit(0,"lines"),
strip.text = element_text(colour="red3", size=10, face=2))
Il problema con l'altezza delle piastrelle è stato risolto, ma le etichette di panel (gruppo 1 ... Gruppo 3) non sono sulla parte superiore del pannello. È possibile cambiare la posizione delle etichette del pannello con facet_grid? o combinare facet_grid e facet_wrap? Grazie per il vostro aiuto, e mi dispiace per il mio inglese!
Possibile duplicato: https://stackoverflow.com/a/32733035/7886302 – Undo