在R中打印while循环内部的绘图
，可以通过以下步骤实现：
- 首先，确保已经安装了R语言的开发环境，并且已经加载了需要使用的绘图库（如ggplot2）。
- 创建一个while循环，设置循环条件。
- 在循环内部，使用绘图函数创建图形，并将其保存为一个变量。
- 使用print()函数在每次循环迭代时打印图形。
以下是一个示例代码：
library(ggplot2)
i <- 1
while (i <= 5) {
# 创建绘图
plot <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
geom_point() +
labs(title = paste("Iteration", i))
# 打印绘图
print(plot)
i <- i + 1
}在上述示例中，我们使用了ggplot2库创建了一个散点图，并在每次循环迭代时更改了标题。通过print()函数，每次循环迭代时都会打印出当前的图形。
请注意，这只是一个示例，你可以根据实际需求和数据进行相应的修改和调整。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云：https://cloud.tencent.com/
- 云服务器 CVM：https://cloud.tencent.com/product/cvm
- 云数据库 MySQL：https://cloud.tencent.com/product/cdb_mysql
- 人工智能平台 AI Lab：https://cloud.tencent.com/product/ailab
- 云存储 COS：https://cloud.tencent.com/product/cos
- 区块链服务 BaaS：https://cloud.tencent.com/product/baas
- 腾讯云元宇宙：https://cloud.tencent.com/solution/metaverse
相关·内容
4回答
R-更改jupyter中的ggplot大小
r、ggplot2、jupyter
在jupyter笔记本中使用R，首先我设置了通用的绘图大小。其次，我想用不同的大小绘制一个单独的图。
## load ggplot2 library
library("ggplot2")
## set universal plot size:
options(repr.plot.width=6, repr.plot.height=4)
## plot figure. This figure will be 6 X 4
ggplot(iris, aes(x = Sepal.Length, y= Sepal.Width)) + geom_point()
## plot
浏览 2提问于2017-08-03得票数 24
1回答
多图写入绘图到文件网格包
r、plot、grid
我有一个函数来创建一个多重图(包含许多子图的图)并将它写到文件中。
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
回答已采纳
1回答
运行循环时创建数据帧的子集
r、for-loop、subset
我是R的新手，试着找出我的原因。我在“原始”数据框架的基础上创建了一个新的数据框架。
library(dplyr)
prdgrp <- as.vector(mth['MMITCL'])
prdgrp %>% distinct(MMITCL)
执行此操作时，结果是列MMITCL的唯一值的列表。我想在循环序列中使用这些数据，该序列首先创建原始数据的新子集，然后基于此打印图形：
#START LOOP
for (i in 1:length(prdgrp))
{
# mth[c(MMITCL==prdgrp[i],]
mth_1 <- mth[c(mth$MMITCL
浏览 4提问于2017-08-07得票数 1
回答已采纳
1回答
绘制嵌套列表中每条记录的回归线
r、ggplot2、nested、tidyverse、purrr
我有一个示例，它将数据嵌套到列表中，将线性模型添加到列表中的每个tibble，将回归系数添加到列表中的每个记录，并将2个不同的ggplot对象添加到列表中的每个记录。我想为每个记录在单独的图形上绘制回归线。我可以让geom_smooth做我想做的事情，但是geom_abline似乎为列表中的每个记录添加了一个回归，每个数字一个(我的示例有三个记录，因此每个数字上有三行，而不是每个记录需要的单行)。 library(tidyverse)
library(purrr)
library(broom)
library(ggplot2)
iris_species <- iris %>%
浏览 9提问于2019-04-05得票数 3
回答已采纳
2回答
从散点图中找出2个回归方程/斜率和比较方程/斜率
r、ggplot2、statistics、regression、scatter-plot
我正在使用R中的虹膜数据集，我过滤了数据集，使虹膜$ ==、setosa或versicolor。然后我创建了一个散点图，其中x轴是Sepal.Length，y轴是Sepal.Width。根据物种对点进行了突出，并在基于物种的散点图中添加了2条不同的线性回归线。
以下是我的问题：
是否可以从散点图中得到两条线的斜率方程/斜率值？如果是这样的话，如何？是否可以使用统计检验来查看两条直线(刚毛色或云芝色)的坡度方程/斜率值是否有显著差异？
如果可以的话请告诉我。
提前谢谢。
-P.S。
以下是数字：
下面是生成情节的R代码：
# creates data for scatter plot
浏览 5提问于2020-09-24得票数 2
2回答
如果需要，将ggplot2层分配给字符串并进行评估
r、ggplot2
背景
我正在尝试使用加速ggplot2函数。函数basemap使用大型(每个15 Mb )的shapefiles绘制Svalbard的映射。地图使用两层不同的形状，陆地和冰川，以及一系列的“定义”，如主题、轴尺度和网格线。绘制地图，就像现在编写的代码一样，大约需要30秒。
我的想法是，如果我能打破代码块的层次，让用户有可能不绘制冰川，这个功能的执行速度将提高一倍。此外，如果我可以将ggplot2语法赋值为文本字符串，并且只计算所需的字符串，则R不会浪费时间来创建函数不使用的ggplot2对象。
我知道如何使用if else语句来实现这一点，但我希望避免多次编写定义。将scale_x_conti
浏览 4提问于2017-11-26得票数 2
回答已采纳
2回答
循环函数中的保存grobs
r、function、for-loop、ggplot2、gridextra
我做了这个长函数，以一个grob图结尾(3个g图)。但是，当我在一个循环中使用这个函数并试图将所有的结果grobs放到一个超级图形中时，我会遇到一些问题。我获得了一个有很多grobs的数字，但是它总是相同的grob (第一个)！
为了演示我的问题，我做了一个简化的例子：
library(ggplot2)
library(gridExtra)
data(iris)
#the function
multi.plot=function(data,heading){
p1=ggplot(data,aes(x=Sepal.Length,y=Sepal.Width))+geom_point()+g
浏览 6提问于2014-10-16得票数 0
回答已采纳
1回答
我无法在r中使用{}的tiff()保存文件
r、ggplot2、dplyr、tiff
所以我有一个很大的文件，我做了一个循环来计算平均值并绘制图形： for (i in c(25:28)) {
trait <- all_exp_1 %>%
group_by(Experiment,time) %>%
dplyr::summarise(across(i,~data.frame(Mean = mean(.,na.rm=TRUE),
N = length(.),
SD = sd(
浏览 36提问于2020-11-27得票数 0
回答已采纳
1回答
以编程方式生成的Rmarkdown中的“打印”HTML小部件
r、r-markdown、knitr、htmlwidgets
我尝试以编程方式生成一些Rmarkdown，其中一个部分包含一个HTML小部件。如果它们是我函数中的最后一个，那么它们的输出都是正常的。但是，如果我将它们包装在print中，这样我就可以在它们后面加上其他东西，就像您对绘图所做的那样，它们不会产生任何输出。 也许这与knitr处理打印的方式有关，我不确定。但是，有人知道如何让HTML小部件像以编程方式生成的Rmarkdown中的绘图一样工作吗？ 示例.Rmd ---
title: "R Notebook"
output:
html_document:
df_print: paged
---
```{r} ex_p
浏览 22提问于2020-10-19得票数 1
回答已采纳
1回答
R中具有pdf_document输出的表与图之间的分行线
r、pdf、ggplot2、r-markdown、line-breaks
我在R Markdown中创建一个PDF输出的文档。
我的代码在同一个代码块中的"for“循环中创建了许多表和数字。我所看到的在PDF文档中创建分行符的所有技巧--使用前面的斜线和空格的各种组合和排列(例如换行符、换行符、换行符)，
等)不起作用。因此，我决定省去一些角落，只需在我的ggplot2边距中增加情节空间，从而在我的桌子和我的图形之间创造出更多空白的错觉。
理想情况下，我很想知道如何在单个代码块error.However，中正确地插入空白(一行或几行)，而不会得到一个，我也会满足于弄清楚为什么当我有一些背景颜色(第一个情节)时，下面的代码“工作”会在我的ggplot2图中产生
浏览 1提问于2021-07-05得票数 3
回答已采纳
2回答
将一个for循环生成的多个by图放到一个图像中
r、for-loop、ggplot2、plot
第一次问一个问题，所以如果我错过了任何重要的细节，提前道歉。我仍然是R的新手，但随着我学到的更多，我将努力贡献自己。同时希望有人能帮忙。
我有一个for循环，它根据我的数据生成多个情节。这些情节本身是完美的，然而，我正在努力地将1至4点添加到单个图像中。
如果我使用的是plot()，我可以使用par(mfrow - c(1,2,3,4)，但是由于我在每个绘图中添加了多个数据帧，也就是说，在ggplot中添加了多个geom_point()，所以我不认为我能够做到这一点。
我的数据看起来像这样，但要长得多，多个数据点用于行N01、N02等，为此我将生成一个新的地块，其中包含来自N01、N02等的数
浏览 3提问于2020-02-08得票数 0
回答已采纳
2回答
在循环中运行框图/水平线时，hline索引不变的问题
r、ggplot2、legend
我已经寻找了很长时间来解决这个问题，但都无济于事。我在一个循环中用ggplot2绘制带有一些水平线的框图。我想要映射线条美学，将"colour“设置为我想要在图例中使用的名称，以便为线条和框图创建图例。但是，线索引值似乎没有更新，绘制的是所有绘图上的相同线值，特别是来自循环中最后一项的值。
我用虹膜数据集重现了这个问题，如下所示：
library(dplyr)
library(ggplot2)
library(tidyr)
liris<-gather(iris,"Param","Value",1:4)
liris<-as.data.frame
浏览 0提问于2016-06-16得票数 3
2回答
通过闪亮的方式绘制一个交互式的图形(当前生成一个空的地块)
r、shiny、plotly
我在生成一个窗口时遇到了问题，在这个窗口中，人们可以从一个交互的情节列表中选择一个来进行显示。当前，结果是一个带有选择侧边栏的窗口，但是主窗口中有一个空的地块。我在互联网上找到的部分代码如下：
ui <- pageWithSidebar(
headerPanel(h1(textOutput("XRD-Ergebnisse"))),
sidebarPanel(
uiOutput("filter_degree"), width = 2
),
mainPanel = mainPanel(
h3(textOutput("Di
浏览 1提问于2020-08-31得票数 0
回答已采纳
2回答
使用创建图形的函数导出到powerpoint
r、ggplot2、powerpoint
我目前正在尝试将多个图表导出到R中的同一Powerpoint演示文稿中。多个图表是使用一个函数创建的。但是，当我运行下面的代码时，它会为Age_Banded、InstalmentsRequestedInd和NetPrem_Banded这三个变量生成一个单独的Powerpoint (我希望每个变量都在同一个Powerpoint中)。这是因为ggsave只查看我假设的最后一个图。有什么想法吗？此外，CreateGraph函数只是为CalcCommission Perc生成图形。当删除CalcCommission和CalcCommission_Perc时，另一个…将独立工作
require(ggpl
浏览 2提问于2016-04-03得票数 2
1回答
高分辨率，可调整的数字在闪亮
r、shiny、high-resolution
我有一个可以为基因组学研究生成图形的。光亮打印的默认分辨率太低(72dpi)，无法在出版物中使用，这通常需要最低300dpi。我想生成在屏幕上看起来很好的绘图，用户可以下载或复制粘贴高分辨率版本。
renderPlot函数有一个用于调整分辨率的参数"res“。但是数字的大小需要相应地放大，这对于非常大的(2000px)数字是不可行的。
与renderPlot函数相比，renderImage给了我们更多的控制。我找到了一些的例子。如果复制并粘贴图形，它是高分辨率的。但这个数字在屏幕上看起来很模糊，因为它被缩小了。
浏览 5提问于2021-12-04得票数 3
3回答
最大限度地提高从军官/办公室到Word页面上的导入图像(docx)
r-markdown、officer
最近，我尝试使用创建文档的.docx报告。在我的文档中，我从项目目录中的\images文件夹导入图像。
通常，当我编织一个文档时，我能够最大限度地提高它在页面上的位置。有人知道如何使用officedown来完成这个任务吗？在RMarkdown中运行这段代码时，我没有问题
，这是我使用officedown时得到的
，这就是我想要的(注意，这张图片占据了整个页面)，
我已经在下面列出了一份
---
date: "`r Sys.Date()`"
author:
title: "GitHub Example"
output:
officedown::r
浏览 10提问于2020-07-08得票数 2
回答已采纳
1回答
保持ggplot二次轴标度固定
r、ggplot2
我用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回答
在循环中创建RMarkdown块
r、loops、r-markdown
我希望能够在一个循环中创建RMarkdown chuncks。我尝试过通过一个for循环来完成这个任务，但没有成功。我认为这很可能是通过lapply实现的，就像在一个闪亮的应用程序中创建UIs一样。然而，到目前为止，我还没有取得任何成功。
Reprex:
---
title: "Untitled"
output:
html_document:
theme: united
highlight: tango
toc: true
toc_float:
collapsed: false
smooth_scroll: false
浏览 1提问于2019-07-15得票数 5
回答已采纳
1回答
当使用PyQtGraph时，如何清除循环中的一个图？
python、plot、memory-leaks、pyqtgraph
我正在使用PyQtGraph快速可视化我的数据采集。为此，我经常使用while循环重新绘制数据。以下是此代码的简化版本：
import time
import numpy
import pyqtgraph as pg
from pyqtgraph.Qt import QtGui, QtCore
x = numpy.linspace(-2 * numpy.pi, 2 * numpy.pi, 1000)
y = numpy.cos(x)
# Plot
win = pg.GraphicsWindow()
win.resize(800, 800)
p = win.addPlot()
p.plot
浏览 0提问于2016-02-21得票数 5
回答已采纳
2回答
为什么MATLAB在打印大量(.png)图形时速度会变慢？
matlab、memory-leaks
我正在将一大系列的图形打印为.png文件。每个图形都是数据矩阵中一列的图，我将这些.png文件串连在一起，形成一个动画。
我的问题是，前几百张图像打印速度很快，但创建每个新图形的时间却迅速增加，从最初的几百个.png文件的大约0.2秒增加到大约第800个图像的2秒或更长时间。
在脚本运行期间，内存使用量会增加，但每隔几秒钟左右只会增加1MB。这是在运行64位R2009b的Windows上。
我的代码看起来像这样：
n = 1000;
matrix = rand(n);
f = figure('Visible','off'); % create the f
浏览 2提问于2012-04-06得票数 5
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
