Skip to content

Instantly share code, notes, and snippets.

@portableant
Last active November 29, 2018 23:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save portableant/e80693480c2353f81c7f30ea02cdf17e to your computer and use it in GitHub Desktop.
Save portableant/e80693480c2353f81c7f30ea02cdf17e to your computer and use it in GitHub Desktop.
R script to make gantt from csv data
library(reshape2)
library(ggplot2)
data <- read.csv("/Users/danielpett/Documents/collaboration/ahrcUSAUK/ganttcsv2.csv")
names(data) <- c('task', 'start', 'end')
data$task <- factor(data$task, levels = data$task)
data$start <- as.Date(data$start)
data$end <- as.Date(data$end)
df_melted <- melt(data, measure.vars = c('start', 'end'))
start_date <- as.Date('2019-02-01')
print(df_melted)
ggplot(df_melted, aes(value, task)) +
geom_line(size = 10) +
labs(x = '', y = '', title = 'Gantt chart for Linking Islands of Data') +
theme_bw(base_size = 20) +
theme(plot.title = element_text(hjust = 0.5),
panel.grid.major.x = element_line(colour="black", linetype = "dashed"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.text.x = element_text(angle = 0)) +
scale_x_date(date_labels = "%Y %b", limits = c(start_date, NA), date_breaks = '1 month')
content start end
Network funding starts 2019-02-01 2019-02-01
1st Hangout call 2019-02-19 2019-02-01
Website presence established 2019-02-20 2019-02-28
2nd network Google Hangout 2019-03-19 2019-03-20
Social media governance established 2019-02-19 2019-02-20
Invitations sent for first workshop 2019-03-19 2019-03-20
All travel booked for first workshop 2019-03-20 2019-05-01
Social media content schedule established 2019-03-20 2019-03-21
Social media outputs 2019-03-20 2020-01-31
3rd network Hangout 2019-04-19 2019-04-20
Agenda for 1st workshop in Cambridge prepared 2019-04-19 2019-04-20
Blog post one written and published 2019-04-01 2019-05-01
Filming commission finalised 2019-05-01 2019-05-07
4th network hangout 2019-05-19 2019-05-20
Digital archiving policy agreed 2019-05-19 2019-05-20
Blog post two written and published 2019-05-19 2019-05-26
Workshop meeting at the Fitzwilliam Museum, Cambridge University (2 days) 2019-06-01 2019-06-02
Design sprint 1 2019-06-02 2019-06-30
Blog post three written and published 2019-06-20 2019-06-30
Expenses paid to attendees of workshop one 2019-07-01 2019-07-31
Review of first film 2019-07-19 2019-07-20
Review of first workshop and minutes released for fifth hangout 2019-07-19 2019-07-20
Review of first design sprint and suggestions for design sprint two focus (LOD, 3D, Crowdsourcing) 2019-07-19 2019-07-20
Network agree on invites for workshop 2 2019-07-19 2019-07-20
Blog post four written and published 2019-07-19 2019-07-31
Sixth hangout call and sign off of first film 2019-08-19 2019-08-20
Second design and coding sprint 2019-08-01 2019-08-21
Film released 2019-08-31 2019-09-01
Travel and accommodation booking completed for workshop 2 2019-08-01 2019-08-30
Agenda finalised for workshop 2
 2019-08-19 2019-08-20
Blog post five written and published 2019-08-01 2019-08-31
Prospective workshop at the Getty, USA (2 days) 2019-09-01 2019-09-03
Begin looking for follow on funding for further development of ideas 2019-09-01 2019-09-30
Blog post six written and published 2019-09-20 2019-09-30
Seventh hangout call 2019-10-19 2019-10-20
Expenses paid to attendees of workshop 2 2019-10-01 2019-10-31
Second film reviewed and signed off by network 2019-10-19 2019-10-20
Review and sign off of minutes and documentation for workshop 2 2019-10-19 2019-10-20
Release of second film 2019-10-20 2019-10-31
Blog post seven written and published 2019-10-20 2019-10-31
Agreement on invitations for workshop 3 2019-10-20 2019-10-21
Eighth hangout call 2019-11-19 2019-11-20
Accommodation, travel and logistics for workshop 3 agreed 2019-11-19 2019-11-30
Agenda for workshop 3 finalised 2019-11-19 2019-11-20
Blog post eight written and published 2019-11-01 2019-11-30
Workshop at Institute for the Study of the Ancient World (2 days). 2019-12-01 2019-12-03
Final film shot and sent for edit 2019-12-01 2019-12-03
Expenses paid to attendees, workshop 3 2020-01-01 2020-01-31
Final hangout of funded work to review progress and achievements 2020-01-19 2020-01-20
Review of minutes 2020-01-19 2020-01-20
All digital documentation to be collated and published. 2020-01-19 2020-01-31
Project review social media and content published 2020-01-19 2020-01-31
Final film signed off 2020-01-19 2020-01-20
Planning to begin at the Fitzwilliam with exhibitions and digital teams for the Islands Exhibition. 2020-01-30 2020-01-31
Any data outcomes to packaged and sent for digital preservation at Fitzwilliam Museum and University of Cambridge 2020-01-30 2020-01-31
Network funding ends 2020-01-30 2020-01-31
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment