ggplot为facet_wrap中的每个绘图添加刻度

Question

我想在facet_wraps的上面一行中的图上显示x轴刻度。 例如：

library(ggplot2)
ggplot(diamonds, aes(carat)) +  facet_wrap(~ cut, scales = "fixed") +  geom_density()

生成这个情节：

我想在这个情节中画出蜱虫：

有没有一种简单的方法来实现这个结果？

Answer 1

使用scales = "free_x"将x轴添加到每个图中：

ggplot(diamonds, aes(carat)) + 
    geom_density() + 
    facet_wrap(~cut, scales = "free_x")

但是，正如您所看到的和语法所暗示的，它还释放了每个绘图的限制以自动调整，因此如果您希望它们一致，则需要使用xlim ， lims或scale_x_continuous设置它们：

ggplot(diamonds, aes(carat)) + 
    geom_density() + 
    xlim(range(diamonds$carat)) + 
    # or lims(x = range(diamonds$carat))    
    # or scale_x_continuous(limits = range(diamonds$carat))
    facet_wrap(~cut, scales = "free_x")