您当前的位置:首页 > 计算机 > 编程开发 > Other

R语言——绘制甘特图

时间:04-07来源:作者:点击数:

今天,在群里看见有人问R能不能绘制甘特图,觉得很有意思 ,就动手试了一下,虽说很丑,但也说明R几乎无所不能。

代码如下:

GanttChart <- function(program,startdate,enddate,title = NA)
{
  startdate <- as.Date(startdate)
  enddate <- as.Date(enddate)
  if(sum(startdate > enddate) > 0)
  {
    stop('error:start date is later than end date.')
  }
  progrm <- length(program):1
  plot(NA,NA,
       xlim = c(min(startdate),max(enddate)),
       ylim = range(progrm),
       xlab = '日期',
       ylab = '项目',
       xaxt = 'n',
       yaxt = 'n',
       main = title)
  startUnionEnd <- as.Date(origin = '1970-01-01',union(startdate,enddate))
  axis(1,startUnionEnd,startUnionEnd)
  axis(2,progrm,program)
  segments(startdate,progrm,enddate,progrm,lwd = 5)
  abline(v = startUnionEnd)
}
program <- c('P1','P2','P3','P4')
startdate <- seq(from = as.Date('1994-09-02'),by = 5,length.out = 4)
enddate <- seq(from = as.Date('1994-10-21'),by = 5,length.out = 4)
GanttChart(program,startdate,enddate,'GANTT CHART')
方便获取更多学习、工作、生活信息请关注本站微信公众号城东书院 微信服务号城东书院 微信订阅号
推荐内容
相关内容
栏目更新
栏目热门