Question

我知道，有点奇怪的要求，但要忍受我。

我有一个Excel电子表格，其中包含从高度并行化的服务器端代码中获取的一些日志记录数据。我正在尝试分析它在日志中可能存在间隙的地方，指出应该记录但不是的任务;但是因为它是十几个并行线程的串行，时间戳顺序列表，所以很难阅读。因此，我有一个非正统的想法，即使用甘特图来显示重叠的任务。 Excel在这方面很糟糕，所以我开始寻找替代工具，我想到了尝试R。

日志中的每个任务都有一个开始时间戳，结束时间戳和持续时间，所以我有我需要的数据。我阅读了this SO post并将该示例残缺到了这个R脚本中：

tasks <- c("Task1", "Task2")
dfr <- data.frame(
  name        = factor(tasks, levels = tasks),
  start.date  = c("07/08/2013 09:03:25.815", "07/08/2013 09:03:25.956"),
  end.date    = c("07/08/2013 09:03:28.300", "07/08/2013 09:03:30.409"),
  is.critical = c(TRUE, TRUE)
)

mdfr <- melt(dfr, measure.vars = c("start.date", "end.date"))

ggplot(mdfr, aes(as.Date(value, "%d/%m/%Y %H:%M:%OS"), name, colour = is.critical)) + 
  geom_line(size = 6) +
  xlab("") + ylab("") +
  theme_bw()

但这不起作用 - 它不会绘制任何数据，时间轴全部搞砸了。我怀疑（毫不奇怪）绘制亚秒级甘特图是一件奇怪的事情。我是一个完整的R新手（虽然我一直在寻找借口试试它多年） - 有没有简单的方法让这个工作？

Answer 1

首先，您的时间应该是POSIXct格式，而不是Date，因为它还包含小时和分钟。您可以使用正确的格式向熔化的数据框添加新列。

mdfr$time<-as.POSIXct(strptime(mdfr$value, "%d/%m/%Y %H:%M:%OS")）

然后使用scale_x_datetime()，您可以控制断点在轴上的位置。对于x值，请使用格式正确的新列。

library(scales)
ggplot(mdfr, aes(time,name, colour = is.critical)) + 
  geom_line(size = 6) +
  xlab("") + ylab("") +
  theme_bw()+
  scale_x_datetime(breaks=date_breaks("2 sec"))

绘制甘特图，R为亚秒精度

1 个答案: