library(ggplot2)
df <- data.frame(x=1:10, y=rnorm(10))
p1 <- ggplot(df, aes(x,y)) + geom_point()
plist <- list(p1,p1,p1,p1,p1)
# In my real example,a plot function will fit a ggplot to a list of datasets
#and return a list of ggplots like the example above.
我想用 grid.arrange () 在 gridExtra 中安排地块。
如果 plist 中的地块数量是变量, 我将怎么做?
This works:
grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])
但我需要一个更普遍的解决方案。 想法呢?
不如这样:
library(gridExtra)
n <- length(plist)
nCol <- floor(sqrt(n))
do.call("grid.arrange", c(plist, ncol=nCol))
""https://i.sstatic.net/Rt0qB.png" alt="此处输入图像描述"/ >
您可以使用 grid.arrange () 和 arrangeGrob () 列表,只要您在每个函数中使用 grobs {/code> 参数指定列表。 例如,在您给出的示例中:
library(ggplot2)
library(gridExtra)
df <- data.frame(x=1:10, y=rnorm(10))
p1 <- ggplot(df, aes(x,y)) + geom_point()
plist <- list(p1,p1,p1,p1,p1)
grid.arrange(grobs = plist, ncol = 2) ## display plot
ggsave(file = OutFileName, arrangeGrob(grobs = plist, ncol = 2)) ## save plot
我知道使用 < strong> > gridExtra < / strong > 软件包的问题,但 < code> wrap_ plots 功能来自 < strong > patchwork 软件包,是处理可变长度列表的一个很好的方法:
library(ggplot2)
# devtools::install_github("thomasp85/patchwork")
library(patchwork)
df <- data.frame(x=1:10, y=rnorm(10))
p1 <- ggplot(df, aes(x,y)) + geom_point()
plist <- list(p1,p1,p1,p1,p1)
wrap_plots(plist)
要在一页上设置所有绘图, 您可以计算这样的列数和行数 :
x = length(plots)
cols = round(sqrt(x),0)
rows = ceiling(x/cols)
由于大多数多个绘图函数都有 ncol 和 nrow 作为参数, 您可以把这些放进去。 我喜欢从 ggpubr 中绘制 。
ggarrange(plotlist = plots, ncol=cols, nrow = rows)
这有利于比列多的行, 而不是列, 如果您想要相反的话, 则会反转。 也就是说, 6个地块, 它会给3个行和2个列, 而不是相反方向 。
This is a really really simple question to which I seem to be entirely unable to get a solution. I would like to do a scatter plot of an observed time series in R, and over this I want to plot the ...
since the latest Ubuntu release (karmic koala), I noticed that the internal R package advertises on start-up the REvolution package. It seems to be a library collection for high-performance matrix ...
I am trying to run an analysis by invoking R through the command line as follows: R --no-save < SampleProgram.R > SampleProgram.opt For example, consider the simple R program below: mydata =...
I m trying to generate GOFrame objects to generate a gene ontology mapping in R for unsupported organisms (see http://www.bioconductor.org/packages/release/bioc/vignettes/GOstats/inst/doc/...
I have a dataframe df.all and I m plotting it in a bar plot with ggplot2 using the code below. I d like to make it so that the order of the dodged bars is flipped. That is, so that the bars labeled "...
I m getting a weird error when training a glmnet regression. invalid class "dgCMatrix" object: length(Dimnames[[2]]) must match Dim[2] It only happens occasionally, and perhaps only under larger ...
Sorry for the non-descriptive title but I don t know whether there s a word for what I m trying to achieve. Let s assume that I have a list of names of different classes like c( 1 , 2 , 3 , 4 ) ...
I m plotting a group of curves, using facet in ggplot2. I d like to have a smoother applied to plots where there are enough points to smooth, but not on plots with very few points. In particular I d ...