없음 바 Gantt 차트

Question

을 ggplot없는 나는 소스로 다음과 같은 데이터 집합을 가지고 :

structure(list(JobName = structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = ("ATLAS_Admin_DeployClientDatabase", "ATLAS_Admin_ParseMasterCubeDatabase", ATLAS_Admin_xBackup_DeleteOldTable", "BDC_DatabaseMaintenanceJob_ALL_DATABASES", collection_set_1_noncached_collect_and_upload", "CoreX_SAP_B23_dreprecated", CoreXBI_ETL_1014_01Stage", "CoreXBI_ETL_1014_02DWH_Cube", "CoreXBI_ETL_1114_02DWH_Cube", "CoreXBI_ETL_1294_B23", CoreXBI_ETL_AutoTest", "Cycle_Log", "Delphi DEV Load", "Delphi DEV Monthly", mdw_purge_data_[Z_MAS_MDW]", "QA_CoreXBI_ETL_1010", "QA_CoreXBI_ETL_1294", Shrink_the_Logs", "SSIS Server Maintenance Job", "syspolicy_purge_history", sysutility_get_cache_tables_data_into_aggregate_tables_daily", "sysutility_get_cache_tables_data_into_aggregate_tables_hourly", "sysutility_get_views_data_into_cache_tables", "Z_MAS_ADMIN_ALRS", "Z_MAS_ADMIN_Backup_AMOTables", "Z_MAS_ADMIN_Check_Cube_Space", "Z_MAS_ADMIN_Check_Disk_Space", "Z_MAS_ADMIN_Extract_Job_History", "Z_MAS_ADMIN_Monitoring", "Z_MAS_MaintenancePlan.weekly_bak_clean", "Z_MICE_System_Database_Backup_weekly"), class = "factor"), RunDateTime = tructure(c(1478788776, 1479292645, 1479307979, 1479292220, 1479307916, 479314398), class = c("POSIXct", "POSIXt"), tzone = ""), StartWeekday = tructure(c(5L, 7L, 7L, 7L, 7L, 7L), .Label = c("Friday", "Monday", Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"), class = "factor"), tartTime = structure(c(-2209108824, -2209123355, -2209108021, -2209123780, 2209108084, -2209101602), class = c("POSIXct", "POSIXt"), tzone = ""), ndRunDateTime = structure(c(1478790159, 1479294190, 1479309546, 1479292284, 479307977, 1479314459), class = c("POSIXct", "POSIXt"), tzone = ""), ndWeekday = structure(c(5L, 7L, 7L, 7L, 7L, 7L), .Label = c("Friday", Monday", "Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"), class = factor"), EndTime = structure(c(-2209107441, -2209121810, -2209106454, 2209123716, -2209108023, -2209101541), class = c("POSIXct", "POSIXt"), tzone "")), .Names = c("JobName", "RunDateTime", "StartWeekday", StartTime", "EndRunDateTime", "EndWeekday", "EndTime"), row.names = c(NA, L), class = "data.frame") 

지금은 나에게 다른 작업의 기간을 표시해야합니다 데이터 중 간트 차트를 만들려면 다음 스크립트를 사용하여 타임 라인에서.

library(reshape2) 
vars <- c("RunDateTime", "EndRunDateTime", "StartTime", "EndTime") 
dataset[vars] <- lapply(dataset[vars], as.POSIXct, format = "%Y-%m-%dT%H:%M:%S") 
df <- with(dataset, data.frame(name = JobName, start = RunDateTime, end = EndRunDateTime)) 
mdfr <- melt(df, measure.vars = c("start", "end")) 

library(ggplot2) 
ggplot(mdfr, aes(x = value, y = name, color = variable)) 
geom_line(size = 6) 
xlab(NULL) 
ylab(NULL) 

내 문제는 내가 x 축에서 y 축에 JobNames과 날짜 시간과 차트를 얻을,하지만 거기에 아무 값이나 바.

가에 관하여 어떤 생각?

편집 : 다음 문제는

Answer 1

당신은 음모에 기하 구조를 추가하지 않을 ... 그것은 매우 마지막 종료 시간에 맨 처음 시작 시간을 연결하는, 지금이다. 시도 :

ggplot(mdfr, aes(x = value, y = name, color = variable)) + 
    geom_line(size = 6) + 
    xlab(NULL) + 
    ylab(NULL)