【发布时间】：2016-06-09 19:00:09
【问题描述】：
我在 Windows 10 64 位上使用 R 3.2.3 到 RStudio 版本 0.99.491...制作我的第一个 geom_line ggplot 图表我认为我成功地用新手的蛮力解决了这个问题。直到在帮助下，我发现了 POSIXct 问题，显示图表刻度跳过 x 轴上的 02:00 PM 间隔，直接进入 03:00 PM 间隔，但使用 02:00 PM 数据。 这是开始第一次转换的data。
这里是Graph
library(reshape2)
library(ggplot2)
library(scales)
myData_on <- melt(line_hour_on, id.vars = "time")
dat_on <- myData_on[myData_on$time != "Total",]
dat_on$time_ <- as.POSIXct(paste(dat_on$time),origin = "7:00 AM", format = "%H")
on_nov <- dat_on[dat_on$variable=="nov",]
ggplot(data=dat_on, aes(x=time_, y=value, group =variable, colour = variable)) +
geom_line(data = dat_on, size = 2, alpha = 0.75) +
geom_point(data = dat_on, size =3, alpha = 0.75) +
geom_line(data = on_nov, color = "black", size = 3, alpha = 0.60) +
geom_point(data = on_nov, color = "grey30", size = 6.5) +
geom_line(data = on_nov, color = "white", size = 1.5, alpha = 0.97) +
geom_point(data = on_nov, color = "white", size = 5, alpha = 0.97) +
geom_point(data = on_nov, color = "blue", size = 3, alpha = 0.25) +
scale_x_datetime(labels = date_format("%I:%M %p"), breaks = date_breaks("2 hour"))+
scale_colour_manual(values = c('#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f','#ff7f00','#cab2d6','#6a3d9a','#ffff99','#b15928'))+
ggtitle("Boarding the Bus Ridership November 2016") +
labs(x="Time",y="Count")+
theme(plot.title = element_text(family = "Trebuchet MS", color="#666666", face="bold", size=32, hjust=0.5)) +
theme(axis.title = element_text(family = "Trebuchet MS", color="#666666", face="bold", size=22))+
theme_fivethirtyeight()
【问题讨论】：
-
ggplot 错误地绘制数据是不寻常的。您确定下午 2 点的数据显示在错误的位置吗？或者你确定问题只是下午 2 点？您的图表显示 4 月从上午 8 点开始超过 10 点，但数据在上午 8 点具有值 8 的 4 月。我的猜测是转换是问题，而不是
ggplot。你确定你的time_列是正确的吗？ -
@Gregor，是的，哇，所有的数据都是错误的。我不知道为什么。
-
也许共享
dput(line_hour)这样我们至少可以从同一个（复制/粘贴）位置开始。 -
您定义
time_的方式对我不起作用，因为它没有考虑上午/下午，因此时间与原始时间不符。我最终切换到as.POSIXct(paste(dat_on$time), origin = "7:00 AM", format = "%I:%M %p", tz = "UTC")，情节看起来不同/很好。 -
@aosmith 解决了这两个问题。我很乐意将其作为答案。