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 表示線條高度