Problem
我想格式化我的 X 轴(时间),以便周末清晰可见。我想显示日期以及星期几。
现在的情况
我用(下面的完整代码)来做到这一点
scale_x_date(breaks=myData$timestamp,
labels=paste(
substr(format(myData$timestamp, "%a"),1,1),
format(myData$timestamp, "%d"),
sep="\n")
)
这给了我
通缉情况
我宁愿用一个字母缩写来表示工作日,因为那里变得有点紧。另外,我想将周日(和节假日)涂成红色。这就是我的意思(用 GIMP 制作)。请注意如何通过使用添加第一个星期一和最后一个星期五
scale_x_date(breaks = "1 day",
minor_breaks = "1 days",
labels = date_format("%a\n%d"),
name="")
但是,然后我得到了工作日的三个字母缩写,我在 GIMP 中将其删除。
这是此示例的完整代码。
library(ggplot2)
library(scales)
library(reshape2)
minimumTime <- as.Date("2014-07-01")
maximumTime <- as.Date("2014-07-31")
x <- seq(minimumTime,maximumTime, by="1 day")
y1 <- sin(as.numeric(x)/3)
y2 <- cos(as.numeric(x)/3)
myData <- data.frame(timestamp=x, y1=y1, y2=y2)
myData <- melt(myData, id.vars="timestamp")
rects <- data.frame(saturdays=myData[weekdays(myData$timestamp) == "Saturday","timestamp"]-0.5, sundays = myData[weekdays(myData$timestamp) == "Saturday","timestamp"]+1.5)
myPlot <- ggplot() +
geom_rect(data=rects, aes(xmin=saturdays, xmax=sundays,ymin=-Inf, ymax=Inf), alpha=0.1) +
geom_line(data=myData, aes(x=timestamp, y=value, colour=variable,size=1)) +
geom_point(data=myData, aes(x=timestamp, y=value, colour=variable,size=2)) +
scale_x_date(breaks=myData$timestamp, labels=paste(substr(format(myData$timestamp, "%a"),1,1),format(myData$timestamp, "%d"),sep="\n")) +
#scale_x_date(breaks = "1 day", minor_breaks = "1 days", labels = date_format("%a\n%d"), name="") +
scale_size_continuous(range = c(1.5,5), guide=FALSE)
总结一下:
- 有没有办法用另一种颜色来着色特定的中断?
- 有没有办法手动更改标签并在周一和周五仍然保留它们
在这种情况下,周五的开始和结束时间是多少?
- 另外,如果有办法让每个标签的行居中,那就是
惊人的 :)
谢谢你!