0. 說(shuō)明：

1. 繪制條形圖；
2. 添加文本并調(diào)整位置；
3. 調(diào)整x軸刻度的字體、角度及顏色；
4. 在導(dǎo)出pdf時(shí)，如果沒(méi)有字體，該怎么解決問(wèn)題；

1. 結(jié)果：

文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-715928.html

2. 代碼：

library(ggplot2)
library(hrbrthemes)
library(sysfonts) ## 添加字體
library(showtext) ## 顯示字體

#font_add("Times New Roman", "/Users/zzy/fonts_R/Times_new_roman_bold.ttf") ## 手動(dòng)添加字體 (字體名稱(chēng)，字體包路徑)
pdf("/Users/zzy/Desktop/linshi.pdf", width = 6, height = 5) # 打開(kāi)圖形設(shè)備
showtext_begin() 


dt = data.frame(category = c("A", "B", "C", "D", "E", "F", "G", "H",
                              "I","J","K",
                              "L","M","N","O","P","Q"),
                 value = c(10, -20, 15, 25, 30, 20, -10, 30,
                           20, 5, -50,
                           -10, 10, 3, 3, 2, -5),
                groups = c("pos","pos","pos","neg","neg","pos","neg","pos",
                        "pos","pos","pos",
                        "neg","pos","pos","neg","neg","pos"),
                text = c("*","","","","**","","","***",
                         "","","*",
                         "*","","*","*","",""))

## 指定特定的順序
dt$category = factor(dt$category, levels = c("D", "E", "F", "G", "H", "A", "B", "C",
                                           "I","J","K",
                                           "N","O","P","Q","L","M"))
## 添加調(diào)整位置的列
pos_list = c()
for (v in dt$value){
  if (v>0){
    pos_list = c(pos_list, 0.5)
  }else{
    pos_list = c(pos_list, 1)
  }
}
dt$pos_list = pos_list

## 添加顏色列
dt$diycolor = c(rep("red",8), rep("blue", 3), rep("green", 6))

## 繪圖
ggplot(data=dt, aes(x=category, y=value, fill=groups))+
  geom_bar(stat = "identity")+ ## 繪制條形圖，stat使用identity，顯示原始數(shù)據(jù)
  geom_text(aes(label=text), color="black", size=8, vjust=dt$pos_list) + ## 添加并調(diào)整星號(hào)的位置
  scale_fill_manual(values = c("red", "blue"))+
  ylab("Value")+
  theme_classic()+
  theme(axis.text.x = element_text(angle=45, hjust = 1, vjust=1, color=dt$diycolor), ## 調(diào)整 x 坐標(biāo)軸刻度，旋轉(zhuǎn)，并分組賦予顏色
        axis.text = element_text(size=15, face ="bold"),  ## x和y坐標(biāo)軸刻度字體調(diào)整
        axis.title.x = element_blank(), ## 不顯示x坐標(biāo)軸標(biāo)題
        axis.title.y = element_text(size=15, face="bold"),
        legend.position = "none") ## 不顯示圖例



showtext_end() 
dev.off()

到了這里，關(guān)于R語(yǔ)言繪圖-5-條形圖（修改坐標(biāo)軸以及圖例等）的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！