ggplot2 “高定图片”的具体参数设置

Posted 2020-11-05 JoAnna_L

library(ggplot2)
library(grid)
library(gridExtra)
library(openxlsx)
library(tidyr)
library(scales)  ##此包在转换百分比数据时使用
setwd("F:/~系统用户文件/Desktop/周五")
data_raw <- read.xlsx("数据1.xlsx",sheet =1)

speci <- c(‘成就欲‘,‘‘,‘‘,‘‘,‘‘,‘‘,‘‘,‘‘,‘‘)  ##循环变量

for (i in 1:9) {
  p1 <- ggplot(data3,aes(x=factor(X1),y=data3[,1+i])) +  #定义X和Y
               
               geom_bar(stat="identity",fill="#0072B2")+      #条形图 fill= 为填充色
               
               geom_text(aes(label=data3[,1+i]),vjust=-1.1)+  #数据标签显示，label=显示的数字，vjust调整数字显示高低
               
               scale_y_continuous(limits = c(0,100),expand = c(0,0),breaks = seq(0,100,10))+ # 定义纵坐标轴的刻度 expand定义纵坐标轴起点不留白
               
               theme_bw()+  #定义图片边框 有好几种可以选择，可挨个尝试看一下
               
               theme(axis.text.x = element_text(size=13,face=‘bold‘),title=element_text(size=12,face =‘bold‘)#定义横坐标标题和标题的文字大小size和字体格式，粗细程度face 
               ,panel.grid.major = element_blank(),panel.grid.minor = element_blank(),axis.line = element_line(colour = "black"))+
               
               labs(title=paste("特质",‘(‘,cj[i],‘)‘,sep = ‘‘),y=‘百分等级‘,x=‘特质‘)+   #标题设置
              
               geom_line(aes(y=均值,colour=‘#D55E00‘,group=1),size=1)+  #使用另外一列数据进行画线，加入已有的图片中，要定义group，size为线条粗细
               
               geom_point(aes(y=均值,colour=‘yellow‘))+   # 加散点图
         
               geom_hline(aes(yintercept =55.4,colour=‘#D55E00‘),size=1)+ #加水平直线，加垂直线改为vline

               theme(legend.position=‘none‘,plot.title=element_text(hjust=0.5,size=12)) #定义标题的位置，高度和大小
  
              ggsave(paste(cj[i],".jpeg",sep = ‘‘), p1,width = 9, height = 5)    
}