我很难在ggplot2盒图上绘制Y轴上的时间。作为ggplot2中的y轴标签的时间
任何想法如何以时间呈现我的y轴?
目前,我的Y轴是数字,日期标签适用于该系列。
我宁愿展会时间:而不是显示所有的数据在Y轴(HH MM),标签
我的数据:
structure(list(Date = structure(c(17511, 17512, 17513, 17514, 17515), class = "Date"),
T.min = c(1513584134, 1513580301, 1513582918, 1513583058, 1513584465),
T.mean = c(1513585975.14286, 1513584408.14286, 1513584580.57143, 1513583202.2, 1513585681),
T.max = c(1513587691, 1513587419, 1513585508, 1513583516, 1513587100),
min_labels = c("08:02", "06:58", "07:41", "07:44", "08:07"),
mean_labels = c("08:32", "08:06", "08:09", "07:46", "08:28"),
max_labels = c("09:01", "08:56", "08:25", "07:51", "08:51")), .Names = c("Date", "T.min", "T.mean", "T.max", "min_labels", "mean_labels", "max_labels"), row.names = c(NA, -5L), class = "data.frame")
我的阴谋(y轴和绘制的值是POSIXct格式):
#Library
library(ggplot2)
library(scales)
#Plot
theme_set(theme_bw())
ggplot(df, aes(x = Date)) +
geom_boxplot(aes(ymin = T.min, lower = T.min, middle = T.mean, upper = T.max, ymax = T.max),
stat = "identity", fill = "antiquewhite", color = "black") +
geom_line(aes(x=Date, y=T.mean),color='firebrick2', size=3, show.legend = FALSE) +
xlab('Shift Start Date') +
ylab('Time') +
coord_cartesian(ylim =c(Y.min, Y.max)) +
scale_x_date(date_labels = "%d-%b", breaks = pretty_breaks(5)) +
theme(axis.text=element_text(size=15), axis.title=element_text(size=15,face="bold")) +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
theme(axis.text.y = element_blank()) +
geom_text(aes(x=Date, y = T.min, label = min_labels), size=5, vjust=1.5, check_overlap=TRUE) +
geom_text(aes(x=Date, y = T.mean, label = mean_labels), size=5, vjust=-0.5, check_overlap=TRUE) +
geom_text(aes(x=Date, y = T.max, label = max_labels), size=5, vjust=-1.5, check_overlap=TRUE) +
theme(axis.text=element_text(size=15), axis.title=element_text(size=15,face="bold")) +
theme(axis.text.x = element_text(angle = 45, hjust = 1))
是我的目标对于(在MS Paint中添加标签并且与数据不匹配,但您可以看到我想要的内容):-)
y轴应该怎么样? – Jimbou
能否请您解释一下:“隐藏Y轴标签....显示y轴标签并隐藏最小和最大数据标签” – PoGibas
感谢您提出的问题,我编辑的帖子更加清晰。非常感谢! – Jernau