使用ggplot2进行数据可视化—位置调整（六）

条形图上色🎨

可以使用color或者fill图形属性来为条形图上色：

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

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

 

 如果将fill图像属性映射到另一个变量（比如clarity），那么条形会自动分块堆叠起来。每个彩色矩阵表示cut和clarity的一种组合。

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

 这种堆叠是position参数设定的位置调整功能自动完成的，如果不想生成堆叠式条形图，还可以用其他选项：“identity”，“fill”和“dodge”

位置调整

1⃣️position=“identity”：直接将clarity参数的数值显示在图中，不适合条形图，因为条形会彼此重叠，为了让重叠部分能够显现出来，可以设置透明度alpha参数为一个较小的数值

ggplot(data = diamonds,
       mapping = aes(x=cut,fill=clarity))+
  geom_bar(alpha=1/5,position = "identity")

 或者设定fill=NA，让条形图完全透明：

ggplot(data = diamonds,
       mapping = aes(x=cut,color=clarity))+
  geom_bar(fill=NA,position = "identity")

2⃣️position=“fill”,效果与堆叠相似，但每组堆叠图形有相同的高度，因此可以用来比较各组间的比例： 

ggplot(data = diamonds)+
  geom_bar(mapping = aes(x=cut,fill=clarity),
           position = "fill")

3⃣️position=“dodge”将每组中的条形依次并列放置，可以比较每个条形表示的具体数值：

ggplot(data<-diamonds)+
  geom_bar(
    mapping = aes(x=cut,fill=clarity),
    position = "dodge"
  )

4⃣️position=“jitter”

散点图中有些点彼此重叠，导致无法观测到所有的点，于是可以将位置调整方式设为“抖动”。

ggplot(data = mpg)+
  geom_point(
    mapping = aes(x=displ,y=hwy),
    position = "jitter"
  )