嘗試使用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以您想要的方式處理數據。