绘制每个任务的时间长度

Question

我正在尝试制作一个图表来显示每个任务运行了多长时间

每个任务我有一行

task     |   Start_time |    Finish_time

Task 1    |  09:00:00    |   09:45:00
Task 2   |  09:20:00    |   13:15:00

所以我试图让 x 轴上的任务和 y 轴上的任务是 24 小时刻度线，并且一个条形图有它在这些时间运行的时间。

到目前为止我有：

ggplot(sas_program_data, aes(xmin = Start_time, xmax = Finish_time, fill = factor(task)))

Answer 1

您可以使用柱形图来显示此类信息。像这样的：

 library(magrittr)
 library(ggplot2)
 library(plyr)

 df <- data.frame(task=c("T1", "T2"),
             start=c("09:00:00", "09:20:00"),
             finish=c("09:45:00", "13:15:00")) %>%
    mutate(diff=strptime(df$finish, format = "%H:%M:%S")-strptime(df$start, format = "%H:%M:%S"))

 ggplot(aes(task, diff), data=df[, c("task", "diff")]) +
   geom_col()

您也可以通过添加aes(fill=task) 在geom_col() 位中添加颜色。

如果您只想要积分，您可以将geom_col() 替换为geom_point()，将diff 替换为finsih，您只会得到2 分：

 ggplot(aes(task, finish), data=df[, c("task", "finish")]) +
   geom_point()

编辑：感谢您更新图片。试试这个：

 ggplot() +
   geom_segment(aes(y=start, yend=finish, x=task, xend=task), data = df, size=2)

您可以随意查看线条的外观和特定的轴刻度，但这应该可以帮助您入门。