gridextra

I have a use-case similar to the following where I create multiple plots and arrange them into some page layout using gridExtra to finally save it as a PDF with ggsave : p1 <- generate_ggplot1(...) p2 <- generate_ggplot2(...) final <- gridExtra::arrangeGrob(p1, p2, ...) ggplot2::ggsave(filename=output.file,plot=final, ...) Is it possible to have plot p2 cropped while arranging it into the page layout with arrangeGrob ? The problem is that p2 has a lot of extra space on the top and bottom of it that I'd like to get rid of and since cropping doesn't seem viable using ggplot2 only I was thinking

I have created two plots using ggplot as follows: library(ggplot2) library(gridExtra) g1 <- ggplot(iris, aes(Sepal.Width, Sepal.Length)) + geom_point() g2 <- ggplot(iris, aes(Petal.Width, Petal.Length)) + geom_point() grid.arrange(g1, g2, ncol=2) I would like to draw a border/box around the two side by side plots produced by grid.arrange...I think it is something to do with using grid.border, but am not sure of how exactly to do so. Will appreciate any help? Using an example from the ggplot help page: gg <- df <- data.frame(gp = factor(rep(letters[1:3], each = 10)), y = rnorm(30)) library(plyr

I have used gridExtra to create 2 plots next to each other and I can save the object using ggsave However, the plots are misaligned in gridExtra so I used this method #Method 2 - gtable require(gtable) #Extract Grobs g1<-ggplotGrob(left) g2<-ggplotGrob(right) #Bind the tables g<-gtable:::cbind_gtable(g1, g2, "first") #Remove a row between the plots g <- gtable_add_cols(g, unit(-1,"cm"), pos=ncol(g1)) #draw grid.newpage() grid.draw(g) this method is covered in this link The perils of aligning plots in ggplot It worked beautifully for my graphs but when I save the object <- grid.draw(g) the

I need to wrap several plots in a grid, often an uneven number, so there'll often be an "empty spot" . I need to use arrangeGrob() -- not grid.arrange() -- because I want to save the plot for later, not plot() it right away. This works fine, but oddly, arrangeGrob() leaves some weird background in the empty spots. Like so: library(ggplot2) p1 <- ggplot(mtcars, aes(x=factor(cyl), y=mpg)) + geom_boxplot() p2 <- ggplot(mtcars, aes(x=factor(cyl), y=wt)) + geom_boxplot() p3 <- ggplot(mtcars, aes(x =factor(cyl), y=disp)) + geom_boxplot() library(gridExtra) y <- arrangeGrob(p1, p2, p3, ncol = 2) plot

I have several subjects for which I need to generate a plot, as I have many subjects I'd like to have several plots in one page rather than one figure for subject. Here it is what I have done so far: Read txt file with subjects name subjs <- scan ("ListSubjs.txt", what = "") Create a list to hold plot objects pltList <- list() for(s in 1:length(subjs)) { setwd(file.path("C:/Users/", subjs[[s]])) #load subj directory ifile=paste("Co","data.txt",sep="",collapse=NULL) #Read subj file dat = read.table(ifile) dat <- unlist(dat, use.names = FALSE) #make dat usable for ggplot2 df <- data.frame(dat)

I'm trying to create a multiple plot with the same x-axis but different y-axes, because I have values for two groups with different ranges. As I want to control the values of the axes (respectively the y-axes shall reach from 2.000.000 to 4.000.000 and from 250.000 to 500.000), I don't get along with facet_grid with scales = "free" . So what I've tried is to create two plots (named "plots.treat" and "plot.control") and combine them with grid.arrange and arrangeGrob . My problem is, that I don't know how to control the exact position of the two plots, so that both y-axes are positioned on one

I've created a simple wordcloud: require(wordcloud) words <- c('affectionate', 'ambitious', 'anxious', 'articulate', 'artistic', 'caring', 'contented', 'creative', 'cynical', 'daring', 'dependable', 'easygoing', 'energetic', 'funny', 'generous', 'genuine', 'goodlistener', 'goodtalker', 'happy', 'hardworking', 'humerous', 'impulsive', 'intelligent', 'kind', 'loyal', 'modest', 'optimistic', 'outgoing', 'outrageous', 'passionate', 'perceptive', 'physicallyfit', 'quiet', 'rational', 'respectful', 'romantic', 'shy', 'spiritual', 'spontaneous', 'sweet', 'thoughtful', 'warm') freqs <- c(134, 53, 0, 5

DISCLOSURE: I'm not sure how to make a reproducible example for this question. I'm trying to plot a list of grobs using the gridExtra package. I have some code that looks like this: ## Make Graphic Objects for Spec and raw traces for (i in 1:length(morletPlots)){ gridplots_Spec[[i]]=ggplotGrob(morletPlots[[i]]) gridplots_Raw[[i]]=ggplotGrob(rawPlot[[i]]) gridplots_Raw[[i]]$widths=gridplots_Spec[[i]]$widths } names(gridplots_Spec)=names(morletPlots) names(gridplots_Raw)=names(rawPlot) ## Combine spec and Raw traces g=list() for (i in 1:length(rawPlot)){ g[[i]]=arrangeGrob(gridplots_Spec[i]