R语言之图片保存

最新推荐文章于 2024-03-01 16:08:57 发布
原创 最新推荐文章于 2024-03-01 16:08:57 发布 · 2.6k 阅读 · 14 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#r语言

文章探讨了如何在R语言中保存图表时保持高分辨率并避免锯齿状边缘。通过比较BMP和JPEG格式，发现JPEG在提供清晰图像的同时，能有效减少文件大小。通过调整图片尺寸和分辨率参数，可以平衡图像质量与文件大小的需求。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

如何使保存的图片有较高的分辨率

1.之前我都是保存为bmp格式，但是保存为bmp格式之后，发现保存的图片并不是我想要的，R语言画图产生的图片如下：
在这里插入图片描述
这个是R语言直接输出的图片，我还没对图片进行保存，如果保存成bmp格式，图片如下：

bmp(file ="甜甜圈.bmp",width =720*2,height = 720*2,units = "px",res =72*2)

在这里插入图片描述
我稍微放大了一点，可以看出，图片边缘有很多锯齿，图片的大小为1.97MB，分辨率为，1440*1440
接下来我们试试能否通过提高分辨率来消除边缘的锯齿

bmp(file ="甜甜圈02.bmp",width =720*5,height = 720*5,units = "px",res =72*5)

在这里插入图片描述
提高分辨率后，锯齿确实得到了消除，但是，此时图片的分辨率为3600*3600，内存为37MB,太大了

如果我们换成jpeg格式，看看效果如何？

jpeg(file ="甜甜圈03.jpeg",width =1000*15,height = 1000*15,units = "px",res =72*15)

在这里插入图片描述
可以看出锯齿消除效果非常好，分辨率为15000*15000，此时图片的内存大小只有3.71MB

## ----------------------------------------------------
library(tidyverse)
library(ggsci)
library(ggrepel)
library(cowplot)


## ----------------------------------------------------
browsers <- read.csv(file = 'data/ggplot/browers.csv') %>%
  arrange(desc(version)) %>%
  mutate(cumsum_share = cumsum(share))
browsers


## ----------------------------------------------------
browsers_sum <- group_by(browsers, browser) %>%
  summarise(browser_share = sum(share)) %>%
  arrange(desc(browser)) %>%
  mutate(cumsum_browser_share = cumsum(browser_share))
browsers_sum


## ----------------------------------------------------
# ggplot(data = browsers_sum, aes(x = 1, 
#                                 y = browser_share)) +
#   geom_col(color = "white", width = 1, aes(fill = browser)) +
#   geom_text(data =  filter(browsers_sum, browser_share >=5),
#             size = 3, 
#             color = "white",
#             aes(y = cumsum_browser_share - 0.5 * browser_share,
#                 label = str_c(browser, "\n", browser_share, "%"))) +
#   geom_text_repel(data = filter(browsers_sum, browser_share < 5),
#                   size = 3,
#                   nudge_y = 7,
#                   segment.color = "white",
#                   min.segment.length = 0,
#                   color = "white",
#                   aes(y = cumsum_browser_share - 0.5 * browser_share,
#                       label = str_c(browser, "\n", browser_share, "%"))
#                   ) +
#   scale_fill_aaas() 
# 
# 
# ## ----------------------------------------------------
# ggplot(data = browsers_sum, aes(x = 1, 
#                                 y = browser_share)) +
#   geom_col(color = "white", width = 1, aes(fill = browser)) +
#   geom_text(data =  filter(browsers_sum, browser_share >=5),
#             size = 3, 
#             color = "white",
#             aes(y = cumsum_browser_share - 0.5 * browser_share,
#                 label = str_c(browser, "\n", browser_share, "%"))) +
#   geom_text_repel(data = filter(browsers_sum, browser_share < 5),
#                   size = 3,
#                   nudge_y = 7,
#                   segment.color = "white",
#                   min.segment.length = 0,
#                   color = "white",
#                   aes(y = cumsum_browser_share - 0.5 * browser_share,
#                       label = str_c(browser, "\n", browser_share, "%"))
#                   ) +
#   scale_fill_aaas() +
#   theme_nothing() +
#   coord_polar(theta = "y") 
# 
# 
# ## ----------------------------------------------------
# ggplot(data = browsers_sum, aes(x = 1, 
#                                 y = browser_share)) +
#   geom_col(color = "white", width = 1, aes(fill = browser)) +
#   geom_text(data =  filter(browsers_sum, browser_share >=5),
#             size = 3, 
#             color = "white",
#             aes(y = cumsum_browser_share - 0.5 * browser_share,
#                 label = str_c(browser, "\n", browser_share, "%"))) +
#   geom_text_repel(data = filter(browsers_sum, browser_share < 5),
#                   size = 3,
#                   nudge_y = 7,
#                   segment.color = "white",
#                   min.segment.length = 0,
#                   color = "white",
#                   aes(y = cumsum_browser_share - 0.5 * browser_share,
#                       label = str_c(browser, "\n", browser_share, "%"))
#                   ) +
#   xlim(-0.5, 1.5) +
#   scale_fill_aaas() 
# 
# 
# ## ----------------------------------------------------
# ggplot(data = browsers_sum, aes(x = 1, 
#                                 y = browser_share)) +
#   geom_col(color = "white", width = 1, aes(fill = browser)) +
#   geom_text(data =  filter(browsers_sum, browser_share >=5),
#             size = 3, 
#             color = "white",
#             aes(y = cumsum_browser_share - 0.5 * browser_share,
#                 label = str_c(browser, "\n", browser_share, "%"))) +
#   geom_text_repel(data = filter(browsers_sum, browser_share < 5),
#                   size = 3,
#                   nudge_y = 7,
#                   segment.color = "white",
#                   min.segment.length = 0,
#                   color = "white",
#                   aes(y = cumsum_browser_share - 0.5 * browser_share,
#                       label = str_c(browser, "\n", browser_share, "%"))
#                   ) +
#   xlim(-0.5, 1.5) +
#   scale_fill_aaas() +
#   theme_nothing() +
#   coord_polar(theta = "y")


