甘特图与R

有人用R来创build甘特图吗? 我知道的唯一的解决scheme是这个 ,但是我正在寻找更复杂的东西,如果可能的话(看起来或多或less像这个或这个 )。

PS我可以生活没有依赖箭头。

现在有几个优雅的方法可以在R中生成甘特图。

使用DiagrammeR

library(DiagrammeR) mermaid(" gantt dateFormat YYYY-MM-DD title A Very Nice Gantt Diagram section Basic Tasks This is completed :done, first_1, 2014-01-06, 2014-01-08 This is active :active, first_2, 2014-01-09, 3d Do this later : first_3, after first_2, 5d Do this after that : first_4, after first_3, 5d section Important Things Completed, critical task :crit, done, import_1, 2014-01-06,24h Also done, also critical :crit, done, import_2, after import_1, 2d Doing this important task now :crit, active, import_3, after import_2, 3d Next critical task :crit, import_4, after import_3, 5d section The Extras First extras :active, extras_1, after import_4, 3d Second helping : extras_2, after extras_1, 20h More of the extras : extras_3, after extras_1, 48h ") 

在这里输入图像描述

DiagrammeR GitHub上查找这个例子和更多


如果您的数据存储在data.frame ,则可以通过将其转换为适当的格式来创build要传递给mermaid()的string。

考虑以下几点:

 df <- data.frame(task = c("task1", "task2", "task3"), status = c("done", "active", "crit"), pos = c("first_1", "first_2", "first_3"), start = c("2014-01-06", "2014-01-09", "after first_2"), end = c("2014-01-08", "3d", "5d")) # task status pos start end #1 task1 done first_1 2014-01-06 2014-01-08 #2 task2 active first_2 2014-01-09 3d #3 task3 crit first_3 after first_2 5d 

使用dplyrtidyr (或任何您最喜欢的数据资源):

 library(tidyr) library(dplyr) mermaid( paste0( # mermaid "header", each component separated with "\n" (line break) "gantt", "\n", "dateFormat YYYY-MM-DD", "\n", "title A Very Nice Gantt Diagram", "\n", # unite the first two columns (task & status) and separate them with ":" # then, unite the other columns and separate them with "," # this will create the required mermaid "body" paste(df %>% unite(i, task, status, sep = ":") %>% unite(j, i, pos, start, end, sep = ",") %>% .$j, collapse = "\n" ), "\n" ) ) 

正如@GeorgeDontas在评论中提到的那样,有一点小技巧可以允许将x轴的标签更改为date,而不是“w.01,w.02”。

假设你用m保存了上面的美人鱼图表,那么:

 m$x$config = list(ganttConfig = list( axisFormatter = list(list( "%b %d, %Y" ,htmlwidgets::JS( 'function(d){ return d.getDay() == 1 }' ) )) )) 

这使:

在这里输入图像描述


使用timevis

timevis GitHub :

timevis允许您在R中创build丰富且完全交互的时间线可视化。时间线可以包含在Shiny应用程序和R markdown文档中,或者从R控制台和RStudio查看器中查看。

 library(timevis) data <- data.frame( id = 1:4, content = c("Item one" , "Item two" ,"Ranged item", "Item four"), start = c("2016-01-10", "2016-01-11", "2016-01-20", "2016-02-14 15:00:00"), end = c(NA , NA, "2016-02-04", NA) ) timevis(data) 

这使:

在这里输入图像描述


积极使用

我偶然发现了这个post,提供了另一种使用plotly方法。 这是一个例子:

 library(plotly) df <- read.csv("https://cdn.rawgit.com/plotly/datasets/master/GanttChart-updated.csv", stringsAsFactors = F) df$Start <- as.Date(df$Start, format = "%m/%d/%Y") client <- "Sample Client" cols <- RColorBrewer::brewer.pal(length(unique(df$Resource)), name = "Set3") 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] + 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>", "Resource: ", df$Resource[i]), evaluate = T ) } p 

这使:

在这里输入图像描述

然后,您可以添加额外的信息和注释,自定义字体和颜色等(详见博客文章)

一个简单的ggplot2甘特图。

首先,我们创build一些数据。

 library(reshape2) library(ggplot2) tasks <- c("Review literature", "Mung data", "Stats analysis", "Write Report") dfr <- data.frame( name = factor(tasks, levels = tasks), start.date = as.Date(c("2010-08-24", "2010-10-01", "2010-11-01", "2011-02-14")), end.date = as.Date(c("2010-10-31", "2010-12-14", "2011-02-28", "2011-04-30")), is.critical = c(TRUE, FALSE, FALSE, TRUE) ) mdfr <- melt(dfr, measure.vars = c("start.date", "end.date")) 

现在绘制情节。

 ggplot(mdfr, aes(value, name, colour = is.critical)) + geom_line(size = 6) + xlab(NULL) + ylab(NULL) 

尝试这个:

 install.packages("plotrix") library(plotrix) ?gantt.chart 

plan支持创buildburndown图表和甘特图,并包含一个plot.gantt函数。 请参阅此Rgraphics手册页

另请参阅如何在R中使用Plotly的R API 甘特图来制作R中的一个。

您可以使用GoogleVis软件包来执行此操作:

 datTL <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)), Name=c("Washington", "Adams", "Jefferson", "Adams", "Jefferson", "Burr"), start=as.Date(x=rep(c("1789-03-29", "1797-02-03", "1801-02-03"),2)), end=as.Date(x=rep(c("1797-02-03", "1801-02-03", "1809-02-03"),2))) Timeline <- gvisTimeline(data=datTL, rowlabel="Name", barlabel="Position", start="start", end="end", options=list(timeline="{groupByRowLabel:false}", backgroundColor='#ffd', height=350, colors="['#cbb69d', '#603913', '#c69c6e']")) plot(Timeline) 

