Project planning with plotly

转载自：https://itsalocke.com/blog/project-planning-with-plotly/

未知
发表于

Something a little different today for a quick chat about my latest project and why I’m finding the plotly package so helpful!

Are you like me and physically can’t function unless you’ve got a to do list in front of you? Well even if you’re not, imagine my pain while I’m wearing my non - Locke Data hat and trying to plan out the final year of my PhD thesis!

I needed something that updated easily, something visual and something to keep my supervisors in the know. I’ve previously made gantt charts using LaTeX but found it ridiculously clunky to get working and decided there had to be a better way. And if I could include interactivity then all the better, which is how I discovered plotly.

Plotly

The plotly package makes interactive, publication quality graphs online. It uses the JavaScript graphing library and is really versatile! You can make graphs, maps, 3D plots and, as I’m about to explain, gantt charts.

Step by Step Gantt Chart

Install the packages you need for generating the gantt chart

1
2
3
library(RColorBrewer)
library(readxl)
library(widgetframe)

Setting fonts isn’t necessary as there are defaults, but it’s always nice to know how to do it should you want to.

1
2
3
4
5
f <- list(
 family = "Courier New, monospace",
 size = 18,
 color = "#7f7f7f"
)

Set a title for the X axis. Uncomment the Y axis if you’d like to label that too :)

1
2
3
4
5
6
7
8
x <- list(
 title = "Date",
 titlefont = f
)
# y <- list(
# title = "Task Number",
# titlefont = f
# )

Read in your data

To make this gantt chart work, you need a column with a date you intend to start the task - we’ll make sure this is formatted in a minute. You also need a column with a duration to generate the length of the bar for each task (this is in days in my case!) and if you want to group and colour code your tasks, it’s the Chapter column which does this.

The Task and Progress columns aren’t necessary, but they are good for labelling and keeping yourself accountable, and an easy way to share updates with people who are checking up on your progress!

1
2
df <- read_xlsx(path = "../../../../Book_thesis/00_Time_Plan/timeplan.xlsx", sheet = 1) 
head(df)

1
2
3
4
5
6
7
8
9
10
## # A tibble: 6 x 5
## Task start Duration Chapter Progress
## <chr> <dttm> <dbl> <chr> <chr> 
## 1 Review literature review … 2018-07-03 00:00:00 2 2 Complet…
## 2 2.1 Energy on a larger sc… 2018-07-05 00:00:00 5 2 Complet…
## 3 2.1 Energy in a UK context 2018-07-12 00:00:00 7 2 Complet…
## 4 2.2 Traditional collectio… 2018-07-23 00:00:00 3 2 Complet…
## 5 2.2 New technologies and … 2018-07-26 00:00:00 3 2 Complet…
## 6 2.3 Data Bias and Represe… 2018-07-31 00:00:00 3 2 Complet…

Make sure your date column is correctly formatted

1
df$start <- as.Date(df$start, format="%Y-%m-%d")

Next generate a list of colours. This corresponds to my Chapter column, so change this accordingly. It creates a list assigning a colour to each group of tasks

1
2
3
4
cols <- brewer.pal(length(unique(factor(df$Chapter))), name = "Set3") # Generate a list of colours that are as long as your group of tasks
# This won't work if column has blanks

df$color <- factor(df$Chapter, labels = cols) # Attach these colours as factors to each group of tasks

The next chunk of code generates a date line updated automatically based on your computer’s system date.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# annotation
a <- list(text = "Today's date",
 x = Sys.Date(),
 y = 1.02,
 xref = 'x',
 yref = 'paper',
 xanchor = 'left',
 showarrow = FALSE
)

# use shapes to create a line
l <- list(type = line,
 x0 = Sys.Date(),
 x1 = Sys.Date(),
 y0 = 0,
 y1 = 1,
 xref = 'x',
 yref = 'paper',
 line = list(color = 'black',
 width = 0.7)
)

Build your plot combining all the elements you generated earlier. Change the text section to personalise your chart

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
p <- plot_ly()
for(i in 1:(nrow(df) - 1)){
 p <- add_trace(p,
 x = c(df$start[i], df$start[i] + df$Duration[i]), 
 y = c(i, i), 
 mode = "lines",
 line = list(color = df$color[i], width = 20),
 showlegend = F,
 hoverinfo = "text",
 text = paste("Task: ", df$Task[i], "<br>",
 "Duration: ", df$Duration[i], "days<br>",
 "Chapter: ", df$Chapter[i], "<br>",
 "Status: ", df$Progress[i]), "<br>",
 evaluate = T
 )
}

Now simply plot your chart and add axis labels, your title and ‘Today’s date’ - The plotly package will generate an interactive chart that you can zoom, hover and share!

1
2
3
4
5
6
p %>%
 layout(xaxis = x, 
 # yaxis = y,
 title = "Thesis Schedule",
 annotations = a,
 shapes = l)

Ta-Dah! Now all I have to do is stick to it…