## ----------------------------------------------------
# bmp(file ="甜甜圈.bmp",width =720*2,height = 720*2,units = "px",res =72*2)
# bmp(file ="甜甜圈02.bmp",width =720*5,height = 720*5,units = "px",res =72*5)
jpeg(file ="甜甜圈03.jpeg",width =1000*15,height = 1000*15,units = "px",res =72*15)
# x=1.3代表左侧矩形的位置
ggplot(data = browsers_sum, aes(x = 1, y = browser_share)) +
  geom_col(color = "white", 
# width代表左侧矩形的宽度
           width = 1,
           aes(fill = browser),
           linewidth=0.1) +
  geom_text(data =  filter(browsers_sum, browser_share >=5),
            size = 2, 
            color = "black",
            aes(y = cumsum_browser_share - 0.5 * browser_share,
                label = str_c(browser, "\n", browser_share, "%"))) +
  geom_text_repel(data = filter(browsers_sum, browser_share < 5),
                  size = 2.5,
                  nudge_y = 7,
                  segment.color = "white",
                  min.segment.length = 0,
                  color = "white",
                  aes(y = cumsum_browser_share - 0.5 * browser_share,
                      label = str_c(browser, "\n", browser_share, "%"))) +
  geom_col(data = browsers, 
           # width代表右侧矩形的宽度           
           width = 0.1,
           # x=2.3代表右侧矩形的位置 
           aes(x = 1.6, y = share, fill = version),
           color="white",
           linewidth=0.1) +

  geom_text(data = filter(browsers, share > 4), 
            size = 2,
            color = "white",
      #aes中x的大小代表固定短线的长度，变换Firefox 3.5的位置 
            aes(x = 2, y = cumsum_share - 0.5 * share, 
                label = str_c(version, '\n', share, '%'))) +
  geom_text_repel(data = filter(browsers, share <= 4),
                  size = 2.5,
                  color = "black",
                  nudge_x = 0.1,
                  xlim = c(2.7, Inf),
                  min.segment.length = 0,
#aes中x的大小代表Firefox 3.5 1.58%固定，变换短线的长度                
                  aes(x =2.7, y = cumsum_share - 0.5 * share,
                      label = str_c(version, '\n', share, '%'))) +
  scale_fill_igv() +
  #xlim代表两个图形处于0.5到2.8的范围内
  xlim(0.5, 2.8) +
  theme_nothing()+
  coord_polar(theta = "y")
dev.off()

browers.csv
在这里插入图片描述

