尝试使用ggplot移除x轴以下的轴

Question

我是ggplot的新手，正在尝试使用它绘制两条线。但是我的x轴似乎很奇怪，现在我想将其删除。这是我的代码。

ggplot(BJ11, aes(Date, mean,group=1)) +
  geom_line(aes(color = "stateair daily values")) + 
  geom_line(data = bjvalue2,
            aes(color = "CNEMC values"))

这是我的数据：

> head(BJ11)  
       Date   min    max      mean  
1 2015-01-01   6    154  54.58333  
2 2015-01-02  12    157  63.54167  
3 2015-01-03 147    322 209.25000  
4 2015-01-04 106    360 201.16667  
5 2015-01-05   9    186  90.87500  
6 2015-01-06  10    121  43.16667


> head(bjvalue2)  
        Date     mean  
1 2015-01-01   43  
2 2015-01-02   52  
3 2015-01-03  150  
4 2015-01-04  176  
5 2015-01-05      92  
6 2015-01-06   40  

我该如何删除“日期”上方的黑色粗轴和x轴？

Answer 1

ggplot(BJ11, aes(Date, mean, group=1))+
  geom_line(aes(color = "stateair daily values"))+ 
  geom_line(data = bjvalue2, aes(color = "CNEMC values"))+
  theme(axis.title.x = element_blank(), 
      axis.text.x = element_blank(), 
      axis.ticks.x = element_blank(), 
      axis.line.x = element_blank())

Answer 2

另一种选择是固定x轴而不是将其删除。我知道这不是您的问题，但是ggplot在处理日期轴方面非常出色，因此我想知道您是否将日期作为字符？如果有的话。可以使用带有ymd（）的库（lubridate）。

为简单起见，我猜测您的group = 1可以省略。

此外，在您的最后一行中，我个人更喜欢在aes内定义x和y轴，以确保R以您想要的方式处理数据。