查看: 901|回复: 9

[R语言] R-plotly|交互式甘特图(Gantt chart)-项目管理/学习计划

[复制链接]
  • TA的每日心情

    2016.7.20 14:55
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]初来乍到

    钵水母

    Rank: 3Rank: 3

    主题
    14
    奥币
    619
    积分
    184
    注册时间
    2016.3.21
    在线时间
    40 小时

    发表于 2019.10.21 21:58:32 | 显示全部楼层 |阅读模式
    本文首发于“生信补给站”微信公众号,https://mp.weixin.qq.com/s/CGz51qOjFSJ4Wx_qOMzjiw更多关于R语言,ggplot2绘图,生信分析的内容,敬请关注小号。

    甘特图(Gantt chart),又常被称为横道图或者条状图,是现代企业项目管理领域运用最为广泛的一种图示。就是通过条形来显示项目的进度、时间安排等相关情况的。
    项目管理外,也可以用来管理学习计划。绘制甘特图的工具有很多,本文介绍使用R-plotly包绘制交互式的甘特图,保存html链接后,即可随时查看。

    一 准备数据加载函数包,读入数据library(plotly)
    # Read in data
    df <- read.csv("GanttChart.csv", stringsAsFactors = F)
    # Convert to dates
    df$Start <- as.Date(df$Start, format = "%m/%d/%Y")
    head(df,3)
    二 绘制甘特图
    数据如上所示,只需任务或者项目内容Task,开始时间Start,持续的时间数据即可绘制甘特图。
    # 根据Resource 设置甘特图的颜色
    cols <- RColorBrewer::brewer.pal(length(unique(df$Resource)), name = "Set3")
    df$color <- factor(df$Resource, labels = cols)

    # 初始一个空对象
    p <- plot_ly()

    # 每个task一个line plot,起始时间和任务持续时长
    for(i in 1:(nrow(df) - 1)){
      p <- add_trace(p,
                     x = c(df$Start, df$Start + df$Duration),  #起试和终止
                     y = c(i, i),  #
                     mode = "lines",
                     line = list(color = df$color, width = 20), #设置line plot的颜色和线宽
                     showlegend = F,
                     hoverinfo = "text", #悬浮信息为text信息
                     #设置text显示内容
                     text = paste("Task: ", df$Task, "<br>",
                                  "Duration: ", df$Duration, "days<br>",
                                  "Resource: ", df$Resource),
                     evaluate = T ,
                     xaxis = list(showgrid = F, tickfont = list(color = "#e6e6e6")),
                     yaxis = list(showgrid = F, tickfont = list(color = "#e6e6e6"),
                     tickmode = "array", tickvals = 1:nrow(df), ticktext = unique(df$Task),
                     domain = c(0, 0.9)),
                plot_bgcolor = "#333333",  # 设置颜色
                paper_bgcolor = "#333333"
      )
    }
    更改Layout信息
    • 去掉 gridlines
    • 显示task任务

    p <- layout(p,
                xaxis = list(showgrid = F, tickfont = list(color = "#e6e6e6")),
                yaxis = list(showgrid = F, tickfont = list(color = "#e6e6e6"),
                       tickmode = "array", tickvals = 1:nrow(df), ticktext = unique(df$Task),
                       domain = c(0, 0.9)),
                plot_bgcolor = "#333333",  # Chart area 颜色
                paper_bgcolor = "#333333") # Axis area 颜色

    注:因未掌握交互式插入html方法,因此动态交互图自行运行即可。

    更多内容:
    R|生存分析(1):生存分析介绍以及绘制KM曲线

    【觉得不错,右下角点个“在看”,期待您的转发,谢谢!】

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x

    评分

    参与人数 1奥币 +20 贡献 +10 收起 理由
    基迪奥-周煌凯 + 20 + 10 骚年淡定~

    查看全部评分

    回复

    使用道具 举报

  • TA的每日心情
    yes!
    11 小时前
  • 签到天数: 264 天

    连续签到: 2 天

    [LV.8]以坛为家I

    帝王蝶

    Rank: 4

    主题
    0
    奥币
    349
    积分
    206
    注册时间
    2018.1.22
    在线时间
    101 小时

    发表于 2019.10.22 09:34:02 | 显示全部楼层
    回复

    使用道具 举报

  • TA的每日心情

    2017.6.16 18:09
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]初来乍到

    钵水母

    Rank: 3Rank: 3

    主题
    0
    奥币
    3091
    积分
    57
    注册时间
    2017.6.16
    在线时间
    15 小时

    发表于 2019.10.27 15:46:36 | 显示全部楼层
    这个甘特图能否用python语言制作
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    2016.7.20 14:55
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]初来乍到

    钵水母

    Rank: 3Rank: 3

    主题
    14
    奥币
    619
    积分
    184
    注册时间
    2016.3.21
    在线时间
    40 小时

     楼主| 发表于 2019.10.28 10:24:06 | 显示全部楼层
    fc2012 发表于 2019.10.27 15:46
    这个甘特图能否用python语言制作

    可以的 ,python中也有plotly, 同样可以绘制的
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    忙~
    14 小时前
  • 签到天数: 21 天

    连续签到: 5 天

    [LV.4]偶尔看看III

    帝王蝶

    Rank: 4

    主题
    2
    奥币
    148
    积分
    392
    注册时间
    2019.10.25
    在线时间
    11 小时

    最佳新人活跃会员


    发表于 2019.11.8 15:15:00 | 显示全部楼层
    感谢楼主分享
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    忙~
    14 小时前
  • 签到天数: 14 天

    连续签到: 6 天

    [LV.3]偶尔看看II

    钵水母

    Rank: 3Rank: 3

    主题
    0
    奥币
    204
    积分
    197
    注册时间
    2019.3.19
    在线时间
    4 小时

    发表于 2019.11.10 10:09:07 | 显示全部楼层
    大神,请收下我的膝盖,牛啊!优秀
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    忙~
    14 小时前
  • 签到天数: 14 天

    连续签到: 6 天

    [LV.3]偶尔看看II

    钵水母

    Rank: 3Rank: 3

    主题
    0
    奥币
    204
    积分
    197
    注册时间
    2019.3.19
    在线时间
    4 小时

    发表于 7 天前 | 显示全部楼层
    感谢楼主分享~
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    no
    7 小时前
  • 签到天数: 40 天

    连续签到: 7 天

    [LV.5]常住居民I

    钵水母

    Rank: 3Rank: 3

    主题
    0
    奥币
    745
    积分
    73
    注册时间
    2016.8.22
    在线时间
    19 小时

    发表于 6 天前 | 显示全部楼层
    感谢楼主分享
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    no
    7 小时前
  • 签到天数: 40 天

    连续签到: 7 天

    [LV.5]常住居民I

    钵水母

    Rank: 3Rank: 3

    主题
    0
    奥币
    745
    积分
    73
    注册时间
    2016.8.22
    在线时间
    19 小时

    发表于 6 天前 | 显示全部楼层
    感谢楼主分享
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    忙~
    14 小时前
  • 签到天数: 14 天

    连续签到: 6 天

    [LV.3]偶尔看看II

    钵水母

    Rank: 3Rank: 3

    主题
    0
    奥币
    204
    积分
    197
    注册时间
    2019.3.19
    在线时间
    4 小时

    发表于 4 天前 | 显示全部楼层
    感谢楼主分享`
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    快速回复 返回顶部 返回列表