将ggplot x轴线延伸到数据范围

Question

我正在尝试构建一堆ggplot2密度图，如下所示：

我排队/限制了x轴，然后使用gridExtra包装堆叠这些grpahs，滴答声完美排列。然而，在这样做的时候，我认为之前是一个实心的x轴标记，结果是密度图底部的底部“标记”线：

无论如何都要在某种x轴上加回来？没有它，情节看起来有点赤裸/空。我理解它更清楚地表明了数据的局限性，但它看起来没有完成和破坏。

修改

以下是我正在使用的代码：

g <- ggplot(df_L, aes(x=values, linetype= type)) + 
geom_density() + 
ggtitle(expression('Low Region: '~LI[i]~'and'~WI[i])) +
scale_x_continuous(breaks = c(seq(0,100,10)), expand = c(0,0)) +
scale_y_continuous(expand = c(0,0)) +
coord_cartesian(xlim = c(0,100)) + 
theme(text = element_text(size=20),
      plot.title = element_text(size=14, vjust=1.5, hjust=0.5),
      axis.title.x=element_blank(),
      axis.title.y = element_blank(),
      legend.position = c(0.1, 0.75),
      legend.text.align = 0,
      legend.box = 'horizontal',
      legend.margin = unit(45.0, 'line'),
      legend.text=element_text(size=14,vjust=0,hjust=0),
      legend.key.height = unit(1, 'line'),
      legend.key.width = unit(1, 'line'),
      panel.background = element_rect(fill = "white")) + 
scale_linetype_manual(values=c(1,2,3),
                      labels=c(expression(LI[i]),expression(WI[i]))) +
guides(linetype = guide_legend(title=NULL)) 

g

Answer 1

我认为问题在于你正在使用的主题（默认）没有指定的x轴（或者y轴），但是网格隐含了轴位置。因此，您需要通过使用例如+ theme_bw（）或通过在主题中添加内容来专门添加轴。我已经做到了（红色，你真的可以看到它）：

2