关于R语言密度图的一些细节

一般直方图的形式如下：

ggplot(data,aes(x=Insertion_Time,y =..count..,fill=Superfamily)) +
  geom_histogram(color="#e9ecef", alpha=0.5, position = 'identity') +
  scale_fill_manual(values=c( "midnightblue","blue1"))+
  theme_classic()

ggplot(data,aes(x=Insertion_Time,y =..count..,fill=Superfamily)) +
  geom_histogram(color="#e9ecef", alpha=0.5, position = 'identity') +
  scale_fill_manual(values=c( "midnightblue","blue1"))+
  geom_density()+
  theme_classic()

有时我们可能需要加入密度曲线，如下：

这时候我们就会发现，这个密度曲线是有一个面积的，而且这个面积还挡住了我们的柱形图，与我们想要的那种效果有点差别，很多人这个时候就慌了，但问题不大，只需要进行如下操作：
1.调整透明度

ggplot(data,aes(x=Insertion_Time,y =..count..,fill=Superfamily)) +
  geom_histogram(color="#e9ecef", alpha=0.5, position = 'identity') +
  scale_fill_manual(values=c( "midnightblue","blue1"))+
  geom_density(alpha=0)+
  theme_classic()

诶？这么一调这个面积直接消失了，这里需要注意的是alpha值越小密度曲线的面积也就越小，建议直接调成零。

那接下来就是一些修缮工作了，首先是这个曲线细细的一点都不明显，我们加粗一下。

ggplot(data,aes(x=Insertion_Time,y =..count..,fill=Superfamily)) +
  geom_histogram(color="#e9ecef", alpha=0.5, position = 'identity') +
  scale_fill_manual(values=c( "midnightblue","blue1"))+
  geom_density(alpha=0,size = 0.8)+
  theme_classic()

size参数一调，粗细一下就上来了，那么我们想着这个线条的颜色也是死气沉沉的，可不可以来个攒劲的。那就是下面的调色：

ggplot(data,aes(x=Insertion_Time,y =..count..,fill=Superfamily)) +
  geom_histogram(color="#e9ecef", alpha=0.5, position = 'identity') +
  scale_fill_manual(values=c( "midnightblue","blue1"))+
  geom_density(alpha=0,size = 1,color = 'tomato')+
  theme_classic()

这样就攒劲多了，当然根据个人审美不同只需要更改喜欢的color参数就可以了。

以上是最近作图发现的一些小细节，大家如果有什么想讨论的随时欢迎。
另外给自己打一下广告，如果有论文之类的数据分析图的作图需求可以加我细聊：qicong0719。