在这里输入图像描述

来源: https : //cran.r-project.org/web/packages/googleVis/vignettes/googleVis_examples.html

这里是我写的使用ggplot生成类似甘特图的文章。 不是很复杂,但可能会给你一些想法。

我用Richie修改上面的例子,就像一个魅力。 修改后的版本,以显示他的模型如何转化为摄取CSV数据,而不是手动提供文本项目。

:里奇的答案是缺less指示,上面/下面的代码工作需要2包( 重塑ggplot2 )。

 rawschedule <- read.csv("sample.csv", header = TRUE) #modify the "sample.csv" to be the name of your file target. - Make sure you have headers of: Task, Start, Finish, Critical OR modify the below to reflect column count. tasks <- c(t(rawschedule["Task"])) dfr <- data.frame( name = factor(tasks, levels = tasks), start.date = c(rawschedule["Start"]), end.date = c(rawschedule["Finish"]), is.critical = c(rawschedule["Critical"])) mdfr <- melt(dfr, measure.vars = c("Start", "Finish")) #generates the plot ggplot(mdfr, aes(as.Date(value, "%m/%d/%Y"), name, colour = Critical)) + geom_line(size = 6) + xlab("Duration") + ylab("Tasks") + theme_bw() 

考虑使用projmanr包 (2017年8月23日在CRAN上发布的版本0.1.0)。

 library(projmanr) # Use raw example data (data <- taskdata1) 

taskdata1

  id name duration pred 1 1 T1 3 2 2 T2 4 1 3 3 T3 2 1 4 4 T4 5 2 5 5 T5 1 3 6 6 T6 2 3 7 7 T7 4 4,5 8 8 T8 3 6,7 

现在开始准备甘特图:

 # Create a gantt chart using the raw data gantt(data) 

在这里输入图像描述

 # Create a second gantt chart using the processed data res <- critical_path(data) gantt(res) 

