gridextra

问题 I'm looking to create a plot that contains a simple multi-line ggplot2 graph with a table of separate (but relevant) data below the graph that lines up by the X axis of the graph. The data table's column names do match the x axis of the graph (hours 1 to 24), but one column is dedicated to necessary row names. Here are the graph and the data table separately: Data table is cut off at hour 16 for brevity, but does extend to 24. I've been attempting different solutions in gridExtra all morning

问题 I'm looking to create a plot that contains a simple multi-line ggplot2 graph with a table of separate (but relevant) data below the graph that lines up by the X axis of the graph. The data table's column names do match the x axis of the graph (hours 1 to 24), but one column is dedicated to necessary row names. Here are the graph and the data table separately: Data table is cut off at hour 16 for brevity, but does extend to 24. I've been attempting different solutions in gridExtra all morning

问题 I want to have my table grobs aligned to the top of each other but verticaly centered to the page with respect to the longest table. I need this to be automatic with tables of different lengths. This is what I have to vertically align them with each other as shown by @baptiste here. --- output: pdf_document geometry: - paperwidth=13.333in - paperheight=7.5in - margin=.5in --- ```{r, echo=F, fig.align='center'} library(magrittr) library(gridExtra) library(gtable) library(grid) # from https:/

问题 I have several plots that I want to combine them together and add a title to the combined plot, but somehow I cannot combine them using R. (using RStudio) Combine two residual plots plotted by using plot(resid(lme)) where lme is a linear mixed model. Combine two interaction plots plotted by using interaction.plot(x1,x2,y) where x1 and x2 are the two independent variables, and y is the dependent variable. I tried to store the plots as variables and use grid.arrange , but they cannot be stored

问题 i want to arrange plots with the following layout_matrix over multiple pages. rep. e.g. library(gridExtra) library(ggplot2) layout <- rbind(c(1,2,3,4), c(1,2,3,4), c(1,2,3,4), c(5,5,5,5)) p <- list() for(i in 1:15) { ifelse(i %% 5 > 0, p[[i]] <- ggplot(mtcars, aes(wt, mpg)) + geom_point() + ggtitle(paste("plot:",i)), p[[i]] <- tableGrob(mtcars[5:7,],rows = NULL) ) } if i have only one page: (easy) grid.arrange(grobs=p[1:5],layout_matrix=layout) if i want multiple pages: (i loose all my

问题 I would like to perfectly align these plots : Here is the R code : library(tidyverse) library(gridExtra) groupes <- tribble(~type, ~group, ~prof, ~var, 1,1,1,12, 1,1,2,-24, 1,2,1,-11, 1,2,2,7, 2,1,1,10, 2,1,2,5, 2,2,1,-25, 2,2,2,2, 2,3,1,10, 2,3,2,3, 3,1,1,10, 3,1,2,-5, 3,2,1,25, 3,2,2,2, 3,3,1,-10, 3,3,2,3, 3,4,1,25, 3,4,2,-18) hlay <- rbind(c(1,2,3), c(1,2,3), c(NA,2,3), c(NA,NA,3)) p1 <- groupes %>% filter(type==1) %>% ggplot(aes(prof,var)) + geom_col() + facet_wrap(~group,ncol=1) + coord

问题 I would like to perfectly align these plots : Here is the R code : library(tidyverse) library(gridExtra) groupes <- tribble(~type, ~group, ~prof, ~var, 1,1,1,12, 1,1,2,-24, 1,2,1,-11, 1,2,2,7, 2,1,1,10, 2,1,2,5, 2,2,1,-25, 2,2,2,2, 2,3,1,10, 2,3,2,3, 3,1,1,10, 3,1,2,-5, 3,2,1,25, 3,2,2,2, 3,3,1,-10, 3,3,2,3, 3,4,1,25, 3,4,2,-18) hlay <- rbind(c(1,2,3), c(1,2,3), c(NA,2,3), c(NA,NA,3)) p1 <- groupes %>% filter(type==1) %>% ggplot(aes(prof,var)) + geom_col() + facet_wrap(~group,ncol=1) + coord

问题 I am attempting to implement a solution from here. Unfortunately I cant get nested facets package uploaded and attempting to format a the facet titles by using the solution to use gridextra package. However, what I cant seem to figure out how to do is put all of the graphs on one row, as in it would look like one single bar plot. Need to modify this line somehow: grid.arrange(., ncol = 1) . In my data all plots will be of equal size with two data points each. Code borrowed is: library(ggplot2

问题 I am using the awesome rasterVis to create a panel with maps that have the same extent (i.e. same spatial coverage) but that show different features (i.e. each with its own legend). This is what it looks like so far: library(raster) library(rasterVis) library(RColorBrewer) library(gridExtra) # make-up data r <- raster(system.file("external/test.grd", package="raster")) s <- stack(r, r*2, r*3, r*4, r*5) names(s) <- paste0("Field ",seq(1,5)) # pre-allocate list l <- vector("list", length

问题 I am using the awesome rasterVis to create a panel with maps that have the same extent (i.e. same spatial coverage) but that show different features (i.e. each with its own legend). This is what it looks like so far: library(raster) library(rasterVis) library(RColorBrewer) library(gridExtra) # make-up data r <- raster(system.file("external/test.grd", package="raster")) s <- stack(r, r*2, r*3, r*4, r*5) names(s) <- paste0("Field ",seq(1,5)) # pre-allocate list l <- vector("list", length