如何使用grid.arrange在gtable中对齐这些表？
grid.arrange是R语言中的一个函数，用于将多个图形对象在一个图形窗口中进行排列和对齐。在gtable中使用grid.arrange对齐表格可以通过以下步骤实现：
- 首先，确保已经安装并加载了gridExtra和gtable这两个R包。
- 创建需要对齐的表格对象，可以使用grid.table函数将数据表格转换为gtable对象。
- 使用grid.arrange函数将多个表格对象进行排列和对齐。可以通过设置参数nrow和ncol来指定排列的行数和列数。
- 可以使用参数top和bottom来设置顶部和底部的标题，使用参数left和right来设置左侧和右侧的标题。
- 可以使用参数height和width来设置整个图形窗口的高度和宽度。
以下是一个示例代码：
library(gridExtra)
library(gtable)
# 创建表格对象
table1 <- grid.table(mtcars[1:5, 1:3])
table2 <- grid.table(mtcars[6:10, 1:3])
table3 <- grid.table(mtcars[11:15, 1:3])
# 将表格对象进行排列和对齐
grid.arrange(table1, table2, table3, nrow = 1, ncol = 3, top = "Aligned Tables")这段代码将创建三个表格对象，并使用grid.arrange函数将它们在一个图形窗口中水平排列和对齐。其中，参数nrow和ncol设置为1和3，表示将表格排列成一行三列的形式。参数top设置为"Aligned Tables"，作为整个图形窗口的顶部标题。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云容器服务（Tencent Kubernetes Engine）：提供高度可扩展的容器管理服务，支持快速部署、自动伸缩和高可用性。详情请参考：https://cloud.tencent.com/product/tke
- 腾讯云云服务器（CVM）：提供弹性计算能力，可根据业务需求快速创建、部署和管理云服务器。详情请参考：https://cloud.tencent.com/product/cvm
- 腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务，适用于各种数据存储和备份需求。详情请参考：https://cloud.tencent.com/product/cos
请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求和情况进行。
相关·内容
我有一个标记文档，它使用了一点LaTeX来生成包含以下块的.pdf：
grid.arrange(
grobs = list(
gtable_combine(
gtable_add_grob(
tableGrob(mtcars[1:3, 1:2], rows = NULL),
grobs = segmentsGrob(y1 = unit(0, "npc"),
gp = gpar(fill = NA, lwd = 2)),
t = 1,
l = 1,
r = nc
浏览 17提问于2018-01-19得票数 1
回答已采纳
1回答
我需要做下面的类型图
我一直在尝试使用ggplot2，做两个图形，粘贴它们，并把线。然而，我不能把行y= 10。Y= 10行必须遍历整个图，如图像中所示。
他所制定的代码如下
library(ggplot2)
require(gridExtra)
#test value
x=0:1:15
y=0:1:15
z=15:1:0
#join values
ma<-data.frame(x,y)
ma1<-data.frame(z,y)
#define graph
a<-g
浏览 1提问于2017-02-26得票数 1
回答已采纳
2回答
我很难找到使grob和table grob对齐的解决方案。我试着遵循的指示，但仍然没有给出我想要的结果。
library(grid)
library(gridExtra)
library(ggplot2)
library(tibble)
library(gtable)
dat <- tibble::rownames_to_column(mtcars, "car") #convert rownames to first col
plot1 <- ggplot(dat, aes(car, mpg)) +
geom_bar(stat = "identit
浏览 4提问于2016-10-26得票数 5
回答已采纳
1回答
我使用了提出的解决方案，根据数据帧提供的变量，对使用facet_wrap创建的镶嵌面的条带进行着色。我需要为dummy中绘制的条带颜色(size)添加图例。你知道我怎么才能从g2$layout上获取它吗，或者其他任何方式？
library(gtable)
library(grid)
d <- data.frame(fruit = rep(c("apple", "orange", "plum", "banana", "pear", "grape")),
farm =
浏览 1提问于2017-02-09得票数 4
回答已采纳
1回答
gtable对象的多图化
、、、、
The
考虑下面的图表。
p1 = ggplot(mtcars,aes(y=mpg, x=cyl)) + geom_point()
p2 = ggplot(mtcars,aes(y=disp, x=cyl)) + geom_point()
multiplot(p1,p2, layout=matrix(1:2,nrow=1))
我希望(使用函数DoStuff)将绘图操作为gtable对象，而不是ggplot对象。
g1 = ggplot_gtable(ggplot_build(p1))
g1 = DoStuff(g1)
g2 = ggplot_gtable(ggplot_build(
浏览 2提问于2017-11-17得票数 0
回答已采纳
1回答
使用graphics可以很容易地绘制出与mar具有相同x轴的2张图，我很想用ggplot2来再现，但这似乎很困难。
我想要什么：我想画一个geom_line (几行)，并直接在下面(所以没有轴/蜱/.)一个geom_bar (具有相同的组)，它将显示轴与轴/网格的完全对齐。
数据：
library(data.table)
DT <- data.table( y = runif(400, max = 2),
grp = sample(c('M', 'F'),size = 400, replace = T),
浏览 3提问于2016-02-21得票数 2
回答已采纳
1回答
当我使用grid.arrange时，增加x轴的大小和添加标签是有问题的。
我在这里问了一个问题，，答案已经足够了，我接受了。
在代码的末尾，我应该像这样把三个部分粘合在一起
library(gridExtra)
gg1 <- ggplot_gtable(ggplot_build(g1))
gg2 <- ggplot_gtable(ggplot_build(g2))
gg.mid <- ggplot_gtable(ggplot_build(g.mid))
grid.arrange(gg1,gg.mid,gg2,ncol=3,widths=c(4/9,1/9,4/9))
浏览 1提问于2016-12-28得票数 2
回答已采纳
因为我已经更新到了ggplot2 2.0.0，所以我不能使用gridExtra正确地排列图表。问题是，分面图表将被压缩，而其他图表将被扩展。宽度基本上是乱七八糟的。我想以类似于这些单面图的方式来排列它们：
我放了一个可重现的代码
library(grid) # for unit.pmax()
library(gridExtra)
plot.iris <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
geom_point() +
facet_grid(. ~ Species) +
stat_smooth(method =
浏览 3提问于2016-01-15得票数 6
1回答
我想对齐我的情节标签(标题，字幕)到我的图像的左边，而不是绘图区域的左边，为一个gganimate动画。
这在静态图表中是可能的，方法是转换为gtable，然后修改布局。动画需要一种不同的方法，因为gganimate对象不能转换为gtable。
此代码创建带有默认标题和字幕对齐的静态绘图：
library(tidyverse)
library(gganimate)
static_plot <- iris %>%
ggplot(aes(x = Sepal.Length, y = Sepal.Width,
color = Species)) +
ge
浏览 1提问于2019-08-06得票数 3
回答已采纳
我有一个由ggplot2生成的情节，其中包含两个传说。传说的位置并不理想，所以我想调整它们。我一直试图模仿中显示的方法。答案中所示的例子起作用了。然而，我无法得到所描述的方法来适应我的情况。
我使用R2.15.3 (2013-03-01)，ggplot2_0.9.3.1，点阵0.20-13，gtable_0.1.2，gridExtra_0.9.1对Debian挤压.
考虑一下minimal.R生成的图。这和我的实际情节很相似。
########################
minimal.R
########################
get_stat <- function
浏览 2提问于2013-05-11得票数 3
1回答
不能在一页中安排酒保
p3<-barplot(Fehleranzahl_aktuell$Anzahl_Fehler,names.arg=Fehleranzahl_aktuell$Ursachentext,col=c("blue"),xlab="Anzahl Fehler",horiz = TRUE,
las=2,las=1,top = "Fehler aktuelle Buchungsperioden",xlim=c(0,Anzahl_Max))
Anzahl_Max=max(Fehleranzahl$Anzahl_Feh
浏览 0提问于2019-01-21得票数 0
2回答
我正在尝试在grid.arrange图中添加脚注。我在这个可重现的例子中提出了我的想法：)
library(ggplot2)
library(gridExtra)
library(grid)
library(gtable)
summary(anscombe)
p1 <- ggplot(anscombe) + geom_point(aes(x1, y1), color = "darkorange", size = 3) + theme_bw()
p2 <- ggplot(anscombe) + geom_point(aes(x2, y2), color = &
浏览 0提问于2016-03-23得票数 7
我无法将使用方面的绘图与不使用方面的绘图对齐。
问题是，我想使病人的结果(小面图)与基因模型(无面图)对齐，但我需要用不同颜色的病人标签(病人变量是“面”)。到目前为止，我可以用tracks函数对齐ggbio包中的两个情节，也可以用不同的颜色对标签。
这是我的代码：
# load the libraries
library(ggbio)
library(Homo.sapiens)
library(GenomicRanges)
library(grid)
library(gridExtra)
# specify the chromosome area
zone <- GRanges(&#
浏览 3提问于2014-10-14得票数 0
回答已采纳
library(ggplot2)
library(gridExtra)
p1 <- ggplot(mtcars, aes(disp, wt)) + geom_point()
p2 <- ggplot(mtcars, aes(wt, disp)) + geom_point()
p3 <- grid.arrange(p1, p2)
运行代码grid.arrange(p1, p2)可以绘制p1和p2并排的一张漂亮的图。我尝试将其声明为p3。但是，如果我运行p3，我得不到grid.arrange(p1, p2)提供的同样好的图形。我得到的结果如下所示。怎么了？我想像p3一样将gri
浏览 2提问于2018-01-05得票数 0
2回答
我想要创建一个热图，显示一个颜色的最高值，可能是浅蓝色，最低值在深蓝色和不同的颜色在整个列。这应该是一列一列的，而不是完整的表。
我该怎么做呢？
样本代码：
library(gtable)
library(grid)
library(gridExtra)
g <- tableGrob(iris[1:4, 1:3])
g <- gtable_add_grob(g,
grobs = rectGrob(gp = gpar(fill = NA, lwd = 2)),
t = 2, b = nrow(g), l = 1, r = ncol(g))
g <- gtabl
浏览 1提问于2017-05-18得票数 0
回答已采纳
3回答
我是HTML和CSS的新手。
我已经向table元素添加了一个CSS类。然后，我在父表中添加了一个子表。问题是父表CSS类也会影响子表。我不希望这种事情发生。
如何确保应用于父表的CSS不会影响子表？
我的Css如下：
.gtable {
width: 100%;
}
.gtable th {
padding: 5px 10px;
text-align: left;
}
.gtableTH {
text-align: center;
}
.gtable thead tr {
border: 1px solid #CCCCCC;
color: #3
浏览 2提问于2011-10-25得票数 1
回答已采纳
1回答
我正在努力在两个ggplot图之间共享共同的图例，这是我使用arrange.grid安排的。我得到的最接近的是：
，但是使用这里的想法，我只能在底部或顶部得到常见的图例。这是我的尝试：
library(ggplot2)
p1<-ggplot(data=diamonds)+geom_bar(aes(x=cut,fill=color))+scale_x_discrete("")+ylab("")+ggtitle("Title 1")
p2<-ggplot(data=diamonds)+geom_bar(aes(x=cut,fill=col
浏览 2提问于2017-05-30得票数 0
1回答
在ggplot中对地块的危险
、、、、
问题
你如何组合不同的情节(ggplot2)，具有不同的y轴和不同的绘图高度，但保持对齐？
细节
当用不同的y轴单元与grid.arrange (method1)结合时，它们不对齐.一种方法是使用gtable (method2)，但我不能调整地块的相对高度。
示例
require(ggplot2)
#Make two plots, with different y axis
x = c(1, 5)
y= c(.1, .4)
data1<-data.frame(x,y)
top<-
ggplot(data1, aes(x=x, y=y))+
geom
浏览 3提问于2014-06-20得票数 17
回答已采纳
我试图在相同的ggplot2图中添加两个图例，而且我在对齐方面做得很糟糕。我有代表一些数据的点，然后拟合回归线，所以我希望将颜色的图例分开，这样就可以清楚地知道哪些是点，哪些是适合的线。到目前为止，我最好的尝试是：
library(ggplot2)
library(gridExtra)
StudyResults <- data.frame(TreatmentArm = rep(c("A", "B"), each = 10),
SubjectID = rep(1:10, each = 2),
浏览 1提问于2018-05-05得票数 2
回答已采纳
1回答
大家好，R和ggplot2社区！
我想水平对齐两个用ggplot2制作的图。一个人有两个方面(和方面条！)和传说，但第二个没有。他们共享相同的Y轴，我想要对齐。我可以使用grobs的宽度垂直对齐绘图，但我不能使用高度。
这里有一段代码来支持我的问题。
library( ggplot2 )
library( gridExtra )
plot_1 <- ggplot() +
geom_point(
data = iris,
aes(
x = Petal.Length,
y = Petal.Width,
colour = Sepal.L
浏览 1提问于2015-03-23得票数 3
我有一个表格，我想在上面打印一个标题：
t1 <- tableGrob(top_10_events_by_casualties, cols=c("EVTYPE", "casualties"), rows=seq(1,10))
grid.draw(t1)
这里也问了一个类似的问题：
我尝试过类似的方法，但不起作用：
> title <- textGrob("Title",gp=gpar(fontsize=50))
> table <- gtable_add_rows(t1,
+
浏览 1提问于2015-07-27得票数 9
2回答
我试着在一页中排列4个地块，将图例放在底部的中心。
我使用它从其中一个情节中获取图例(因为它们对于四个情节是相同的)。
get_legend<-function(myggplot){
tmp <- ggplot_gtable(ggplot_build(myggplot))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
return(legend)
}
然后，我可以从任
浏览 0提问于2017-04-05得票数 5
我正在尝试使用ggplot2绘制多个绘图，并使用grid.arrange()对它们进行排列。由于我设法找到了描述我所遇到的确切问题的人，我引用了来自的问题描述
当我在grid.arrange()之后使用ggsave()时，即
grid.arrange(sgcir1，sgcir2，sgcir3，ncol=2，nrow=2) ggsave("sgcirNIR.jpg")
我没有保存网格图，而是保存了最后一个单独的ggplot。有没有什么方法可以使用ggsave()或类似的东西来保存grid.arrange()显示的绘图？而不是使用旧的方法
jpeg("sgcirNIR
浏览 509提问于2013-06-12得票数 156
回答已采纳
我正在尝试自动化一系列的分析，这些分析的目的是保存一些地块供以后检查。其中一个地块将附有一张价值表。我希望它们在相同的pdf中，这样用户就不必在文件之间跳转。
我已经检查了许多关于将数据帧输出到pdf的问题，以下是现有答案在我的例子中不能令人满意的两个原因：
不熟悉针织品/汗衫
批量生成数字意味着我不能通过RStudio查看器手动完成
基于grid.table的解决方案不会生成整个表。
这就引出了我的问题，比如说我有一张比例为48x5的桌子。如果我尝试用grid.table(geno)绘制它，它会产生一个裁剪表，在中间显示大约20-30行。如果我使用grid.table(g
浏览 0提问于2016-08-02得票数 2
我正在绘制一个，但是我在R中另外使用了facet_grid，因为我有一些具有共同特性的对象。但是当我使用facet_grid时，图会被扭曲，如下图所示。我怎么能把这个农场化呢？
请注意，它没有正确地对齐，y轴的比例被置乱，等等。在我尝试的调整中，我意识到有可能大大改进这个图。我根据上面的情节创建了一个图像，一些关于我如何尝试的其他尝试，以及对绘画的一些调整，以展示我想要做的事情。
这是我的密码：
library(ggplot2)
library(grid)
library(gridExtra)
g1 <- ggplot(data_cet,
aes
浏览 2提问于2018-08-22得票数 0
回答已采纳
2回答
我问了一个关于网格安排的问题，得到了很好的回答。我现在想缩小情节之间的空间，但会有错误。首先，我介绍了工作的代码，然后介绍了错误代码(我尝试过的代码)。我实际上找不到grid.arrange，总是假设它来自gridExtra，但我可能是不正确的。
第二部分：
如何通过网格排列减少地块之间的空间？
我在哪里可以找到关于grid.arrange的文档(我知道您维护gridExtra，所以如果我没有按预期的方式使用它，请纠正我对这个包的想法或使用)。
好代码坏空间
require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(
浏览 14提问于2012-11-08得票数 11
回答已采纳
2回答
我使用对齐一个页面上的多个绘图。我想知道是否可以用标题a)和c)来对齐两列，而不是用绘图区域对齐？谢谢!
代码：
library(egg)
library(grid)
p1 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
geom_point() + ggtitle("a)")
p1
p2 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
geom_point() + facet_wrap(~ cyl, ncol = 2, sca
浏览 1提问于2017-12-06得票数 5
回答已采纳
我有以下R-脚本：
library(ggplot2)
library(gridExtra)
Sys.setenv(LANG ="en")
c1 <- ggplot(mtcars, aes(factor(cyl))) + geom_bar()
c2 <- ggplot(mtcars, aes(factor(cyl))) + geom_bar() + coord_flip()
grid.arrange(c1, c2, ncols=1)
我在grid.arrange中得到了以下错误：
arrangeGrob中的错误(.，a
浏览 3提问于2014-04-24得票数 8
回答已采纳
希望这不是个话题。
我尝试使用其他数据自定义来自优秀答案的代码：
df <- structure(list(year = 1998:2007, work = c(0L, 4L, 0L, 1L, 0L, 0L, 1L, 2L, 2L, 3L), confid = c(0L, 0L, 0L, 0L, 0L, 2L, 0L, 0L, 3L, 0L), jrs = c(0L, 1L, 0L, 0L, 1L, 9L, 6L, 4L, 21L, 2L)), .Names = c("year", "work", "confid", "jrs
浏览 5提问于2017-06-05得票数 2
回答已采纳
1回答
我正在使用ggplot2中的循环创建一个绘图列表(不带图例)。然后，我单独创建了一个图例，并尝试使用grid.arrange和grobs函数打印组合的绘图。它会创建组合的绘图，但不包含图例。有人能帮我解决这个问题吗？
我在这里附上了我的代码：
df1<-data.frame(x=1:10,y1=rnorm(10),y2=rnorm(10),y3=rnorm(10),y4=rnorm(10),y5=rnorm(10))
df2 <- melt(df1,id.vars="x")
plot.list = list()
for (i in 1:3){
p <-
浏览 3提问于2017-07-19得票数 1
回答已采纳
1回答
(我想要一个包含一些数据、页眉和脚注的gtable对象。这三个元素中的每一个都是gtable，它们首先使用gtable_add_rows组合成一个gtable-object，然后使用gtable_add_grob将这三个gtable排列成一个grob。不幸的是，标题/脚注太长了。太短)
如何设置标题/脚注的宽度？
如何将标题/脚注的文本分配给左对齐？
我的代码示例：
require(gtable)
require(grid)
require(gridExtra)
tbl<-matrix(paste(letters[1:6]),nrow=2)
colnames(tbl)<-c(pa
浏览 5提问于2018-04-10得票数 0
我目前正在尝试创建一个在图的前7/8中有一个系数条形图的地块，在下面的1/8创建一个带有统计信息的表。在创建这个图之后，我将它保存到一个pdf文件中，这是我一直在用ggsave()做的，并且希望保留这个功能。这个程序最初是为条形图而构建的，我正在添加统计表。
我不知道该如何做到这一点，或者我甚至认为这是正确的方式。
一开始，我试图：
tablestats <- grid.table(stats, rows = NULL)
grid.arrange(plt, tablestats, nrow = 2)
但我不能有一个非格罗布在上面的功能。
然后我试着：
layout(matri
浏览 0提问于2019-05-10得票数 0
回答已采纳
我想对齐一个3y轴图和一个2y轴图，这样x轴的长度将是相同的。
但是，由于第一幅图的第三轴，x轴的长度在不同的图之间是不同的。
library(ggplot2)
library(grid)
library(patchwork)
我的数据:
data_1 <- data.frame(x = c(1,2,3,4),
y1 = c(5,8,1,6),
y2 = c(90,40,70,50),
y3 = c(600,800,900,1000))
data_2 <- data.frame(x = c(
浏览 0提问于2019-01-30得票数 1
回答已采纳
我想用标题与grid.arrange对齐，这样两个情节的y轴就匹配了。如果其中一个情节有一个标题，其中包含一个带有装饰符的字符(g，j，y，.)而另一个则不是情节不对。
是否有选项可以将元素的大小(例如，在主题中的element_text中)修正为线型高度，包括标记符？
另一种选择是使用ggplotGrob直接修改网格-grobs，但这似乎过于复杂了。
require(ggplot2)
require(gridExtra)
test <- data.frame(x=1:3, y=1:3)
plot1 <- ggplot(test, aes(x=x, y=y)) +
geom
浏览 0提问于2018-03-30得票数 0
回答已采纳
我有一些要绘制的数据。我希望这三个地块水平排列，并相互对齐。但是，因为有些地块的轴会位于绘图区的顶部，所以我无法使y轴对齐。
density <- rnorm(50, 0.8, 0.3)
carbonate <- rnorm(50, 75, 18)
org_per <- rnorm(50, 0.9, 1.1)
Depth_decomp <- seq(1,151,3)
Age <- seq(0,5600, 112)
df <- data.frame(cbind(density, carbonate, org_per, Depth_comp, Age))
我已经
浏览 5提问于2018-09-07得票数 1
回答已采纳
1回答
我有3个ggplots ( g1，g2，g3)，并希望显示它们的排列，使g1更大，在其他2之间。
g1 =ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = 1))+geom_point()
g2 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = 1))+geom_point()
g3 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = 1))+geom_point()
library(grid)
lay <-
浏览 0提问于2018-03-22得票数 0
回答已采纳
1回答
我正在生成一个RMarkdown文档，其中每个块都生成一个图。 对于这些图中的每一个，我想应用一个特殊的格式化函数来调整标题的显示方式。 有没有一种方法可以告诉knitr/rmarkdown将这个特殊函数应用于每个块的绘图？例如，也许有一个像{r, fig.function = adjust_title_position}这样的块选项 这样做的动机是，我不想为每个绘图(例如adjust_title_position(plot_42))单独重新键入函数调用，同时，我也不想使用像lapply(my_plots, adjust_title_position)这样的东西，因为它需要在一个地方定义所有
浏览 9提问于2019-02-06得票数 3
回答已采纳
1回答
我想把一个boxplot放在直方图下面。我已经想出了如何做到这一点，但是boxplot和直方图大小相等，我想精简boxplot。当我缩小宽度时，边缘的空格保持不变。不过，我想缩小整件事的宽度。
，这是我到目前为止拥有的：
library(ggplot2)
h = ggplot(mtcars, aes(x=hp)) +
geom_histogram(aes(y = ..density..)) +
scale_x_continuous(breaks=c(100, 200, 300), limits=c(0,400)) +
geom_density(, linetype="dot
浏览 1提问于2014-03-31得票数 2
回答已采纳
从中，我学会了如何用对齐的绘图区排列两个绘图。
我的问题是:我如何才能获得排列好的地块的对象？
示例：
require(ggplot2)
require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip()
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip()
gA <- ggplot_gtable(ggplot_build(A))
gB <- ggplot_gtable(ggplot_build(B))
maxWidt
浏览 0提问于2013-04-11得票数 4
回答已采纳
2回答
如何在x轴上对齐两个时间序列图？
、、、、
我正在努力解决以下问题。考虑这个(简单的)例子
library(grid)
library(gridExtra)
library(gtable)
library(dplyr)
library(lubridate)
options("digits.secs"=3)
time1 = c('2013-01-03 22:04:21.549', '2013-01-03 22:04:22.549', '2013-01-03 22:04:23.559', '2013-01-03 22:04:24.559' )
value1 =
浏览 4提问于2017-01-13得票数 1
回答已采纳
2回答
是否有一种优雅的方法可以使tableGrob行与轴断裂对齐？
我想在R中并列一个tableGrob和ggplot图表(我需要复制一些在以前版本的公共报告中使用的SAS输出)。就像这个最小的可重复的例子：
把我带到了相当远的地方-- tableGrob和图表的主体在同一行；然而，它需要大量的手工操作才能使tableGrob中的行与轴标签对齐。
我还找到了。由于我正在编写一份公开报告，所以我不希望使用在CRAN上的包中不容易获得的代码。尽管如此，实验版的tableGrob似乎接受高度作为一个论点。如果这段代码能做到这一点，并且我选择使用这个实验版本，我将如何计算适当的行高？
如果没有一种
浏览 6提问于2014-01-27得票数 5
回答已采纳
我想创建一个图形，它有3个图(p1，p2，p3)，标有"(A)"，"(B)"，"(C)“，还有一个没有标签的图例。但我的试验没有成功。你介意帮我一下吗？耽误您时间，实在对不起!
多亏了get_legend函数，我从我的一个图中提取了图例
get_legend<-function(myggplot){
tmp <- ggplot_gtable(ggplot_build(myggplot))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box
浏览 0提问于2015-11-25得票数 2
首先，我要感谢Baptiste爵士帮助我改进了我的R脚本，在使用gtable/textGrob的组合图的左下角添加了一个标题，如下所示：
library(grid)
library(gridExtra)
library(ggplot2)
p1 <- p2 <- ggplot()
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)
g <- rbind(g1, g2)
caption <- textGrob("Figure 1. This is a caption", hjust=0, x=0)
g <
浏览 2提问于2016-03-11得票数 3
1回答
一维密度图对齐的密度热图
、、、、
我正在使用中概述的方法，以便在与一维x和y密度图配对的地图上创建密度热图。我能够生成以下图像：
然而，我有困难在最高密度图中的阴影区域与地图上的热图对齐。我发现，这与我在代码中应用mercator投影来生成热图有关，而顶部和右边的密度图只是使用数据中的坐标。
有没有办法使热图中的投影坐标与一维密度图中的非投影坐标对齐？
下面是我的代码的相关部分(我使用了网格/gtable包来组合不同的图形)。
编辑:数据由三列组成: UniqueID、Lon和Lat。在这种情况下，所有的Lon/Lat对都在纽约市/周围，但是为了排除故障，只要可以投影它们，精确的对就不重要了。
library(gtable)
浏览 0提问于2017-01-14得票数 0
回答已采纳
我已经使用了指示的方法来对齐共享相同横坐标的图。
但是，当我的一些图形有图例而另一些没有图例时，我不能让它工作。
下面是一个示例：
library(ggplot2)
library(reshape2)
library(gridExtra)
x = seq(0, 10, length.out = 200)
y1 = sin(x)
y2 = cos(x)
y3 = sin(x) * cos(x)
df1 <- data.frame(x, y1, y2)
df1 <- melt(df1, id.vars = "x")
g1 <- ggplot(df1, aes
浏览 159提问于2017-01-10得票数 26
回答已采纳
2回答
我试图对齐左边y轴上的三个图(y轴上有不同的尺度)。换句话说，我希望红轴对齐：
但是，第一个图的y轴与左下角图的y轴不对齐。
码
# Libraries
library(tidyverse)
library(cowplot)
df1 <- data.frame(x = seq(0, 100, 1),
y = seq(100, 0, -1))
df2 <- data.frame(x = seq(0, 10, 0.1),
y = seq(1, 10^9, length.out = 101 ) )
浏览 2提问于2020-03-04得票数 2
回答已采纳
1回答
在用R绘制和对齐图时，我遇到了一个对齐图轴的问题，我使用gtable包解决了这个问题。我使用了以下解决方案来完美地对齐我的图形。
gMain=ggplotGrob(main_graph)
gExpr=ggplotGrob(expr_graph)
grid.draw(rbind(gMain, gExpr, size="first"))
然而，对于rbind，这两个图具有相同的高度。，我希望第一张图占用大约80%的空间，而第二张图占20% (就图形高度而言)。这有可能用rbind吗？
我使用rbind只是因为它是一个简单而优雅的解决方案来对齐我的轴，如果我需要通过其他方法来解决对齐
浏览 0提问于2015-02-02得票数 2
1回答
我想在剃须刀视图中创建一张桌子。
<div class="row" style="margin-left:80%">
@if (ViewBag.IsGlobal == 1)
{
<script>
$(document).ready(function () {
$("#btnViewLocal").prop("disabled",true);
@foreach (var item in M
浏览 1提问于2017-04-23得票数 0
回答已采纳
1回答
我正在试图绘制一个边界，围绕着两个已经与plot_grid从牛仔包中对齐的图形。请参阅以下示例(从修改)：
require(gtable)
require(cowplot)
# top plot
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_line(colour = 'blue') +
background_grid(minor = 'none')
g1 <- switch_axis_position(p1, 'xy') # switch both axes
g1 <- gtab
浏览 0提问于2016-03-23得票数 7
回答已采纳
我试图对齐或合并地图和方格图，两者都以纬度为y轴。我已经找到了很多方法来调整图形，但似乎有一张地图会使事情变得复杂。我想让这两个情节无缝地对齐，与左边的地图和右边的盒子图对齐。
下面是这两幅图的示例代码：
library(ggplot2)
library(maps)
library(gridExtra)
##Plot base map
s_map <- map_data('state',region=c('south carolina','georgia','florida'))
p <- ggplot() + co
浏览 1提问于2016-02-24得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
