先简单介绍一下今天要分享的绘图内容，分别有：饼图、棒棒糖图、Cleveland 点图。
接下来，先安装 ggpubr 包：
＃ Install from CRAN：install．packages（＂ggpubr＂）library（ggpubr）
饼图
＃ 先构建数据
df6 ＜－ data．frame（group ＝ c（＂Male＂， ＂Female＂， ＂Child＂）， value ＝ c（25， 25， 50））
head（df6）
＃ group value＃ 1 Male 25＃ 2 Female 25＃ 3 Child 50
＃ 饼图基础模式ggpie（df6， ＂value＂， label ＝ ＂group＂）
＃ 修改轮廓线颜色、填充色
ggpie（df6， ＂value＂， label ＝ ＂group＂， fill ＝ ＂group＂， color ＝ ＂white＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂， ＂＃FC4E07＂） ）
＃ 修改标签为组名（比例）labs ＜－ paste0（df5＄group， ＂ （＂， df5＄value， ＂％）＂）labs＃ ［1］ ＂Male （25％）＂ ＂Female （25％）＂ ＂Child （50％）＂
ggpie（df6， ＂value＂， label ＝ labs， fill ＝ ＂group＂， color ＝ ＂white＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂， ＂＃FC4E07＂））
＃ 调整标签的位置和颜色ggpie（df6， ＂value＂， label ＝ labs， lab．pos ＝ ＂in＂， lab．font ＝ ＂white＂， fill ＝ ＂group＂， color ＝ ＂white＂， palette ＝ c（＂＃00AFBB＂， ＂＃E7B800＂， ＂＃FC4E07＂））
ggpie 函数：
用法：
ggpie（data， x， label ＝ NULL， lab．pos ＝ c（＂out＂， ＂in＂）， lab．adjust ＝ 0， lab．font ＝ c（4， ＂bold＂， ＂black＂）， color ＝ ＂black＂， fill ＝ ＂white＂， palette ＝ NULL， size ＝ NULL， ggtheme ＝ theme＿classic（）， ．．．）
参数：
data
所需的数据框 dataframe
x
进行作图所需的数据
label
设置饼图每一部分的标签
lab．pos
设置 label 的位置，选项有：＂out＂ （for outside） or ＂in＂ （for inside）
lab．adjust
当 lab．pos ＝ ＂in＂ 时，调整 label 在饼图中的位置
lab．font
设置标签的字体：大小、类型（e．g．： ＂plain＂， ＂bold＂， ＂italic＂， ＂bold．italic＂）、颜色
如：lab．font＝ c（4， ＂bold＂， ＂red＂）
color， fill
轮廓线的颜色和填充色
palette
自定义颜色画板
size
设置点和轮廓线的大小
