Как сдвинуть время начала диаграммы Ганта с начала координат, используя график в г - PullRequest
Новая
       46

Как сдвинуть время начала диаграммы Ганта с начала координат, используя график в г

0 голосов
/ 26 января 2019

Я пытаюсь использовать «заговор» для построения диаграммы Ганта. Данные представлены в следующем формате:

введите описание изображения здесь У меня проблема, когда я использовал приведенный ниже код для построения графика времени начала и окончания для каждого ресурса, все горизонтальные полосы начинались с начала координат. Я бы хотел, чтобы каждый бар начинался со значения «Старт», как показано в примере выше. Также я хотел бы дать уникальный цвет для каждой задачи, выполняемой на одном и том же ресурсе. Другими словами, все задачи, выполняемые насосом 1, должны иметь синий цвет ... и т. Д.

Спасибо заранее Mohamed

код: 

library(plotly)
library(readxl)
Pump_data <- read_excel("Pump_data.xlsx", col_types = c("text", "text", "date", "date")
attach(Pump_data)
df<-(Pump_data)
df$Start <- as.POSIXct(df$Start, format = '%m/%d/%y %H:%M:%S')
df$End <- as.POSIXct(df$End, format = '%m/%d/%y %H:%M:%S')
z<-df$End-df$Start
cols <- RColorBrewer::brewer.pal(length(unique(df$Resource)), name = "Set1")
df$color <- factor(df$Resource, labels = cols)
p <- plot_ly()
for(i in 1:(nrow(df) -1 )){
  p <- add_trace(p,
                 x= c(df$Start[i], df$Start[i] + z[i]),
                 y= c(df$Resource[i]),
                 mode = "bar",
                 orientation = 'h',                 
                 showlegend = T,
                 hoverinfo = "text",
                 evaluate = TRUE  
  )
}
...