R语言保存图片为特定dpi值（分辨率）的图像
data+scenario+science+insight
09-08 5373
R语言保存图片为特定dpi值（分辨率）的图像 目录 R语言保存图片为特定dpi值（分辨率）的图像 # 模板示例 # 保存为特定dpi像素的图像示例 # 模板示例 library(ggplot2) ggplot_alternative <- function() { the_data <- data.frame( x <- seq(0, 1, length.out = 100), y = pbeta(x, 1, 10) ) g..
R语言ggplot2可视化保存高分辨率的图片（high resolution）实战
data+scenario+science+insight
11-09 4699
R语言ggplot2可视化保存高分辨率的图片（high resolution）实战 目录 R语言ggplot2可视化保存高分辨率的图片（high resolution）实战 #保存高分辨率的图片（high resolution）1 #保存高分辨率的图片（high resolution）2 #保存高分辨率的图片（high resolution）1 library(ggplot2) x <- 1:100 y <- 1:100 ddata <- data.frame(x
R如何保存图片
qq_43985998的博客
10-08 7229
R如何保存图片 方法一： 首先要输入要保存的命令，然后画图，再保存 eg: png(file=“E:/IE/family/002/111. png”, width = 1000,height = 600) plot(…) dev.off 就可以在保存的目录中找到了 方法二：直接export 找合适的尺寸和大小 方法三：截图，， 若需要非常高清的图，保存矢量图 ...
R语言入门——高质量保存图片（想毕业咋就那么难！！！）
统计学小王子的博客
03-26 2万+
引言 问题描述 写此文，仅为纪念写论文时那些掉帧的图片。作为一个单纯想毕业的论文小白，对图片的要求也不是很高，仅仅是想让图片看起来不那么模糊。关键信息不被覆盖而已。但是就是那么一点需求都不能满足我。不过最终，历经坎坷也是找到了解决方法。本文从R语言、word、pdf三个方面来讲述我踩过的坑。 失败案例 最为本科统计学的专业的我，本次论文作图软件使用的是R语言中的ggplot2包中的函数。像保存图片...
R语言保存图片
qq_27390023的博客
01-18 5689
1. 保存BMP/JPEG/PNG/TIFF/pdf文件 Usage bmp(filename = "Rplot%03d.bmp", width = 480, height = 480, units = "px", pointsize = 12, bg = "white", res = NA, ..., type = c("cairo", "Xlib", "quartz"), antialias) jpeg(filename = "Rplot%03d.jpeg",
R保存图片的方法
xinghaiCSDN的博客
04-17 2538
有关允许的值及其对type = "windows"字体的影响，请参阅windows:对于该类型，如果缺少参数，则默认值从windows.options()$bitmap.aa.win中获取。关于type = "cairo"允许的值及其效果(字体和行，但不包括填充)，请参阅svg。可以是一个设备函数(例如png)，也可以是"eps"， "ps"， "tex" (pictex)， "pdf"， "jpeg"， "tiff"， "png"， "bmp"， "svg"或"wmf"(仅限windows)之一。
R语言可视化结果图片保存实战：将图片保存为pdf文件 、R语言将图片保存为png文件 、R语言使用ggsave将图片保存为png文件或者pdf文件
最新发布
statistics+insight+vista+power
03-01 459
R语言可视化结果图片保存实战：将图片保存为pdf文件 、R语言将图片保存为png文件 、R语言使用ggsave将图片保存为png文件或者pdf文件
R语言：图片保存、拼图
Mrrunsen的博客
02-05 1590
library(ggplot2)p<-ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut,fill=clarity))p pdf("保存.pdf",width=6,height=6,) ggplot(data = diamonds) + geom_bar(mapping = aes(x = cut,fill=clarity)) dev.off() 保存为pdf 保存为tiff tiff(...
R语言ggplot2循环中保存图片失败问题
cfc424的博客
08-02 3196
R语言ggplot2循环中保存图片失败问题
R语言实操记录——导出高清图片（矢量图）
qq_45794091的博客
11-06 1万+
R语言实操记录——导出高清图片（矢量图）
R语言作图保存[保存]
bearhoop IT之道
07-18 2万+
R语言 生成图片 存储图片 存储图片格式 存储位置 在生物统计家园上有详细答复http://www.biostatistic.net/foru ... ead&tid=2255&extra= 很多人都会遇到R语言生成的图片，如何存储的问题。尤其对初学R语言的人，更是一个大问题。 因此我在这里将R语言 生成图片 存储图片 存储图片格式 存储位置的方式做一个汇总介绍，一同与大家分享。
R语言绘图、高清保存、以及颜色系统
打不死的小强
04-05 2万+
转载于R语言中文论坛R语言中文社区 由于R语言基础作图部分内容简单直接，但参数繁多，因此这里不做系统介绍，只挑出几个点来讲一讲。主要介绍R中的颜色系统。 目录 一个作图示例 图片的高清保存 par函数使用技巧 颜色系统 作图使用中文乱码 基础作图和数学公式的演示 一个作图示例
自定义保存图像的分辨率（R语言）
TechPr的博客
08-26 1586
在R语言中，我们经常需要将生成的图像保存为文件。默认情况下，R会将图像保存为屏幕分辨率，但有时我们需要自定义保存图像的分辨率。本文将介绍如何在R中自定义保存图像的分辨率，并提供相应的源代码示例。通过以上步骤，我们可以在R中自定义保存图像的分辨率。你可以根据需要调整分辨率的数值，使得保存的图像在打印或显示时具有更高的质量。运行以上代码后，会生成一个分辨率为300 dpi的PNG图像文件"output.png"，其中包含了我们绘制的散点图。要自定义保存图像的分辨率，我们可以使用R的图形设备参数来设置分辨率。
用R语言高效下载图片
简书博客搬家测试账号
03-16 582
作者：刘小芬，R语言中文社区专栏作者。知乎专栏：https://www.zhihu.com/people/liu-xiao-fen-10/columns 有时候无法避免需要上网下载一些图片，一开始都是复制-粘贴，或者是右键另存为，不仅效率低，而且单纯手工操作，容易遗漏。于是，就想到曾经用R语言爬取网站表格数据，思考是不是可以用R语言下载图片呢？参考杜雨的文章进行自己的...
在 R 中保存高分辨率图像
Mrrunsen的博客
02-15 1156
我在 R 中使用 ggplot 创建散点图。我想将图表保存为 300 DPI 的 tiff 图像，以便将其发布在期刊中。res=300指定您需要分辨率为 300 dpi 的图形。名为“test.tiff”的图形文件保存在您的工作目录中。根据所需的输出更改上面代码中的width和。
数据输入输出，R图片保存
taojiea1014的博客
02-02 1208
rm(list=ls())mydata &lt;- read.table("clipboard", header=TRUE, sep="\t")mydata &lt;- read.csv("c:\mydata\mydatafile.csv", header=TRUE)# The will open a window to search for the *.csv file.# In the exa...
R语言如何单独保存输出图片文件
热门推荐
dltan
02-23 7万+
前言：记得设置图片的保存工作路径，即数据文件路径：setwd(“C:\Users\TDL\Desktop\test.picture”) 1.图片文件保存输出 jpeg(file = "style.jpg") plot(iris[,1],col="red") ## 画图程序 dev.off(); 2.图片尺寸调整输出 p.picture=paste(a,"test.jpg") jpeg(p.pi...
使用R语言保存图片为png或pdf文件
CodeByte的博客
08-11 3362
其中，第一个参数是要保存的图形对象，第二个参数是保存的文件名，第三个参数是dpi（每英寸点数），用于指定图形的分辨率。通过设置适当的参数，我们可以获得高质量的图像，并将其用于发表、报告和其他需求中。在R语言中，我们可以使用ggsave函数将绘制的图形保存为png或pdf格式的文件。ggsave函数是ggplot2包提供的一个非常方便的函数，它可以保存由ggplot2绘制的图形对象。在上述代码中，我们首先创建了一组数据x和y。使用ggsave函数时，还可以使用其他参数来控制保存的图像的大小、宽高比等。
R语言笔记②——基本绘图、快速绘图和保存图片
ww0peo的博客
03-01 7814
基本绘图 plot()函数可以画出散点图或者直线图 > x <- c(1:3) > y <- x + 2.5 > plot(x,y) > plot(x,y,type = 'l') barplot()函数可以画出条形图 barplot(c(88,79,99),names.arg = c('小明','小红','小刘'),ylim = c(0,100)) ...
R语言plotly 图片保存
06-03
要将 R 语言中的 Plotly 图片保存为图片格式，可以使用 `orca()` 函数或 `plotly::export()` 函数。这两个函数都是 Plotly 官方提供的用于静态图像导出的工具。以下是两个示例代码： 使用 `orca()` 函数： ```R library(plotly) # 使用 Plotly 绘制图形 fig <- plot_ly(x = c(1, 2, 3), y = c(4, 5, 6), type = 'scatter', mode = 'markers') # 将图形保存为 PNG 文件 orca(fig, file = 'plot.png', width = 800, height = 600) ``` 在这个示例中，我们使用 `plot_ly()` 函数绘制了一个散点图，并将其保存为名为 `plot.png` 的 PNG 文件。要使用 `orca()` 函数，您需要在系统上安装 Orca。 使用 `plotly::export()` 函数： ```R library(plotly) # 使用 Plotly 绘制图形 fig <- plot_ly(x = c(1, 2, 3), y = c(4, 5, 6), type = 'scatter', mode = 'markers') # 将图形保存为 PNG 文件 plotly::export(fig, file = 'plot.png', width = 800, height = 600) ``` 在这个示例中，我们使用 `plot_ly()` 函数绘制了一个散点图，并将其保存为名为 `plot.png` 的 PNG 文件。要使用 `plotly::export()` 函数，您需要在 `plotly` 包中加载 `export()` 函数。 请注意，您可以将文件扩展名修改为其他支持的格式，例如 `plot.svg` 或 `plot.pdf`，具体取决于您的需要。 希望这可以帮助您将 R 语言中的 Plotly 图片保存为图片格式。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值