没有ggplot这个函数_patternplot包：用ggplot解决你对线性填充，不！所有填充的全部幻想。...

写在前面

patternplot包，提供了丰度的图形可视化填充选项，但是目前我尽然没忽悠看到一篇推文来介绍和学习这个R包的。

大家都知道，柱状图我们在中文中常见填充的除了颜色，还有形状，用不同的线填充，区分不同分组，因为中文期刊彩色版面费贵一些，所以很多老师都会使用形状填充柱状图来节省经费。这样也显得低调和朴素。

但是你们有没有想过，这些填充不同线条的图形几乎都不是R语言做的。说狭隘一点，R语言不并没有成熟的解决方案。

今天我介绍的这个R包，patternplot包可以很完美的解决这个应用，我想相信这回cover大部分人的需求，因为我们在R语言中做出这种线条区分的图形实在是太少了。

patternplot 包

安装R包,这个包依赖ggplot，还是很可以的，但是就是使用方法不是很ggplot，如果作者能够将这种方式继续进行改造，相信引用会很高的。目前这个包已经上了cran，大家直接运行下面代码即可安装，这里我注释掉了，大家需要去除“#”即可。

# install.packages("patternplot")

library(patternplot)
library(png)
library(ggplot2)

饼图

data data $pct

下面我们通过一个简单的例子 演示用法

有三个参数是必要的，必须设置，就是下面三个：

分组，数据，分组标签，填充模式。

#--填充样式
pattern.typepie1  group=data$group,
                 pct=data$pct,# 饼图分组名称
                 label=data$label, # 标签
                 pattern.type=pattern.type,
                 )

pie1

可选参数

主要有三种：

• label,标签设置

• frame边框设置

• density 填充密度

?patternpie

#--填充样式
pattern.typepie1  group=data$group,
                 pct=data$pct,# 饼图分组名称
                 label=data$label, # 标签
                 label.size=4,
                 label.color='black', # 标签
                 label.distance=1.3, # 标签距离
                 pattern.type=pattern.type,
                 pattern.line.size=c(10, 10, 2), # 设置填充的线尺寸
                 frame.color='red', # 每个部分边框颜色
                 frame.size=1,# 边全部框的粗细
                 pixel=12, # 分辨率，图形的
                 density=c(8, 8, 30)# 设置填充的密度
                 #
                 )

pie1
pie1
pie1

全部黑白 中文期刊格式

?patternpie
#Example 1
pattern.typepie1                 pct=data$pct,
                 label=data$label,
                 label.size=4,
                 label.color='black',
                 label.distance=1.3,
                 pattern.type=pattern.type,
                 pattern.line.size=c(10, 10, 2),
                 frame.color='black',
                 frame.size=1.5,
                 pixel=12,
                 density=c(8, 8, 10))
pie1
pie1

这里学习pattern.color：设置每种模式的颜色，pattern.color设置每块背景颜色

#Example 2
pattern.colorbackground.colorpie2                 pct=data$pct,
                 label=data$label,
                 label.distance=1.3,
                 pattern.type=pattern.type,#设置样式
                 pattern.color=pattern.color,# 设置颜色
                 background.color=background.color,
                 pattern.line.size=c(10, 10, 2), frame.color='grey40',frame.size=1.5, pixel=12, density=c(8, 8, 10))
pie2pie2