R语言编程

20230430_ganttrify软件包：介绍、安装与应用

Song Wei 2023年4月30日 04:55

475

gganttrify软件包：

甘特图（Gantt Chart）是一种项目管理工具，用于表示项目中的任务、活动和时间安排。它由美国机械工程师亨利·甘特（Henry L. Gantt）在20世纪初发明。甘特图以时间为横轴，任务或活动为纵轴，通过水平条形图显示任务的开始时间、持续时间以及完成时间。它有助于项目经理和团队成员更好地计划、监控和调整项目进度。gganttrify是一个基于R语言的软件包，用于生成甘特图。它利用了ggplot2这个流行的数据可视化库，使用户能够轻松地创建美观且可自定义的甘特图。

ganttrify软件包安装：

# 4.2.3版本R
install.packages("tidyverse")
install.packages("lubridate")
install.packages("ganttrify")
library(devtools)
#devtools::install_local("./ganttrify-master.zip")
library(ganttrify)
#install.packages("tidyverse")
library(tidyverse)
#install.packages("lubridate")
library(lubridate)

ganttrify在软件开发项目中的应用：

在软件开发项目中，甘特图可以帮助团队规划项目开发阶段、设计阶段、测试阶段以及发布阶段等多个关键节点。例如，项目需求分析、功能设计、代码编写、单元测试、集成测试、系统测试、用户验收测试和项目上线等。

# 创建任务列表
tasks <- data.frame(
  wp = c("需求与设计", "需求与设计", "开发与测试", "开发与测试", "开发与测试", "开发与测试", "验收与上线", "验收与上线"),
  activity = c("1.1. 需求分析", "1.2. 功能设计", "2.1. 代码编写", "2.2. 单元测试", "2.3. 集成测试", "2.4. 系统测试", "3.1. 用户验收测试", "3.2. 项目上线"),
  start_date = as.numeric(c(1, 2, 4, 6, 7, 9, 11, 12)),
  end_date = as.numeric(c(1, 3, 6, 7, 8, 10, 11, 12)),
  stringsAsFactors = FALSE
)
ganttrify(project = tasks , project_start_date = "2020-01")

ganttrify绘制重要考试报名时间表：

使用ganttrify创建一个展示不同考试报名时间的甘特图。通过绘制这个图表，我们可以更直观地了解一年内各项重要考试的报名时间安排，从而帮助学生、教育工作者和其他相关人员更好地规划和准备这些考试。甘特图能够直观地展示各个考试的报名时间，使用户能够一目了然地了解考试安排和时间分布。通过查看甘特图，学生和教育工作者可以更容易地安排学习计划、课程和其他相关活动，以确保在报名时间内做好准备。甘特图可以帮助用户快速找到相关考试的报名时间，避免错过重要的报名时间节点。通过将所有考试报名时间安排在同一图表中，用户可以更容易地比较不同考试的报名时间，以便为多个考试做好规划。

# 创建任务列表
exam_registration <- data.frame(
  wp = c("公务员考试", "教师资格考试", "计算机等级考试", "计算机等级考试", "计算机等级考试", "计算机等级考试", "初级会计师考试", "英语四六级考试", "英语四六级考试","证券从业资格考试", "CPA注册会计师", "心理咨询师考试", "执业药师考试", "国考考试","硕士研究生招生考试", "选调生考试",   "基金从业资格考试"),
  activity = c("公务员考试", "教师资格考试", "计算机等级考试", "计算机等级考试", "计算机等级考试", "计算机等级考试", "初级会计师考试", "英语四六级考试", "英语四六级考试","证券从业资格考试", "CPA注册会计师", "心理咨询师考试", "执业药师考试", "国考考试","硕士研究生招生考试", "选调生考试",   "基金从业资格考试"),
  start_date = as.numeric(c(1, 1, 3, 5, 9, 12, 5, 6, 12, 7,8,9, 10, 11, 12,10,    7)),
  end_date = as.numeric(c(1, 3, 3, 5, 9, 12, 5, 6, 12, 7,8,9, 10, 11, 12,12,    10)),
  stringsAsFactors = FALSE
)
p2 <- ganttrify(project = exam_registration , hide_wp = TRUE,project_start_date = "2023-01",alpha_wp = 0.9,
          alpha_activity = 0.8,
          line_end_wp = "round", # alternative values: "butt" or "square"
          line_end_activity = "round", # alternative values: "butt" or "square"
          font_family = "Roboto Condensed")
          
ggsave("test-2.png", p2,  width = 6, height = 6,dpi = 300)