在这里输入图像描述

 # Use raw example data data <- taskdata1 # Create a network diagram chart using the raw data network_diagram(data) 

在这里输入图像描述

 # Create a second network diagram using the processed data res <- critical_path(data) network_diagram(res) 

在这里输入图像描述

库PlotPrjNetworks为项目pipe理提供了有用的联网工具。

 library(PlotPrjNetworks) project1=data.frame( task=c("Market Research","Concept Development","Viability Test", "Preliminary Design","Process Design","Prototyping","Market Testing","Final Design", "Launching"), start=c("2015-07-05","2015-07-05","2015-08-05","2015-10-05","2015-10-05","2016-02-18", "2016-03-18","2016-05-18","2016-07-18"), end=c("2015-08-05","2015-08-05","2015-10-05","2016-01-05","2016-02-18","2016-03-18", "2016-05-18","2016-07-18","2016-09-18")) project2=data.frame( from=c(1,2,3,4,5,6,7,8), to=c(2,3,4,5,6,7,8,9), type=c("SS","FS","FS","SS","FS","FS","FS","FS"), delay=c(7,7,7,8,10,10,10,10)) GanttChart(project1,project2) 

在这里输入图像描述

我想改善ggplot – 答案与每个任务的几个酒吧。

首先生成一些数据(dfrP是另一个答案的data.frame,dfrR是一些其他data.frame与实现date和mdfr是一个合并拟合下面的ggplot()语句):

 library(reshape2) tasks <- c("Review literature", "Mung data", "Stats analysis", "Write Report") dfrP <- data.frame( name = factor(tasks, levels = tasks), start.date = as.Date(c("2010-08-24", "2010-10-01", "2010-11-01", "2011-02-14")), end.date = as.Date(c("2010-10-31", "2010-12-14", "2011-02-28", "2011-04-30")), is.critical = c(TRUE, FALSE, FALSE, TRUE) ) dfrR <- data.frame( name = factor(tasks, levels = tasks), start.date = as.Date(c("2010-08-22", "2010-10-10", "2010-11-01", NA)), end.date = as.Date(c("2010-11-03", "2010-12-22", "2011-02-24", NA)), is.critical = c(TRUE, FALSE, FALSE,TRUE) ) mdfr <- merge(data.frame(type="Plan", melt(dfrP, measure.vars = c("start.date", "end.date"))), data.frame(type="Real", melt(dfrR, measure.vars = c("start.date", "end.date"))), all=T) 

现在使用任务名称的facet来绘制这些数据:

 library(ggplot2) ggplot(mdfr, aes(x=value, y=type, color=is.critical))+ geom_line(size=6)+ facet_grid(name ~ .) + scale_y_discrete(limits=c("Real", "Plan")) + xlab(NULL) + ylab(NULL) 

没有is.critical信息,你也可以使用计划/实际颜色(我会prefere),但我想使用其他答案的data.frame,使其更好的可比性。

对我而言,Gvistimeline是做这件事的最好工具,但是它所需要的在线连接对我来说并不有用。 因此,我创build了一个包含使用plotly (类似于plotly的答案)的visles vistime ,因此您可以放大等等。

https://github.com/shosaco/vistime

vistime :使用plotly.js创build交互式时间表或甘特图。 这些图表可以包含在Shiny应用程序中,并通过plotly_build()进行操作。

 install.packages("vistime") dat <- data.frame(Position=c(rep("President", 3), rep("Vice", 3)), Name = c("Washington", "Adams", "Jefferson", "Adams", "Jefferson", "Burr"), start = rep(c("1789-03-29", "1797-02-03", "1801-02-03"), 2), end = rep(c("1797-02-03", "1801-02-03", "1809-02-03"), 2), color = c('#cbb69d', '#603913', '#c69c6e'), fontcolor = rep("white", 3)) vistime(dat, events="Position", groups="Name", title="Presidents of the USA") 

在这里输入图像描述