gridextra

    3热度

    1回答

    我想知道如何安排一个grob对象(表)到另一个中。请看下面的例子: library(ggplot2) library(gridExtra) p1 <- qplot(data=mtcars, x = mpg, y = hp, facets = ~ hp, geom="point") t1 <- tableGrob(head(mtcars)) print(arrangeGrob(p1, t1

    2热度

    1回答

    我想在r的gridExtra包中重新使用tableGrob对象的主题/模板/默认值。 library(gridExtra) tableGrob(df, cols = c("Custom Name", "Custom Name2"), show.rownames = FALSE, h.even.alpha = 0) tableGrob(df2, cols = c("Differ

    0热度

    2回答

    虽然 作品就好了, test <- do.call("arrangeGrob", c(plots.list[1:2],ncol=2,main=textGrob("test"))) 提供了以下错误: "Error in arrangeGrob(list(grobs = list(list(x = 0.5, y = 0.5, width = 1, : input must be grobs!" 我

    1热度

    1回答

    我正在尝试使用grid.table生成表格的图像,以便使用Rstudio-knitr-pandoc在Word文档中进行放置。这是相当大的长列名称。我想要完成的解决方案是将列标题旋转90度。这是可能的与grid.table或任何其他手段? 我已经试过 toxinsGrob<-tableGrob(cyano.x.t,name='toxins',edits=gEdit(gPath='gpar.colte

    1热度

    1回答

    我试图用gridExtra在表格正文周围放一个比较粗的线(比如lwd = 2)。这里有一个从文档page略有修改的MWE。 gtable正在开展工作,但gtable的文档很薄;看代码没有多大帮助。 g <- tableGrob(iris[1:4, 1:3], rows = NULL) separators <- replicate(1, segmentsGrob(x1 = unit(0

    0热度

    1回答

    每当我在R中使用tableGrob时,我无法垂直对齐内部文本的行,列& Row,但是对于水平选项存在,core.just =“left” ... 有没有办法垂直对齐文本,因为它始终居中。

    0热度

    3回答

    的名单上调用grid.arrange这个问题是与这一个位置: Related post 我现在的问题是:在我的代码通过调用lapply生成一个列表ggplots列表。我首先使用lapply,因为我执行了相当多的类似ggplots,并且手动生成每个ggplots会非常麻烦。我如何概括我的代码? p <- qplot(rnorm(30)) plist <- lapply(c(1:10),FUN=f

    2热度

    1回答

    我试图将多个ggplot2图组排列成一个输出/网格。我希望情节(不考虑标签)是相同的大小。我找到了一种方法来做this,但是现在我想调整两张图之间的空间。 例如: 在这个情节,我想,以减少两个地块之间的空间量。我尝试调整边距,删除滴答等,这已经删除了一些空间。 有没有一种方法来在诸如这些情况地块之间的间距调整的更多的控制权? library(MASS) data(iris) library(g

    1热度

    1回答

    我使用ggplot通过for循环创建了多个图,并将每个图保存到列表plots中。 plots <- list() for (i in 1:238) { gene <- row.names(geneExpression)[i] df.sub <- df[ , c("source", gene)] names(test.sub) <- c("source",

    0热度

    2回答

    使用gridExtra包中的漂亮功能tableGrob()打包由Rmarkdown和knitr生成的html文档中的表格时,存在以下问题。 这里是一个重复的例子: library(datasets) library(dplyr) mtcars$cyl <- as.factor(mtcars$carb) carb.mpg <- mtcars %>% select(carb,mpg