grid.arrange的任意数量的绘图
grid.arrange是R语言中的一个函数，用于将多个绘图对象按照指定的排列方式组合在一起展示。它可以接受任意数量的绘图对象作为参数，并且可以通过指定参数来控制绘图的排列方式。
grid.arrange函数的语法如下：
grid.arrange(..., nrow = NULL, ncol = NULL, top = NULL, bottom = NULL, left = NULL, right = NULL)参数说明：
- ...：表示要组合在一起的绘图对象，可以是ggplot2绘图对象、base绘图对象或者其他绘图对象。
- nrow：表示绘图对象在组合图中的行数。
- ncol：表示绘图对象在组合图中的列数。
- top、bottom、left、right：表示组合图的边距。
grid.arrange函数可以根据指定的行数和列数将绘图对象排列在一个矩阵中，也可以根据需要自动调整行数和列数。同时，可以通过调整边距参数来控制组合图的布局。
grid.arrange函数的优势在于可以方便地将多个绘图对象组合在一起展示，使得比较和分析多个图形变得更加直观和便捷。
应用场景：
- 在数据分析和可视化领域，当需要将多个相关的图形进行对比或展示时，可以使用grid.arrange函数将它们组合在一起展示。
- 在报告和演示中，可以使用grid.arrange函数将多个图形按照需要的排列方式组合在一起展示，以提升展示效果和信息传达的清晰度。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云服务器（CVM）：提供弹性计算能力，满足各类业务需求。产品介绍链接
- 腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务。产品介绍链接
- 腾讯云人工智能（AI）：提供丰富的人工智能服务和解决方案，助力企业智能化转型。产品介绍链接
- 腾讯云物联网（IoT）：提供全面的物联网解决方案，帮助企业实现设备互联和数据管理。产品介绍链接
- 腾讯云区块链（BCS）：提供安全、高效的区块链服务，支持企业级应用场景。产品介绍链接
- 腾讯云云原生应用平台（TKE）：提供全面的容器化解决方案，支持应用的快速部署和管理。产品介绍链接
请注意，以上链接仅为示例，具体的产品选择应根据实际需求和情况进行评估和选择。
相关·内容
1回答
我编写了一个for循环来生成一个图表矩阵，但是我编写了如下代码
par(mfrow = c(4, 4))
for (i in c(6:17)) {
print(ggpubr::ggboxplot(logdat,
x = "Diagnostic",
y = names(logdat)[i] ,
color = "Diagnostic",
add
浏览 1提问于2018-10-02得票数 0
回答已采纳
1回答
我正在尝试使用R中的ggplot2一次显示多个图。
数据中有200多个城市，但我只创建了一个随机样本数据，如下所示：
#sample data
df <- data.frame(
city = c('paris', 'tokyo', 'seoul', 'shanghai', 'berlin', 'rome')
, week = c(41,42)
, type = c('A','B','C')
, count =
浏览 2提问于2016-11-02得票数 0
1回答
我使用的是R编程语言。我在ggplot2中制作了几个绘图，现在我尝试将它们排列在同一个页面上： library(dplyr)
library(ggplot2)
date= seq(as.Date("2014/1/1"), as.Date("2016/1/1"),by="day")
var <- rnorm(731,10,10)
group <- sample( LETTERS[1:4], 731, replace=TRUE, prob=c(0.25, 0.22, 0.25, 0.25) )
data = data.fram
浏览 13提问于2021-01-13得票数 0
回答已采纳
1回答
锁定部分网格的纵横比
、、、
我正在尝试写一个函数，我们的公司徽标在导出时自动添加到每个图形中，作为函数的一部分，在标题和副标题旁边。每个输出的大小将取决于当时的需求，因此设置一个大小并不是特别有帮助。
为了做到这一点，我已经生成了一系列网格，将所有内容放在一起，如下所示(使用虹膜数据集)。
library(datasets)
library(tidyverse)
library(gridExtra)
library(grid)
library(png)
m <- readPNG("Rlogo.png") # download from: https://www.r-project.org/logo
浏览 9提问于2018-02-14得票数 3
回答已采纳
1回答
从列表R中提取图
、、、
我做了一个函数：
mtcars_plot_fun <- function(cyl_in, gear_in) {
car_data <- mtcars %>%
filter(cyl == cyl_in,
gear == gear_in)
p <- car_data %>% ggplot(aes(x = disp, y = qsec, fill = gear)) +
geom_point()
print(p)
}
然后是生成绘图并将其存储在列表对象gg_obj中的循环
cyls <- c(4, 6)
gear
浏览 4提问于2021-05-12得票数 0
1回答
我有许多序列标识，我用ggplot2和ggseqlogo绘制。垂直轴保持不变，但每个地块的水平轴是不同的。
我不知道如何为每个字母创建相同宽度的顺序标识。我尝试使用stack_width手动调整字母宽度，以适应不同长度的顺序。不幸的是，这导致了个别信件之间的差距。
如何在不引入字母间距的情况下，为不同序列长度的图幅实现相同的字母大小？
下面是我所面临的问题的一个例子：
# "R version 3.3.1 (2016-06-21)"
# "x86_64-w64-mingw32"
# library(ggplot2)
# library(ggseqlogo)
A
浏览 4提问于2017-03-24得票数 1
回答已采纳
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
回答已采纳
我正在尝试整理来自qicharts的多个图表。通过一些工作，我得到了它，所以grid.arrange可以做任何事情，但它只显示最后一项，而不是两项都显示。
library(qicharts)
library(grid)
library(gridExtra)
y <- rnorm(24, 12, 3)
a <- qic(y,chart="i")
b <- qic(y,chart="mr")
grid.arrange(grob(plot(a)),grob(plot(b)))
浏览 9提问于2016-09-19得票数 1
回答已采纳
我已经生成了一个包含25个ggplot元素的列表，我想将它们全部绘制在一个页面上。由于我找不到一种使用par()的方法来绘制图，所以我使用了gridextra包，特别是函数grid.arrange()。 对于base-R的plots....My尝试，它不如par()方便，我想知道是否有更有效的方法来编写它？ 提前感谢！ plot_collection <- grid.arrange(DBScan_plots[[1]], DBScan_plots[[2]], DBScan_plots[[3]], DBScan_plots[[4]], DBScan_plots[[5]],
浏览 24提问于2020-09-11得票数 0
回答已采纳
我在设计绘图方面是个新手，我尝试过用以下工具构建barplot：
bar <- ggplot(month1, aes(x=variable, y=value, fill=merge1)) + geom_bar(stat="identity")
bar_f <- bar + ggtitle("k = 0") + theme(axis.text=element_text(size=12, color="gray0"),
axis.title=element_blank())
+ scale_y_continuous(breaks=
浏览 1提问于2018-04-12得票数 2
关于如何使用grid.arrange增加两个地块之间的空间，我似乎找不到解决方案。我找不到任何关于如何进行的线索。我不想改变地块的大小或任何类似的东西。
grid.arrange(plot1, plot2, ncol=2)
(下面的内容是后来添加的)：
这是我拥有的代码：
x11()
cs <- grid.arrange(arrangeGrob(b, a, ncol=2, top = textGrob(
"B", vjust = 0.5, hjust = 19.5, gp = gpar(
f
浏览 0提问于2016-09-15得票数 15
回答已采纳
在我的shinydashboard中，我希望我的模式窗口显示49个temp1，它们都存储在list list中。我可以让模式窗口显示任何绘图，如下所示：
observeEvent(input$modalTrigger1,
{
temp1 <- plotList(data)
showModal(modalDialog(plotOutput("trigger1plot1")))
output$trigger1plot1 <- renderPlot(temp1[[1]])
}
)
但我想创建一个for循环，当按下modalTrig
浏览 2提问于2017-06-12得票数 0
2回答
我正在尝试将我的两个图形绘制在R的同一页上。两个图是:散点图和蝙蝠图: par(mfrow=c(2,1)) p，其中p是条形图，s是散点图。当我使用命令时:首先显示p图，最后只显示s-散点图。我知道这两个情节都在那里，但我无法修复它！我真的需要帮助。
浏览 1提问于2018-02-04得票数 1
3回答
我有几个主题，我需要为其生成一个图，因为我有许多主题，我希望在一页上有几个图，而不是一个主题的图形。以下是我到目前为止所做的工作：
读取包含主题名称的txt文件
subjs <- scan ("ListSubjs.txt", what = "")
创建保存地块对象的列表
pltList <- list()
for(s in 1:length(subjs))
{
setwd(file.path("C:/Users/", subjs[[s]])) #load subj directory
ifile=paste("C
浏览 1提问于2015-02-17得票数 5
1回答
我有几个情节，都是从不同数字的侧面构建出来的，但都有固定的高宽比(见图)。我如何将它们合并在一个图中，其中各个方面具有相同的大小，同时最小化未使用的空间(这里是绿色的)。
我试着用cowplot::plot_grid和rel_hight、rel_width和填充图来做。什么样的作品，但是乏味的，并取决于最终的图像大小(ggsave宽度)。感觉必须有一个更有力和可靠的方法来实现这一点吗？
#Combing the Plots
plot_grid(
plot_grid(p1,p2, nrow = 2, rel_widths = c(1,1), labels = c(&
浏览 7提问于2022-05-19得票数 0
我有一个两行的图形，它是由第一行的一个图和第二行的一个情节列表组成的。
有了knitr我就做了
\documentclass{article}
\begin{document}
<<plots, fig.width='\\textwidth', echo = FALSE, fig.height=5, fig.width = 10, warning = FALSE>>=
require(ggplot2)
plot <- ggplot() + geom_point(data=cars, aes(speed, dist)) + labs(x=NU
浏览 2提问于2016-03-13得票数 3
回答已采纳
我有这样的代码：
plotfn= function(u) {
flt = filter(d, utensil ==u)
ggplot(flt,aes(x=p)) + geom_histogram(binwidth = 0.5, position= position_dodge(0.5), color="black",fill="cadetblue4")+ ggtitle("Histogram of P")+labs( x="P", y="Number of Observations")
}
lapply(u
浏览 3提问于2017-04-12得票数 7
回答已采纳
1回答
我在文档中找不到任何东西。代码
library("Vennerable")
data(StemCell)
Vstem <- Venn(StemCell)
Vstem3 <- Vstem[, c("OCT4", "SOX2", "NANOG")]
tl <- "masi"
plot(Vstem3, doWeights = TRUE, type = "circles")
尝试失败
plot(..., main = tl)
plot(..., title = tl)
plot
浏览 7提问于2016-11-14得票数 8
回答已采纳
我正在尝试使用ggplot2和annotation_custom嵌入一个图(这个图实际上是我用来替换图例的一个地图)。然而，我也使用facet_wrap来生成多个面板，但是当与annotation_custom一起使用时，这会在每个方面中再现情节。是否有一种简单的方法只插入一次地块，最好是在绘图区域之外？
下面是一个简单的例子：
#Generate fake data
set.seed(9)
df=data.frame(x=rnorm(100),y=rnorm(100),facets=rep(letters[1:2]),
colors=rep(c("red&
浏览 9提问于2013-10-30得票数 0
回答已采纳
我使用来自的函数将表单graph<-ggplot(...)的众多图形与行叠加起来
png(filename = "qwerty.png", width = 1024, height = 1024, units = "px",
pointsize = 11, bg = "white", res = 150)
multiplot(graph1,graph2,...., layout=matrix(c(1,2,3,4,5,6,7,8), nrow=8,
byrow=TRUE))
dev.off()
我想在第一张图
浏览 0提问于2015-03-11得票数 1
回答已采纳
我遇到了一个问题，当保存一个to图为pdf。我想把两个ggplot2图像并排绘制成一个使用pdf()的pdf。然而，在pdf中没有出现任何内容。有没有办法将grid.arrange()对象与pdf()一起使用？
再现问题的示例代码：
library(ggplot2)
library(gridExtra)
p1<-ggplot(mtcars, aes(mpg))+stat_ecdf()
p2<-ggplot(mtcars, aes(cyl))+stat_ecdf()
p3<-grid.arrange(p1,p2, ncol=2)
浏览 5提问于2022-07-13得票数 0
2回答
我有四幅图，我想用同样的数字来绘制：
library(gridExtra)
grid.arrange(plot1,plot2,plot3,plot4)
默认情况下，grid.arrange将在顶部绘制前两个图，在底部绘制另外两个。例如，有没有办法把所有四个情节都画在一起？
浏览 7提问于2014-02-22得票数 2
回答已采纳
我在使用rasterVis和gridExtra在R中绘制地图时遇到了困难。这是我的代码的样子(对不起，它肯定不是很优雅)：
require(rasterVis)
require(gridExtra)
p1 <- levelplot(avit_bac12, margin=FALSE, xlab=NULL, ylab=NULL, par.settings = RdBuTheme, main=NULL, scales=list(draw=FALSE))
p2 <- levelplot(avit_bac17, margin=FALSE, xlab=NULL, ylab=NULL, p
浏览 18提问于2019-08-22得票数 1
回答已采纳
我正在使用geom_tile()在ggplot中绘制几个矩阵。我使用颜色来表示值变量(即填充)。所有数据都在一个数据帧中。我正在尝试获取填充中的颜色范围，以便为绘图的每个元素/矩阵进行唯一缩放。使用当前的facet_wrap()，它会在所有绘图中找到最高值，并将其指定为“高”值。同样，它会找到“低”值的最低值。
我尝试过在facet_wrap()中使用scales='free'，但这不符合逻辑(也不起作用)。本质上，我希望它根据每个组中的最高和最低值为填充分配最高和最低值。我不想单独制作每一个情节，因为我有几十个情节。
以下是一些示例数据：
库(Ggplot2) set.see
浏览 0提问于2015-11-25得票数 2
如何增加具有一个基于系数的轴和一个数值轴的图表的灰色绘图区域，以便geom_text()绘图中的文本标签显示在视图中，并且不会延伸到绘图区域之外？
特别是，我想扩展灰色区域，以便在绘图区域中提供一个允许文本标签完整显示的空白区域。
还是有更好的方法？
浏览 1提问于2012-09-18得票数 15
我使用Rmarkdwon并排添加了这两个(ggplot)图，但由于我不想复制轴标签，因此右边的条形图区域变得比左边的更宽。你知道如何在不改变高度的情况下手动调整宽度吗(编织成pdf，见下面的例子)？ ```{r, F-ES3-reg-SS, fig.cap ="2 figures.", fig.subcap = c("F.a", "F. b"), out.width = '50%', message=FALSE，echo=FALSE，results='hide'} F_reg_ES3_PS F_reg_ES3
浏览 21提问于2019-10-01得票数 0
回答已采纳
2回答
在ggplot2中，如何将情节标题放在情节的底部。
qplot(rnorm(100)) + ggtitle("My Title")
将标题放在绘图的中间和顶部，而我希望它位于图的中间和底部的。
浏览 5提问于2015-05-04得票数 13
回答已采纳
我正在尝试创建一个在函数体中包含ggplot的函数，并在每次调用中生成两个或更多绘图。 我已经采取了最初测试我的函数的方法，只生成了一个绘图，并且它已经工作了。我已经在函数外部调用了我的绘图，以确保我对它们进行了正确的编码，并且它们在单个基础上工作。以下代码仅生成y轴缩放为1的单个条形图，没有错误： library(tidyverse)
cat_plots <- function(dat, var1, var2){
nums <- ggplot(dat) + geom_bar(aes_string(var1, fill = var2))
props <- g
浏览 13提问于2019-06-07得票数 0
回答已采纳
2回答
并排两列的方框图
、、
我有以下格式的数据集
value1 value2 group
10 20 A
20 30 A
67 45 B
98 76 C
102 11 A
11 22 B
10 10 B
19 20 C
我试着为三组(A，B和C)制作盒子样地，而第一列和第一列的方框应该并排。我可以做两个像下面这样的单独的情节，但无法搞清楚如何将它并排放在一起。
p1 <- ggplot(x, aes(x=group, y=value1)) + geom_boxplot()
p2 <- ggplot(x, aes(x=group, y=value)) + geom_boxplot()
我很感谢你的帮助。我是R和
浏览 3提问于2021-05-28得票数 0
回答已采纳
我有以下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
回答已采纳
我的问题解决了这个问题的第二个解决方案：locate title in top left of grid.arrange。 我想把标题放在marrangeGrob的左上角，但也要把它垂直对齐到绘图的左边。 有没有一种自动完成此操作的方法:不通过尝试并错误地为textGrob的x参数找到正确的值？
浏览 7提问于2020-04-04得票数 1
回答已采纳
我尝试使用for循环来筛选(="TAB_tmp2")，并在列表(="ListeGRAPH")中添加新的图。我认为问题来自过滤器数据表(="TAB_tmp2")的差异。
我在网上读过几个关于这方面的话题，但我找不到一个在这种情况下可行的解决方案。
我的代码：
rm(list=ls()) # delete objects
#====================================
# Create data for the example
#====================================
TAB =
浏览 1提问于2018-12-05得票数 0
回答已采纳
1回答
尝试将多个绘图绘制为PDF时出现错误。我已经使用中的代码创建了我的循环，但是我不确定是什么导致了这个错误。
PDF编译完成，但它只是一张1页的空白。我已经重新创建了下面的问题，它似乎是一个数据维度问题，但我不清楚它应该如何解决。可以从绘图查看器手动将绘图保存到PDF，但它似乎在循环中失败了。我的期望是得到一个3页长，每页一个图表的PDF。
library(ggplot2)
library(naniar)
library(visdat)
library(gridExtra)
p = list()
head(iris)
p[[1]] = gg_miss_var(iris)
p[[2]] =
浏览 8提问于2020-03-11得票数 1
回答已采纳
1回答
我正在尝试给我的维恩图添加一个主标题和一个副标题，这个图是我用R创建的，我已经阅读了R‘VennDiagram’包的文档，但没有成功。我还尝试将gird.arrange()与textGrob和结果代码中的图形一起使用，但收到了一个错误，指出所有输入都必须是grobs。
require(VennDiagram)
draw.triple.venn(
area1 = 396,
area2 = 273,
area3 = 147,
n12 = 266,
n23 = 86,
n13 = 143,
n123 = 83,
category = c("Study"
浏览 5提问于2014-01-18得票数 13
回答已采纳
我和ggplot2玩了一堆，发现了
我想知道是否有任何方法来绘制使用非笛卡尔坐标，例如，如果地图坐标是用于定位表。我有一些地图，并认为，如果他们可以有相应的数据在一个表格中，以显示更多的细节，这将是很酷的。
如果有人知道annotation_custom关于非笛卡尔坐标的工作，我们将不胜感激。
编辑:这是一张我的地图的图片，我只是在想，是否有另一种方法来绘制这个地图左边的表格。
编辑:下面是我想要做的事情
编辑:这是绘图的基本代码结构
library(ggplot2)
library(ggmap)
plotdata <- read.csv("WellSummary_
浏览 3提问于2014-01-30得票数 3
回答已采纳
我刚刚在我的Mac上更新了R、R Studio和一堆包，包括ggplot2和gridExtras。现在gridExtras在基本绘图中失败，并显示以下错误：
“gList”中仅允许“grobs”
下面是一些应该可以工作但却不能工作的代码：
library(ggplot2)
p1 = qplot(1:10,rnorm(10))
p2 = qplot(1:10,rnorm(10))
library(gridExtra)
grid.arrange(p1, p2, ncol=2, main = "Main title")
这将转储以下错误：
Error in gList(list(gr
浏览 4提问于2016-01-17得票数 43
回答已采纳
我正在研究一个具有两个连续预测因子的logistic回归模型。我想使用ggplot2和利用facet_wrap来呈现结果，以显示使用多个级别的分类预测器的回归线。我知道我可以使用stat_smooth来拟合曲线，但我的问题是，我的预测值之间的关系根据组的不同而不同，因此我既有显着的线性项和二次项，也有不显着的关系。我编写了一个函数，允许我根据时间将正确的曲线拟合到我的数据中，而不是拟合到每个方面。但是，我如何使用facet_wrap应用这一点，并将不同的回归线(线性或二次)添加到每个方面？
举个例子：
data <-data.frame (x=c(21.0,21.0,22.8,21.4,
浏览 2提问于2014-09-30得票数 0
我希望使用ggplot2实现以下绘图配置，其中红色区域是绘图的“主要”图形，蓝色区域是一个完全不同的图形，我希望在显示的比例中包含该图形。这两个图形都是正方形的。 ? 我知道这在基数r中是可能的，但不知道这在ggplot中是否可行。这有可能吗？如果是这样的话，我如何在一个图中得到两个这样配置的空白图呢？
浏览 11提问于2020-08-22得票数 0
回答已采纳
在base R中，我有一些代码可以在图表下面写一个统计表。我想用一个'ggplot‘图表和一个'gt’表做一个类似的过程。做这件事最好的方法是什么？我下面使用gridExtra的尝试失败了。 # load requried packages
require(tidyverse)
require(gt)
require(gridExtra)
# make a ggplot chart
GGP <- ggplot(dat = iris, aes( x= Sepal.Width, y = Sepal.Length, colour = Species)) + geom_p
浏览 33提问于2021-07-25得票数 3
回答已采纳
我正在尝试使用textplot_xray合并两个.图，但没有成功。
library("quanteda.textplots")
init <- par(no.readonly=TRUE)
par(mfrow=c(2,1))
textplot_xray(kwic(qcorp_tokens, pattern= "like"))
textplot_xray(kwic(qcorp_tokens, pattern= "cats"))
浏览 21提问于2022-05-31得票数 0
我已经用网格创建了一个qicharts2图的网格，但是当我尝试用PowerPoint发送它时，我得到了这个错误。
doc_parse_raw中的错误(x，编码=编码，base_url = base_url，as_html = as_html，：StartTag:无效元素名称68
这是我的密码：
library(qicharts2)
library(gridExtra)
library(officer)
library(rvg)
#24 random numbers from a normal distribution for example.
y1 <- rnorm(24)
y2
浏览 0提问于2018-01-23得票数 3
回答已采纳
2回答
必须绘制：
pl1 <- qplot(x=trade.date, y=price1, data=finalfutff, geom='line')+scale_y_continuous(name='')+scale_x_date(name='', expand=c(0,0))+opts(panel.background=theme_rect(),panel.grid.major=theme_blank(), panel.grid.minor=theme_blank(), plot.margin = unit(c(1,0,0,0), "
浏览 5提问于2011-05-26得票数 2
我正在尝试使用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
回答已采纳
我正在使用来自fpp2软件包的数据集和来自预测软件包的预测函数的组合进行森林预测。此预测的输出是带有SNAIVE_MODELS_ALL的对象列表。此对象包含两个系列的独立数据，其中第一个是电力，第二个是水泥。你可以看到下面的代码： # CODE
library(fpp2)
library(dplyr)
library(forecast)
library(gridExtra)
library(ggplot2)
#INPUT DATA
mydata_qauselec <- qauselec
mydata_qcement <- window(qcement, start = 195
浏览 84提问于2019-08-28得票数 0
回答已采纳
我是R新手，但需要它来分析我的数据。
我想在同一图上绘制来自不同位置(在同一研究下)的多个折线图。我的数据帧是非线性随机效果模型的结果。
下面是模型的输出和绘图。现在我有四个不同的位置(1到4)，我需要在同一张图上绘制以进行比较。
{r} Location1.model<- glmer(Completeness ~ Weeks + I(Weeks*Weeks) + (1|street), data = location.1, family = binomial()) summary(D1.model) Weeks_Num <- 1:165 Time.effect <- fix
浏览 1提问于2018-11-17得票数 0
我想在一个图上组合多个等高线图。我的代码如下所示。
d1<- read.table("/home/amy/Desktop/data.csv",sep=",",header=T)
ax<-d1$c1
ay<-d1$c2
library(MASS)
density1 <- kde2d(ax, ay)
par(mfrow=c(1,2))
filled.contour(density1, xlab= "x axis",
ylab= "y axis ", main ="first plot",
浏览 0提问于2016-02-17得票数 0
我正在尝试使用ggplot2和gridExtra并排绘制平面图。但是，所生成的地块没有缩放/对齐，见下面的图片和代码。
我如何才能产生这样的数字，使细胞是对齐的，具有相同的维度？
Code
library(ggplot2)
library(gridExtra)
## make date frames
one <- floor(runif(56, min=0, max=5))
data.one<- cbind(one,expand.grid(h = seq(1,8,1), w = seq(1,7,1)))
two <- floor(runif(35, min=0,
浏览 0提问于2018-07-06得票数 2
回答已采纳
我有一个数据框架和一个代码来绘制所有的图表，这是一个因素。但我需要调整一下布局。我需要在一个图中2行1列。但是当前代码仅显示1列和3行
df
a b c d
1 a dg 1 dg
2 b dg 2 dg
3 a dg 3 dg
4 d fd 4 fd
p <- list()
as <- names(Filter(is.factor, df))
for(i in 1:length(as))
{
p[[i]] <-
print(ggplot(data=df,aes_string(x=as[i],fill=as[i]))+geom_bar(stat =
"
浏览 0提问于2019-08-18得票数 0
1回答
我有一个大致如下的数据集：
names = tibble(NAME_2=c("Location1","Location2","Location3","Location4"))
dates = tibble(date = seq(as.Date("2015-01-01"), as.Date("2016-12-31"), by="days"))
types = tibble(type = c("comment","post"))
df <- merg
浏览 4提问于2017-08-10得票数 7
回答已采纳
1回答
多次呈现相同的模型
、、、
我想做的是，基本上有一个模型，它会被多次渲染，有不同的翻译和旋转。
所以我知道如何使用Array Buffers和Array Element Buffers (Vertex Buffer Objects)，我的问题是。现在，当我将模型加载到一个VBO中时，如果我想用不同的翻译和旋转多次呈现它，那么最好的方法是什么。
对于如何做到这一点，我有两个理论。(虽然我在问什么是最好的方法)。
将模型加载到一个VBO中，然后继续调用glDrawArrays，并为我希望呈现的每个模型应用平移和旋转。
多次将模型加载到一个VBO中。同样的模型会被多次存储，最终会使用大量的内存。
Extra:在
浏览 8提问于2013-08-26得票数 6
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
