ggplot2——柱状图

最新推荐文章于 2025-03-17 20:18:01 发布

九茶

最新推荐文章于 2025-03-17 20:18:01 发布

阅读量3.9w

点赞数 9

分类专栏： R R语言文章标签： R ggplot2 柱状图作图

本文链接：https://blog.csdn.net/bone_ace/article/details/47267981

版权

R语言同时被 2 个专栏收录

17 篇文章

订阅专栏

16 篇文章

订阅专栏

初始图样：

library(ggplot2)
library(ggthemes)
dt = data.frame(obj = c('A','D','B','E','C'), val = c(2,15,6,9,7))
p = ggplot(dt, aes(x = obj, y = val, fill = obj, group = factor(1))) + 
    geom_bar(stat = "identity") +
    theme_economist()
p

这里写图片描述

如何修改柱条的宽度：

library(ggplot2)
library(ggthemes)
dt = data.frame(obj = c('A','D','B','E','C'), val = c(2,15,6,9,7))
p = ggplot(dt, aes(x = obj, y = val, fill = obj, group = factor(1))) + 
    geom_bar(stat = "identity", width = 0.5) +   ## 修改柱条的宽度
    theme_economist()
p

这里写图片描述

如何修改柱条的顺序：

library(ggplot2)
library(ggthemes)
dt = data.frame(obj = c('A','D','B','E','C'), val = c(2,15,6,9,7))
dt$obj = factor(dt$obj, levels=c('D','B','C','A','E'))   ## 设置柱条的顺序
p = ggplot(dt, aes(x = obj, y = val, fill = obj, group = factor(1))) + 
    geom_bar(stat = "identity", width = 0.5) +   ## 修改柱条的宽度
    theme_economist()
p
## 特注：dt$obj 是因子类型，ggplot2作图的顺序就是按照这个因子水平的顺序来的，
## 所以我们修改因子水平的顺序即可修改作图的顺序，具体情况可以输出一下 dt$obj 。

这里写图片描述

如何在柱条上添加文字：

library(ggplot2)
library(ggthemes)
dt = data.frame(obj = c('A','D','B','E','C'), val = c(2,15,6,9,7))
dt$obj = factor(dt$obj, levels=c('D','B','C','A','E'))   ## 设置柱条的顺序
p = ggplot(dt, aes(x = obj, y = val, fill = obj, group = factor(1))) + 
    geom_bar(stat = "identity", width = 0.5) +   ## 修改柱条的宽度
    theme_economist() + 
    geom_text(aes(label = val, vjust = -0.8, hjust = 0.5, color = obj), show_guide = FALSE) +   ## 显示柱条上的数字
    ylim(min(dt$val, 0)*1.1, max(dt$val)*1.1)   ## 加大 Y 轴的范围，防止数字显示不齐全
p