r - 仅在 R 中将 ggplot 上的 x 轴显示为月份

Question

我在这里有一个非常简单的问题。我有一个 2009-2012 年的数据集。我想用构面绘制数据。我创建了如下多面图。

R代码

ggplot(al02428400,aes(x=date,y=as.numeric(Discharge)))+geom_line()+ylab("Discharge(cfs)")+facet_wrap(~Year,scales=("free_x"))+theme_bw()

上述R代码的输出如下：

在 X 轴上，我只想显示月份。默认情况下显示月份和年份。有什么办法可以摆脱 year 吗？

完全可重现的代码如下：

library(ggplot2)

url <- "http://nwis.waterdata.usgs.gov/usa/nwis/uv/?cb_00060=on&cb_00065=on&format=rdb&period=&begin_date=2009-01-01&end_date=2012-12-31&site_no=02428400"
download.file(url,destfile="Data load for stations/data/alabamariver-at-monroeville-2009.txt")

al02428400 <- read.table("Data load for stations/data/alabamariver-at-monroeville-2009.txt",header=T,skip=1,sep="\t")
head(al02428400)

sapply(al02428400,class)
al02428400 <- al02428400[-1,]

names(al02428400)<- c("Agency","SiteNo","Datetime", "TZ","Discharge","Status","Gageheight","gstatus")
al02428400$date <- strptime(al02428400$Datetime, format="%Y-%m-%d %H:%M")

al02428400$Discharge <- as.numeric(as.character(al02428400$Discharge))
al02428400$Year <- as.numeric(format(al02428400$date, "%Y"))
ggplot(al02428400,aes(x=date,y=as.numeric(Discharge)))+geom_line()+ylab("Discharge(cfs)")+facet_wrap(~Year,scales=("free_x"))+theme_bw()

谢谢。

Answer 1

由于您的 x 值是日期，您可以使用它scale_x_date()来更改标签的格式。需要库scales来更好地格式化中断和标签。

library(scales)
+scale_x_datetime(labels = date_format("%b"))

Answer 2

对我来说，有效的是

+ scale_x_date(date_labels = "%b-%d-%Y")

更多信息在这里