我正在尝试使用ggplot2在x轴上的之间添加刻度 - 类似这样:
。
到目前为止,我的流程如下(例如):
y=(1:1:12)
x=seq(as.Date("2014-01-01"), as.Date("2014-12-31"), by="months")
df=data.frame(x,y)
g<-ggplot(df,aes(x,y))
g<-g+geom_line()
g<-g+scale_x_date(labels = date_format("%b-%y"),breaks = date_breaks("months"))
这给了我:
我希望那些x轴刻度在几个月之间。我尝试过使用
minor_breaks=date_breaks("2 weeks")
在scale_x_date行中(以及其他几个变体),但minor_breaks似乎对我不起作用。我也试过
的变种 myminor=seq(from=1,to=365,by=15)
并将其用于minor_breaks,但这也不起作用。最后,我试过
g<-g+theme(axis.ticks.x=element_line(myminor))
但这也证明无效。我觉得这是一个简单的修复,但我被卡住了。
答案 0 :(得分:2)
相当hacky,但有点接近你似乎想要的东西:
library(ggplot2)
library(scales)
library(lubridate)
y=(1:12)
x=seq(as.Date("2014-01-01"), as.Date("2014-12-31"), by="months")
df=data.frame(x,y)
g<-ggplot(df,aes(x,y))
g<-g+geom_line()
labels <- date_format("%b")(x)
breaks <- as.Date(sort(c(as.POSIXct(x),
as.POSIXct(seq(as.Date("2014-01-15"),
as.Date("2014-12-31"), by="months")),
ymd("2015-1-1"))))
labels <- c("",
as.vector(rbind(labels,
rep("", length(labels)))))
g + scale_x_date(labels = labels, breaks = breaks, limits=range(breaks)) +
theme(axis.ticks.x=element_line(colour=c("black",
rep(c(NA, "black"), t=12))),
panel.grid.major.x=element_line(colour=c("white",
rep(c(NA, "white"), t=12))),
panel.grid.minor.x=element_blank())