调整由lapply、arrangeGrob生成的多个绘图的宽度
可以通过修改绘图的参数来实现。具体步骤如下：
- 使用lapply函数生成多个绘图对象。lapply函数可以将一个函数应用于一个列表或向量的每个元素，并返回一个包含结果的列表。在这里，我们可以使用lapply函数将绘图函数应用于需要绘制的数据集，生成多个绘图对象。
- 使用arrangeGrob函数将多个绘图对象排列在一起。arrangeGrob函数可以将多个绘图对象按照指定的排列方式组合在一起。可以通过设置参数来调整排列的行数、列数以及每个绘图对象的大小。
- 调整绘图的宽度。可以通过修改绘图对象的参数来调整绘图的宽度。具体的参数名称和取值范围可能因使用的绘图库而有所不同。一般来说，可以通过设置绘图对象的宽度参数来调整绘图的宽度。
- 生成最终的绘图。根据调整后的绘图参数，使用绘图函数将调整后的绘图对象生成为最终的绘图结果。
调整绘图的宽度可以使多个绘图在同一行或同一列中显示，也可以使它们以其他方式排列。这样可以更好地展示多个绘图之间的关系和比较。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：提供弹性计算能力，满足不同规模业务的需求。产品介绍链接
- 腾讯云云数据库MySQL版：提供高性能、可扩展的MySQL数据库服务。产品介绍链接
- 腾讯云对象存储（COS）：提供安全、稳定、低成本的云端存储服务。产品介绍链接
- 腾讯云人工智能平台（AI Lab）：提供丰富的人工智能服务和开发工具，帮助开发者构建智能化应用。产品介绍链接
- 腾讯云物联网平台（IoT Hub）：提供全面的物联网解决方案，帮助连接和管理物联网设备。产品介绍链接
- 腾讯云移动应用分析（MTA）：提供全面的移动应用数据分析服务，帮助开发者了解用户行为和应用性能。产品介绍链接
- 腾讯云区块链服务（Tencent Blockchain）：提供安全、高效的区块链解决方案，帮助构建可信赖的应用。产品介绍链接
请注意，以上仅为腾讯云的一些相关产品，其他云计算品牌商也提供类似的产品和服务。
相关·内容
我正在尝试用ggplot2创建一个多面板图(使用grid.extra和egg包)。其中两个是方框样地，第三个使用geom_count。比如：
f <- ggplot(mpg, aes(drv, cty)) + geom_boxplot()
f2 <- ggplot(mpg, aes(drv, hwy)) + geom_boxplot()
f3 <- ggplot(mpg, aes(drv, class)) +
geom_count() + scale_size_area(max_size = 15)
当我试图安排他们使用：
b <- grid.arra
浏览 7提问于2017-09-29得票数 5
回答已采纳
1回答
我想把一个普通的传说与情节的右边而不是底部联系起来。在讨论了一个类似的例子(Stevenson的第二个答案)
使用Stevenson对代码的基本编辑，我将legend.position更改为右，如果保留ncol=1，则图例仍然出现在底部，但是如果我编辑ncol=2，则图例出现在右边，但在图例和情节之间有很大的空间。
library(ggplot2)
library(gridExtra)
grid_arrange_shared_legend <- function(...) {
plots <- list(...)
g <- ggplotGrob(plots[[1]] + t
浏览 1提问于2016-05-23得票数 2
回答已采纳
1回答
使用针织的2个地块的自定义布局
、、、、
我想要的是在一行中显示两个相邻的图形，这样第一个是方形的，第二个是所有剩余的宽度，它应该比第一个宽(我使用knitr和LaTeX)。
我尝试使用r layout并在图块选项中指定out.width和out.height，但我无法正确使用，并且我不确定这是正确的方法。
一般来说，最好在块选项中配置图形大小，对吧？但是，对于更复杂的布局，最好的方法是什么呢？
浏览 0提问于2015-08-13得票数 0
这是一个非常简单的问题，但似乎很难找到合适的答案。如何在底部放置绘图标题。有了ggplot2的强大功能，应该有一些简单的方法可以做到这一点。
qplot(rnorm(100)) + ggtitle("My Title")
这个问题已经被其他人问过了。但是，提供的答案需要大量的手动调整，而且往往需要付出艰苦的努力。我不想在theme()中手动调整plot.title = element_text(vjust = -XX)。有没有更好的方法呢？
浏览 2提问于2015-08-14得票数 1
我有一个两行的图形，它是由第一行的一个图和第二行的一个情节列表组成的。
有了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
回答已采纳
2回答
library( ggplot2 )
library( gridExtra )
p1 <- qplot( rnorm( 10 ), rnorm( 10 ) )
p2 <- qplot( rnorm( 10 ), rnorm( 10 ) )
p3 <- qplot( rnorm( 10 ), rnorm( 10 ) )
p4 <- qplot( rnorm( 10 ), rnorm( 10 ) )
p5 <- qplot( rnorm( 10 ), rnorm( 10 ) )
grid.arrange( p1, p2, p3, p4, p5, nrow=2 )
我想
浏览 0提问于2013-05-28得票数 8
回答已采纳
我使用来自的函数将表单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
回答已采纳
从中，我学会了如何用对齐的绘图区排列两个绘图。
我的问题是:我如何才能获得排列好的地块的对象？
示例：
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
回答已采纳
我想要生产一个有许多页的ggplots的单一pdf。使用gridExtra，我还可以构建一个带有m x n布局的绘图页面(m行绘图，n绘图列)。
函数ggsave允许我编写一个绘图页，即使是那些用gridExtra构建的具有m x n布局的绘图。
使用，只要每个页面具有相同的m x n布局，甚至可以将多个页面放到一个pdf中。
我想知道我如何ggsave一个有不同页面布局的地块列表？例如，我有一个列表，l，长度3表示3页。
l[[1]]是一个具有2 x 2布局的页面，有4幅图
l[[2]]是有两个情节的2 x 1
l[[3]]只是1 x 1
我如何黑客ggsave，以便我可以将列表l写入1pd
浏览 3提问于2016-03-17得票数 2
回答已采纳
我正在尝试使用ComplexHeatmap在R中创建一个热图。我使用以下代码部分创建了一个热图：
Heatmap(gsea.heatmap.df,
cluster_rows = FALSE,
cluster_columns = FALSE,
show_row_dend = FALSE,
show_column_dend = FALSE,
col = colorRamp2(c(-1, 0, 1), c("red", "white", "blue")),
浏览 203提问于2018-03-18得票数 2
2回答
我在ggplot2中收集了一组直方图，并使用ImageMagick将它们动画化为gif。
我们的想法是，x轴比例在所有图表中都应该是相同的，但这并不完全正确，因为由于标签的宽度不同，y轴会左右摆动。如何锚定图形，使所有图形具有完全相同的轴位置？
下面是我的ggplot代码，如果它有用的话：
hist.fn<-function(tier,ddf){
df<-ddf[ddf$tier==tier,]
l<-match(tier,levels(df$tier))
hist.png<-ggplot(df,aes(df$"Premium Adul
浏览 2提问于2018-01-06得票数 8
ggplots的数据：
set.seed(0)
library(ggplot2)
library(gridExtra)
c <- list()
for (k in 1:9) c[[k]] <- ggplot(data.frame(x=1:10,y=rnorm(10)),aes(x=x,y=y))+geom_line()
grid.arrange (c[[1]],c[[2]],c[[3]],c[[4]],c[[5]]
,c[[6]],c[[7]],c[[8]],c[[9]],ncol=3, nrow=3, widths = c(4,4,4) ,heights = c(4,4,
浏览 6提问于2017-08-03得票数 3
回答已采纳
我想使用ggplot2创建散点图矩阵。我部分地处理了我的问题。我使用ggplot2创建了三部分图:下三角-散点图、对角变量名称和上三角相关系数(R^2)。下面我给出一段数据+生成图表的代码。我的数据：
f =
C xval V yval corr V1
1 1622 1 1622 1 2ng
1 1622 2 1639 0.997 2ng
1 1622 3 1584 0.992 2ng
1 1622 4 1549 0.99 2ng
1 1622 5
浏览 7提问于2016-02-09得票数 4
回答已采纳
我已经使用了指示的方法来对齐共享相同横坐标的图。
但是，当我的一些图形有图例而另一些没有图例时，我不能让它工作。
下面是一个示例：
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
回答已采纳
1回答
我试图将每个组的图表和表输出到PDF的一页(每个组一页)。我快到了，但我只是在最后一步遇到麻烦。我在同一页上有一张桌子和一个情节，但桌子在情节的顶端。当我把它移出情节窗口时，它就消失了。
有没有一种方法，我可以将图形放在绘图(这是在绘图窗口之外)？
这是我的代码：
lss <- read.csv(file="WithBlanksFilled_4.csv",head=TRUE, sep=",") # read in csv and name columns
st<-lss$server_type
tenant <- lss$tenant_n
da
浏览 1提问于2014-12-05得票数 0
回答已采纳
2回答
我制作了一个类似于下面代码所描述的情节，最终得到了发布的图像。我不知道如何将整个背景设置为我在定义子图时使用的"grey80"-color。即。我想用同样的颜色在故事情节和传说的两侧涂上白色的区域。这有可能实现吗?也许可以用一些花哨的格格罗布魔法来实现？
这个问题类似于，但如果可能的话，我想要一个不使用png()函数的解决方案。
library(ggplot2)
library(gridExtra)
library(ggthemes)
library(grid)
p1 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Wid
浏览 1提问于2016-01-12得票数 6
回答已采纳
2回答
我希望用geom_tile来绘制一个填充的轮廓，并在它下面直接画出相应的原始轨迹，两者之间没有空格。当使用gridExtra或牛仔图形时，我可以使它们接近，但不能到达原始跟踪的顶部在填充轮廓的x轴上。以下是详细信息：
数据
library(reshape2)
library(ggplot2)
volcano=volcano
volcano3d=melt(volcano)
names(volcano3d) <- c("x", "y", "z")
图
fill=ggplot(volcano3d,aes(x,y,z))+geom_tile(aes
浏览 6提问于2016-03-01得票数 3
回答已采纳
1回答
我从一组在线论坛收集了数据，并希望使用ggplot和facets (每个论坛一个facet )绘制表示用户A回复用户B的次数的矩阵。
以下是加载玩具示例的代码：
library(ggplot2)
library(dplyr)
df.edges <- data.frame(from = c('forum1_user1', 'forum1_user1',
'forum1_user2', 'forum1_user2',
浏览 31提问于2016-07-24得票数 2
回答已采纳
我是ggplot2的新手，我正在尝试在一个图中绘制9个不同的图，我想添加一个共同的图例。
在这里你可以看到我想要绘制的皮尔逊相关性：
PEARSONSCORRELATIONS_MOD1
[1] 0.10470688 0.10827255 0.12322448 0.11887717 0.12719741 0.12635607 0.13427974
[8] 0.13539245 0.13636687 0.13834174 0.13864013 0.13816236 0.13640052 0.13775515
[15] 0.13563827 0.13968726 0.12499506 0.118
浏览 5提问于2021-05-30得票数 0
我有一个用ggplot2和grid.arrange制作的4个面板的图。每个面板都有一个图例，每个图例对他们都是一样的。
如何删除这4个图例，并在底部的上创建一个独特的图例？
在这里，我的样本数据和图表：
set.seed(100)
df_1 = data.frame(lat = rnorm(20),
lon = rnorm(20),
cor = c(rep('positive', 7), rep('negative', 13)),
sign = c(
浏览 3提问于2018-09-11得票数 5
回答已采纳
如何用标记(A和B)和普通图例来绘制两个图？我使用了plots {ggpubr}，它似乎不支持gridExtra绘图。
library(data.table)
library(ggplot2)
library(grid)
library(gridExtra)
library(ggpubr)
P1 <- ggplot(iris,aes(x=Sepal.Length,y=Petal.Length)) + geom_point(size = 2, aes(color=Species))
P2 <- ggplot(iris,aes(x=Petal.Width,y=Petal.Le
浏览 1提问于2020-07-30得票数 0
回答已采纳
我在中有一个数据框，代码如下：
load("Fish11a.rda")
df=Fish11a
df=data.frame(Time=as.factor(df[,6]),RoiID=df[,3],Diameter=df[,8])
df$Time.hours=rep(1:10,each=104*max(df$RoiID),len=nrow(df))
df$Time <- factor(df$Time, levels=rev(levels(df$Time)))
df1=split(df,df$Time.hours)
br=lapply(split(df,df$Time.h
浏览 0提问于2016-08-10得票数 3
回答已采纳
1回答
我使用marrangeGrob()而不是facet_wrap()从一个绘图列表中生成我的绘图。但是，我似乎不能添加一个图例。
我已经提取了我的图例
g_legend<-function(a.gplot){
tmp <- ggplot_gtable(ggplot_build(a.gplot))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
return(lege
浏览 6提问于2017-03-04得票数 0
在产生1到4位数的服务器部分，我有一个“呈现图”函数。如何根据图形的数量(自动)更改闪亮应用程序中绘图区域的高度？我的意思是，4位数的高度应该大于2位数的高度。我在UI部分中使用了鬼魂= "auto“，height = "auto”，但是我得到了错误。所以我给它分配了一个固定的大小(高度= "800")，但是如果我有一个数字，它会非常大。如果我有3或4个，它们会变小。请看我的代码的一部分：
#UI section
plotOutput("fancyPlot", inline = F, height = "800")
#Serv
浏览 1提问于2022-05-24得票数 0
回答已采纳
我正在尝试将多个ggplot2图排列到一个输出/网格中。我希望地块(不考虑标签)是相同的大小。我找到了一种做的方法，但是现在我想调整地块之间的空间。
例如：
在这个情节中，我想减少两个情节之间的空间。我试过调整页边距，去除滴答，等等，这已经消除了一些空间。
在这种情况下，是否有办法更好地控制地块之间的间距调整？
library(MASS)
data(iris)
library(ggplot2)
library(grid)
library(gridExtra)
p1 <- ggplot(iris,aes(Species,Sepal.Width))+geom_violin(
浏览 0提问于2015-06-04得票数 2
回答已采纳
我正在尝试循环ggplot以将它们保存到列表中。我有一个问题，因为所有的图都显示了最后一个变量的数据。你能帮帮我吗？我想把这些图形存储在一个列表中
下面是我的数据：
head(rev_regions1m)
World US Eurozone Emerging.Markets Asia.Pacific.Ex.Japon date
1 -0.015025440 -0.004314109 -0.0074216799 -0.016600603 -0.020172773 2018-12-31
2 -0.01502544
浏览 0提问于2020-08-19得票数 0
我有一个返回arrangeGrob的函数。我希望访问单独的ggplot对象，使它们成为输入，即ggplotly。我尝试查看了arrangeGrob对象的结构，但似乎没有办法获得该结构。我不需要绘制我需要在其他地方使用的图。在下面的示例中，我希望能够返回给arrangeGrob的列表中的每个( p1 )图。
library(ggplot2)
library(gridExtra)
p1 = ggplot(data = pressure, aes(x = temperature, y = pressure)) + geom_line() + theme_light()
p = arrangeGro
浏览 0提问于2018-10-11得票数 0
1回答
我对R比较陌生，我不太确定如何实现这一目标。现在，我使用prcomp对两个不同的数据集执行PCA。
data1.pr <- prcomp(data1, center=TRUE, scale=TRUE)
data2.pr <- prcomp(data2, center=TRUE, scale=TRUE)
我使用autoplot(data1.pr, frame = TRUE)和autoplot(data2.pr, frame = TRUE)绘制了这个图形，它显示了data1和data2的结果：
现在，我如何将这两幅图片组合成一个有不同组的情节？我从一些答案中寻找，geom似
浏览 2提问于2020-02-10得票数 0
我已经在R中创建了ggplot图形，我想在这些图形周围抛出一个标题栏，类似于你在Autocad绘图中看到的标题栏。
我到处寻找，如果可能的话，我还没有找到任何关于如何去做这件事的信息。
这似乎是一件很简单的事情--在图形周围创建一个黑色的框架，在底部创建一个标题栏，标题栏只是一系列的矩形；然而，它看起来不像R有一个可以做这件事的库，或者工具(例如创建图形并粘贴到标题栏框架中)。
我有数百个数字，所以我不想把这些数字手工粘贴到标题栏pdf中。
任何帮助都将不胜感激。
浏览 0提问于2018-03-21得票数 1
1回答
样本数据：
rdata <- data.frame(y=rnorm(1000,2,2),v1=rnorm(1000,1,1),v2=rnorm(1000,3,3),
v3=rnorm(1000,4,4),v4=rnorm(1000,5,5))
这不能满足我的需要：
library(lattice)
library(gridExtra)
plot1 <- lapply(1:2, function(i) {bwplot(~rdata[,i],rdata)})
plot2 <- lapply(1:3, function(i) {bwp
浏览 1提问于2014-07-13得票数 2
回答已采纳
3回答
我正在尝试创建一个类似于
但是，不管我为宽度设置了什么，布局仍然使用Plot面板的全部宽度，代码如下：
masterLayout <- grid.layout(
nrow = 4,
ncol = 1,
widths = c(1,0.6,1,1),
heights = c(.2,.6,.1,.1))
vp1 <- viewport(layout.pos.row=1, name="title")
vp2 <- viewport(layout.pos.row=2, name="plot")
v
浏览 0提问于2015-09-07得票数 4
回答已采纳
1回答
我用sec_axis()函数制作了一个用二轴绘制的am图，但是很难保持正确的比例。
下面是一个可重复的例子
# load package
library(ggplot2)
# produce dummy data
data = data.frame(week = 1:5,
count = c(45, 67, 21, 34, 50),
rate = c(3, 6, 2, 5, 3))
# calculate scale (and save as an object called 'scale'
浏览 0提问于2018-09-01得票数 0
回答已采纳
2回答
我想要两个情节的结合+他们的传说是这样：
library(ggplot2)
library(grid)
library(gridExtra)
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
p1 <- qplot(price, carat, data=dsamp, colour=clarity)
p2 <- qplot(price, depth, data=dsamp, colour=clarity)
g <- ggplotGrob(p1 + theme(legend.position="bottom
浏览 3提问于2016-01-15得票数 9
回答已采纳
我正在尝试从here实现一个解决方案。不幸的是，我不能让嵌套的facets包上传，并试图通过使用gridextra包的解决方案来格式化facet标题。 然而，我似乎不知道如何将所有的图形放在一行上，因为它看起来就像一个条形图。需要以某种方式修改这一行：grid.arrange(., ncol = 1)。在我的数据中，所有图的大小都是相等的，每个图都有两个数据点。 借用的代码是： library(ggplot2)
library(gridExtra)
library(dplyr)
dat <-
structure(list(Species = c("Acanthocyclo
浏览 31提问于2020-08-25得票数 0
回答已采纳
1回答
我试图想出一种简洁的方法来绘制一个R数据框架中所有列的网格视图。问题是我的数据有离散值和数值。为了简单起见，我们可以使用R提供的示例数据集，称为iris。我会使用par(mfrow(x, y))来分割我的情节，或者使用一个mapply来循环每一列？我不知道这里最好的是什么。
我在想一些类似于：
ggplot(iris, aes(Sepal.Length))+geom_density()
而是为每一列绘制了图。我关心的是“物种”栏是离散的。也许"geom_density“不是在这里使用的合适的图，但是我们的想法是在一个图中看到每个数据帧的变量分布--甚至是离散的。离散值的条形图将达到这个
浏览 0提问于2018-01-29得票数 3
回答已采纳
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
我有5个分成两行的图，如图所示。 不正确： ? 我正在尝试创建一个组合图，其中所有的图都是相同的大小，并在它们自己的行的一半内居中，类似于下图。 正确： ? 到目前为止，我的代码是 figure1 <- grid.arrange(plot1, plot2, nrow=1, widthDetails(0.5))
figure2 <- grid.arrange(plot3, plot4, plot5, nrow=1)
grid.arrange(arrangeGrob(figure1, top = 'Treatment 1'),
a
浏览 122提问于2020-07-14得票数 1
1回答
我在SAS中运行了一个proc sgplot来创建一个直方图。Y轴:人数，X轴:英里数。问题是直方图使用非常小的x轴间隔的30+条形图显示数据。我只想在直方图中显示10个柱状图。有没有一个简单的功能，我可以添加到代码中，以限制直方图只显示10条？代码如下：
proc sgplot data= miles;
title "Cumulative Miles Driven by Number of Individuals"
histogram CumulativeMiles/scale= count
fillattrs=(color=blue);
浏览 8提问于2020-08-12得票数 0
我正在尝试安排使用lapply从函数中生成的grobs，但是有更多的数据试图传递到gList，而不是网格函数可以使用的数据，下面是一些可重复的代码：
library(dplyr)
library(gridExtra)
split_ex <- mtcars %>% split(cyl)
list_ex <- unique(mtcars$cyl)
test_plot <- function(dat){
subtest_plot <- function(type) {
ggplot(data=dat %>% filter(cyl==type)) +
浏览 0提问于2018-10-18得票数 0
回答已采纳
我有两个分享同一个传说的情节。我想把它们和一个传说并排呈现出来，但我希望左边的情节比右边的情节更窄。
如果使用grid_arrange_shared_legend，则无法控制各个绘图宽度：
library(ggplot2)
library(gridExtra)
library(grid)
cbPalette <- c("#d52b1e", "#176ca4", "#f7761b", "#734e9e", "#176ca4", "#f7761b", "#734e9e")
pl
浏览 3提问于2017-10-12得票数 1
回答已采纳
2回答
下面的示例看起来像我的数据：
library(ggplot2)
library(gridExtra)
set.seed(123)
a=sample(1:100, 100)
b=sample(1:50, 100, replace = TRUE)
obj= data.frame(a,b)
ggplot(obj, aes(a, b, col=a))+
geom_point()+
geom_path()+
coord_cartesian(xlim =c(0, 100), ylim = c(0, 50))
数字
浏览 13提问于2020-02-25得票数 1
回答已采纳
1回答
我有一个函数来创建一个多重图(包含许多子图的图)并将它写到文件中。
multiplot <- function(plotlist=NULL, cols) {
require(grid)
# Make a list from the ... arguments and plotlist
plots <- c(plotlist)
numPlots = length(plots)
# Make the panel
plotCols = cols # Number of columns of plots
plot
浏览 3提问于2015-01-25得票数 0
回答已采纳
我在我的ls上有几个ggplot作为对象。我想将它们保存为单独的文件(尽管我也有兴趣知道如何将它们全部保存在一个大文件下)。我读过这个：和，但我似乎不能适应代码。我还尝试按照建议的将它们都绘制在一个大文件中，但得到了这个错误：Error in do.call("grid.arrange", plots2[[i]]) : second argument must be a list。在一个列表中获取所有的ggplot时，我遗漏了一些东西。
这就是我到目前为止所尝试的：
> ls() #List of objects on my ls. All the p* are my g
浏览 39提问于2013-12-11得票数 23
回答已采纳
2回答
我有一个关于连续创建两个图的问题，使用R和包tikz设备将tikz发送到Latex。我想做的是，在一行中画两张图。我首先做的是在par(mfrow=c(1,2))环境中创建to plots。但这并不能很好地工作，因为使用Latex打印时，绘图就像垂直的矩形。我想要的是得到一排二次的两张图片。接下来，我创建了一个布局：
Layout<- matrix(c(1, 2), nrow = 1, ncol=2, byrow = TRUE)
nf <- layout(mat = Layout, widths = c(1,1),heights = c(1,1), respect = TRUE)
浏览 7提问于2011-05-05得票数 6
回答已采纳
我试过了
fdist <- function(X) { for(i in 1:ncol(X)){ print(i) gg <- ggplot(X, aes(x=X[,i])) + stat_ecdf(geom = "step") gg <- gg + labs(x=paste(names(X[,i]))) assign(paste(names(X[,i]), i, sep = ''), gg + labs(x = names(X[,i]))) end} }
但是一开始我把所有的图都用数字保存为名称，现在
浏览 2提问于2017-03-08得票数 0
回答已采纳
1回答
跟进这篇文章，
我使用tidymodel将回归与数据的分组列表相匹配。然后，我将值预测到另一个数据列表中。
# Code from the original question
library(dplyr)
year <- rep(2014:2018, length.out=10000)
group <- sample(c(0,1,2,3,4,5,6), replace=TRUE, size=10000)
value <- sample(10000, replace=T)
female <- sample(c(0,1), replace=TRUE, size=10000
浏览 3提问于2021-10-04得票数 0
回答已采纳
1回答
我在这里有一个关于我的问题的工作版本：
{
"name": "Normal",
"data": [
{
"name": "Additional Info",
"value": 286
},
{
"name": "Add Service Area",
浏览 6提问于2022-04-08得票数 0
回答已采纳
现在，多亏了@Phil，我已经成功地将我的SpatialLinesDataFrame转换成了psp对象的列表，我需要使用SpatStat函数pointsOnLines来创建每个列表项的点(即。线)，并将线的标记转移到每组点。
我是新手，但是看到它是如何将spatialdataframe转换为psp对象列表的，我认为使用它将pointsOnLines函数应用于每个列表是合适的？遗憾的是，它对我不起作用。帮助!
为了继续fylk示例...
library("maptools")
library("rgdal")
library("spatstat")
浏览 13提问于2019-11-28得票数 0
下面是一个函数，用于从ggplot2对象中提取图例，并在grid.arrange()中将其用作自己的对象
然而，我真正挣扎的是:我只想把情节排在一排，但显然情节布局是不可改变的。我相信
grid_arrange_shared_legend <- function(...) {
plots <- list(...)
g <- ggplotGrob(plots[[1]] + theme(legend.position="bottom"))$grobs
legend <- g[[which(sapply(g, function(x)
浏览 2提问于2015-10-11得票数 3
回答已采纳
5回答
不同大小的多个ggplots图
、、、、
在一个矩阵中使用grid.arrange包中的gridExtra来排列多个图是相对简单的，但是当某些图打算比另一些图更大时，如何安排图(我正在处理的图是来自ggplot2的)？在基础上，我可以使用layout()，如下面的示例所示：
nf <- layout(matrix(c(1,1,1,2,3,1,1,1,4,5,6,7,8,9,9), byrow=TRUE, nrow=3))
layout.show(nf)
什么是ggplot图的等价物？
一些包括在内的情节
library(ggplot2)
p1 <- qplot(x=wt,y=mpg,geom="poi
浏览 7提问于2013-08-25得票数 22
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
