R语言分组绘制频率概率图

Posted 2021-04-18 东海岸的向往

前面

其实，画这个图很简单。分享的原因是自己在做这个图的时候觉得挺漂亮的。重要的是，以后万一忘记了，可以根据公众号找回来重新做。提供数据和代码，想学习的可以直接下载数据，根据提供的代码进行练习。

另外，这个图最重要的就是ggplot2包和ggpubr包；安装第二个包的过程中，如果出现错误提示需要R 3.6.3版本构建的话，那么可以尝试用个较低的版本试试，如R 3.4.0。更新的版本往往有些bug，会和以前的包不兼容。

最后，需要注意的是我们提供的数据不是真实退休年龄数据，仅供演示，不提供数据真实的保证，更不可直接作为研究引用。

数据链接：

https://pan.baidu.com/s/1g1mtvaeZnY3TDTXqEs00og提取码：80uw

代码如下

##退休年龄图

retire<-read.csv("C:/Users/ASUS/Desktop/retire/retire_age.csv") 

library(ggplot2)
library(ggpubr)


gghistogram(retire, x = "retire_age",y = "..density..",
            add = "median", #添加一个中位数虚线
            rug = TRUE,binwidth = 1, #设置柱状图宽度，bin设定很重要
            add_density = TRUE, # 添加密度曲线
            color = "gender", fill = "gender",
            palette = c("#00AFBB", "#E7B800") # 设置画板颜色
)

结果显示如下