R语言导出图片为png、jpg、tiff、pdf、ppt格式

link管理
链接快照平台
输入网页链接，自动生成快照
标签化管理网页链接
png格式

data2 <- readxl::read_xlsx("C:\\Users\\zhang\\Desktop\\小白菜试验数据.xlsx",sheet="Sheet3")
str(data2)
data_2 <- data2%>%group_by(Species,Treatment)%>%filter(Treatment!=20)%>%
  summarise(Root=mean(Root_lenght),Root_sd=sd(Root_lenght),
            Embryo=mean(Embryo_length),Embryo_sd=sd(Embryo_length),
            wet=mean(Wet_weight),wet_sd=sd(Wet_weight))
data_2$Treatment <- factor(data_2$Treatment,levels = c("CK","1.25","2.5","5","10"))
p1 <- data_2%>%ggplot()+
  geom_col(aes(x=Treatment,y=Root,fill= Species), 
           colour  = 'black',## 边框,
           position=position_dodge(1))+
  geom_errorbar(aes(x=Treatment,ymax=Root+Root_sd,ymin=Root-Root_sd,
                    color=Species),width=0.3,
                position=position_dodge(1))+
  scale_fill_manual(values=c("grey","white"))+
  scale_color_manual(values = c("black","black"))+
  ylim(0,230)+
  labs(x="浸提液质量浓度 (mg/mL)",y="根长 (mm)")+
  theme_classic() + 
  theme(axis.ticks.length.y = unit(-0.15, 'cm'),
        axis.text.y = element_text(margin = unit(c(0.2, 0.2, 0.2, 0.2), 'cm'))) +  #修改y轴刻度朝内
  theme(axis.line = element_line(arrow = arrow(length = unit(0.2, 'cm')))) + #坐标轴尾端为箭头
  theme(legend.title = element_blank(),
        legend.position = c(0.2,0.9),
        text = element_text(size=10.5,  family="serif"))
ggsave("p1.png",width = 6,height = 5)  ##ggplot 中直接保存
png("p1.png",width = 1200,height = 1000,units = "px")
dev.off() ## png先创建文件再画图保存
jpg格式
 
ggsave("p1.jpg",width = 6,height = 5)
jpeg("p1.jpg",width = 1200,height = 1000,units = "px")
dev.off()
tiff格式
 
  ggsave("p1.tiff",width = 6,height = 5)
  tiff("p1.tiff",width = 1200,height = 1000,units = "px")
  dev.off()
bmp格式
 
  ggsave("p1.bmp",width = 6,height = 5)
  bmp("p1.bmp",width = 1200,height = 1000,units = "px")
  dev.off()
pdf格式
 
ggsave("p1.pdf",width = 5,height = 6,family="GB1")
pdf("p1.pdf",width = 5,height = 6,family="GB1")
dev.off()
ppt格式
 
library(eoffice)
topptx(p1,"p1.pptx")
				注意首先安装R的rticles文档模板包
Rstudio Markdown中文输出PDF文件：需要下载安装Tex文档编译器（texlive 或MikTex）， 也可以运行以下代码,安装谢益辉提供的代码来解决tex文档编译问题：
library(tinytex) 
install_tinytex(
 force = FALSE,
 dir = "auto",
 version = "",
 repository = "ctan",
 extra_packages = if (is_tinytex()) t.
				R语言有两大主要功能，绘图和统计，R的绘图功能是很强大的，在R里绘制好图形后常常需要输出图形。
图形常见的格式有位图和矢量图，位图又包括TIFF、BMP、JPEG、PNG等；矢量图包括PDF、VMF、SVG等。
今天就来学习R中怎么导出常见的位图和矢量图形。
1. 导出位图
保存图形时，将绘图代码放在开启目标图形设备的语句和关闭目标图形设备的语句之间即可。
tiff("mygraph.tiff")#开启目标图形设备
plot(mtcars$wt,mtcars$mpg)#绘图代...
const inputFilePath = path.join(__dirname, 'input.webp');
const outputFilePath = path.join(__dirname, 'output.png');
// 使用 Jimp 将 webp 格式的图片转换为 png 或 jpg 格式
Jimp.read(inputFilePath)
  .then(image => {
    image.write(outputFilePath);
    console.log(`Image ${inputFilePath} converted to ${outputFilePath}`);
  .catch(err => {
    console.error(err);
这个示例中，我们首先指定了输入的 webp 图片路径和输出的 png 或 jpg 图片路径，然后使用 Jimp 库的 `Jimp.read` 函数读取输入的 webp 图片，再使用 `image.write` 函数将图片保存为输出的 png 或 jpg 图片。
需要注意的是，使用 Jimp 库需要先安装相关依赖，可以通过以下命令安装：
```bash
npm install jimp
另外，Jimp 支持的图片格式包括 png、jpeg、bmp、tiff、gif、webp、svg 等，如果需要将 webp 转换为其他格式的图片，只需要将输出的文件路径后缀改为对应的格式即可。