ggplot2 “高定图片”的具体参数设置
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)
geom中文本设置参数：
在theme 设置中element_text()是一项很重要的内容
element_text(family = NULL, face = NULL, colour = NULL, size = NULL, hjust = NULL, vjust = NULL, angle = NULL, lineheight = NULL)
参数family 表示字体样式
参数face 表示字体格式，可取值("plain", "italic", "bold", "bold.italic")
参数colour 表示字体颜色
参数size 表示字体大小
参数hjust 用于调整水平距离，可调整范围0到1之间
参数vjust 用于调整垂直距离，可调整范围0到1之间
参数angle 用于调整字体的倾斜度，调整范围0到360
参数lineheight 表示线条高度
