格式化x轴

Question

我有一些我想绘制的数据，关于2013年布朗顶山的平均每日风速。有很多要点，所以这里只是给出一个想法的前几行：

我可以绘制数据并使其看起来很好，除了x轴。以下是我的代码示例：

>attach(Brown_Top_2013)
>BT<-ggplot(Brown_Top_2013, aes(TIMESTAMP, Sum.Of.WS_Avg))
> >BT+geom_point(col="royalBlue")+labs(x="Date", y="Mean Wind Speed (m/s)", title= "Daily Mean Wind Speed 2013"+scale_x_discrete(breaks=seq(01/03/13, 12/27/13,1))

这可以让我得到一个不错的情节，除了它不包括沿x轴的任何刻度，如下：

最后，我想让ggplot在x轴上显示每个月至少一天。 任何帮助将非常感激，因为我已经在网上搜索了几个小时，现在试图解决这个问题。我觉得它可能与设置TIMESTAMP日期的方式有关，但让我知道你的想法！

Answer 1

查看scale_x_date

BT<-ggplot(Brown_Top_2013, aes(TIMESTAMP, Sum.of.WS_Avg))
BT+geom_point(col="royalBlue")+labs(x="Date", y="Mean Wind Speed (m/s)", title= "Daily Mean Wind Speed 2013")+scale_x_date(date_breaks = "1 month", date_labels="%b %d")

Answer 2

另一个解决方案可能是以下一个：

BT<-ggplot(Brown_Top_2013, aes(TIMESTAMP, Sum.of.WS_Avg))

BT+geom_point(col="royalBlue")+
   labs(x="Date", 
        y="Mean Wind Speed (m/s)", 
        title= "Daily Mean Wind Speed 2013")+ 
   scale_x_discrete(
        labels = seq.Date(as.Date("01/03/13","%m/%d/%y"), as.Date("12/27/13","%m/%d/%y"), by = "day"))

您必须将breaks =更改为labels =