使用ggplot2进行数据可视化—条形图（五）

计数：

可以使用geom_bar()函数绘制基本的条形图。使用数据为ggplot2的内置数据集diamonds。可以显示不同切割质量的钻石的数量。

ggplot(data = diamonds)+
  geom_bar(mapping = aes(x=cut))

 

很多图形绘制的是数据集的原始数据，比如散点图。但条形图也可以绘制出计算出的新数据，比如上图显示的数量。绘图时用来计算新数据的算法称为stat（statistical transformation，统计变换）。通过查看stat参数的默认值，可以知道几何对象函数使用了哪种统计变换。比如geom_bar()显示出的stat的默认值是count，这说明geom_bar()使用stat_count()函数进行统计变换。

通常来说，几何对象函数和统计变换函数可以互相使用，比如可以使用stat_count()替换geom_bar()来做图：

ggplot(data = diamonds)+
  stat_count(mapping = aes(x=cut))

可以这样做的原因是每个几何对象函数都有一个默认统计变换，每个统计变换函数都有一个默认几何对象。

在实际应用过程中，会涉及到不需要统计变换而是给出具体的数据，这时需要将geom_bar()函数的统计变换计数（默认值）修改为标识。这时就可以将条形图的高度映射为y轴变量的初始值。 

demo <- tribble(
  ~a, ~b,
  "bar_1",20,
  "bar_2",30,
  "bar_3",40
)
ggplot(data = demo)+
  geom_bar(
    mapping = aes(x=a,y=b),stat = "identity"
  )

 比例：

想要把默认的统计变换生成的数据变成比例条形图：

ggplot(data = diamonds)+
  geom_bar(mapping = aes(x=cut,y=..prop..,group=1))