＃ 修改x轴区间个数：gghistogram（df1， x＝＂weight＂， add ＝ ＂mean＂， rug ＝ TRUE， color ＝ ＂sex＂， fill ＝ ＂sex＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂），bins ＝ 50）
＃ 添加密度曲线gghistogram（df1， x ＝ ＂weight＂， add ＝＂mean＂， rug ＝ TRUE， fill ＝＂sex＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂）， add＿density ＝TRUE）
＃ y 设置为密度gghistogram（df1， x ＝ ＂weight＂， y ＝ ＂．．density．．＂， add ＝＂mean＂， rug ＝ TRUE， fill ＝＂sex＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂）， add＿density ＝TRUE）
＃ 设置分组分面
gghistogram（df1， x ＝ ＂weight＂， facet．by ＝ ＂sex＂， add ＝＂mean＂， rug ＝ TRUE， fill ＝＂sex＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂）， add＿density ＝TRUE）
＃ 设置分面各组的标题
gghistogram（df1， x ＝ ＂weight＂， facet．by ＝ ＂sex＂， panel．labs ＝ list（sex ＝ c（＂Female＂， ＂Mmale＂））， add ＝＂mean＂， rug ＝ TRUE， fill ＝＂sex＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂）， add＿density ＝TRUE）
gghistogram 函数：
用法：
gghistogram（data， x， y ＝ ＂．．count．．＂， combine ＝ FALSE， merge ＝ FALSE， color ＝ ＂black＂， fill ＝ NA， palette ＝ NULL， size ＝ NULL， linetype ＝ ＂solid＂， alpha ＝ 0．5， bins ＝ NULL， binwidth ＝ NULL， title ＝ NULL， xlab ＝ NULL， ylab ＝ NULL， facet．by ＝ NULL， panel．labs ＝ NULL， short．panel．labs ＝ TRUE， add ＝ c（＂none＂， ＂mean＂， ＂median＂）， add．params ＝ list（linetype ＝ ＂dashed＂）， rug ＝ FALSE， add＿density ＝ FALSE， label ＝ NULL， font．label ＝ list（size ＝ 11， color ＝ ＂black＂）， label．select ＝ NULL， repel ＝ FALSE， label．rectangle ＝ FALSE， ggtheme ＝ theme＿pubr（）， ．．．）
参数：
data
所需的数据框（dataframe）
x
x轴作图所需的数据
y
设置为密度或count数（＂．．density．．＂ or ＂．．count．．＂）
combine
对于多个变量的数据是否分面。逻辑值，默认是FALSE。
merge
对于多个变量数据是否合并，默认是FALSE
color， fill
线条颜色与填充色
palette
自定义颜色画板
size
设置点和轮廓的大小
linetype
线条类型
alpha
透明度设置
bins
bin（x轴的区间）的个数，默认最高到30
binwidth
bin的宽度，数值在（0，1）
title
设置标题
xlab
设置x轴标题
ylab
设置y轴标题
facet．by
设置分组分面
panel．labs
设置分面各组的标题
short．panel．labs
是否缩写分面标题，逻辑值，默认是TRUE。
add
添加均值或中位数线（＂mean＂ or ＂median＂）
add．params
给add参数的对象添加其他参数／属性
rug
是否添加边际线
add＿density
是否添加密度曲线
label
设置列标签
font．label
设置标签字体
repel
逻辑值，是否使用ggrepel避免字体重叠
label．rectangle
是否给标签添加方框
ggtheme
设置画图主题
柱状图
＃先构建数据集
df2 ＜－ data．frame（dose＝c（＂D0．5＂， ＂D1＂， ＂D2＂）， len＝c（4．2， 10， 29．5））head（df2）＃ dose len＃ 1 D0．5 4．2＃ 2 D1 10．0＃ 3 D2 29．5
＃ 柱状图基础版本：ggbarplot（df2， x ＝ ＂dose＂， y ＝ ＂len＂）
＃ 添加y的值作为标签ggbarplot（df2， x ＝ ＂dose＂， y ＝ ＂len＂， label ＝ TRUE， label．pos ＝ ＂out＂）
＃ 更改柱子的宽度ggbarplot（df2， x ＝ ＂dose＂， y ＝ ＂len＂， width ＝ 0．5）
