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")
p1
dev.off() ## png先创建文件再画图保存

jpg格式

p1
ggsave("p1.jpg",width = 6,height = 5)
jpeg("p1.jpg",width = 1200,height = 1000,units = "px")
p1
dev.off()

tiff格式

  p1ggsave("p1.tiff",width = 6,height = 5)tiff("p1.tiff",width = 1200,height = 1000,units = "px")p1dev.off()

bmp格式

  p1ggsave("p1.bmp",width = 6,height = 5)bmp("p1.bmp",width = 1200,height = 1000,units = "px")p1dev.off()

pdf格式

p1
ggsave("p1.pdf",width = 5,height = 6,family="GB1")
pdf("p1.pdf",width = 5,height = 6,family="GB1")
p1
dev.off()

ppt格式

p1
library(eoffice)
topptx(p1,"p1.pptx")

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

R语言使用haven包的read_spss函数读取spss格式数据、使用haven包的read_sas函数读取SAS格式数据、使用haven包的read_dta函数读取Stata格式数据
R语言使用haven包的read_spss函数读取spss格式数据.使用haven包的read_sas函数读取SAS格式数据.使用haven包的read_dta函数读取Stata格式数据目录
R语言配对图可视化：pivot_longer函数将宽格式的数据重塑为长格式并进行数据全连接和左连接(left join)、配对图可视化(根据分类变量的值为散点图上的数据点添加颜色）
R语言配对图可视化:pivot_longer函数将宽格式的数据重塑为长格式并进行数据全连接和左连接(left join).配对图可视化(根据分类变量的值为散点图上的数据点添加颜色,Add color ...
R语言scan函数读取文件为向量或者列表格式实战
R语言scan函数读取文件为向量或者列表格式实战目录 R语言scan函数读取文件为向量或者列表格式实战 #基本语法
R语言as.Date函数将字符串转化为日期格式实战
R语言as.Date函数将字符串转化为日期格式实战目录 R语言as.Date函数将字符串转化为日期格式实战 #基础语法 # 仿真数据
R语言导出为html,科学网—[转载]R语言中数据的导入与导出（笔记） - 刘朋的博文...
!!!help文档!!! 1.导入数据语句为mydata 要分析的.csv数据(.xlsx另存为...)导入.数据导入后可以edit(mydata),R语言工作区就会弹出数据, 可以进行编辑和修改.还 ...
R语言导出CSV出现乱码的处理
今天领导在网上的免费数据库下载了一个数据包,打开一开dta后缀名,查询后发现是stata软件处理的文件.然而手上只有R,最近在学习这个,所以搜索了下.有两种方法可以打开. 方法一:使用haven数据包 ...
R语言实战（中文完整版）pdf
下载地址:网盘下载内容简介 · · · · · · 数据时代已经到来,但数据分析.数据挖掘人才却十分短缺.由于"大数据"对每个领域的决定性影响, 相对于经验和直觉,在商业.经济 ...
说一下R语言的strptime()及衍生的一些时间序列的格式及使用问题
最近在处理时间格式的数据的时候总是出问题,结果是一堆NA,很是让人恼火,尤其是在?strptime后运行example里面的代码,还是一堆NA,彻底无语了.经过本人一番仔细检查后,发现了问题,希望可以 ...
r语言导出html改不了名,请问如何进行数据框列的重命名？
假设有三组数据: > weight = c(150, 135, 210, 140) > height = c(65, 61, 70, 65) > gender = c("F ...

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

文章目录

png格式

jpg格式

tiff格式

bmp格式

pdf格式

ppt格式

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

最新文章

热门文章