r - R图:创建Tufte的水平条形线

Question

我们如何在R中复制Tufte的隐式水平线？

例如，以下是一个很好的起点:

library(ggplot2)    
ggplot(msleep, aes(x=order)) + stat_bin() + theme_bw()

删除边界线应该很简单。对我来说，关键点是用条形图覆盖水平线。

我想这里有两种方法:

此特定示例的临时解决方案

建议如何将其合并到主题

Answer 1

@Andrie答案不是一个很大的补充，但是您可以利用ggthemes包的优势，使用ggplot2制作Tufte式绘图。在下面，我使用theme_tufte，使用extrafont包更改字体，并使用opts来微调所有其他视觉功能:

library(ggthemes)
library(extrafont)
ggplot(msleep, aes(x=order)) + stat_bin(width=0.6, fill="gray") + 
  theme_tufte(base_family="GillSans", base_size=16, ticks=F) +
  theme(axis.line=element_blank(), axis.text.x=element_blank(),
        axis.title=element_blank()) +
  geom_hline(yintercept=seq(5, 20, 5), col="white", lwd=1.2)