meeeeeeeeo 上游的数据是同事报给我的每个人 .xlsx 文件,模板是我提前整好的,他们填好发给我。,我一开始就该把汇总完没有加工数据放出来,我的错。我批量汇总后是这样的:
data = data.frame(
序号 = c(1, 2, 3, 1, 2),
类别 = c(
"本周工作总结",
"本周工作总结",
"下周工作计划",
"本周工作总结",
"本周工作总结"
),
事项描述 = c(
"完成8月份全行员工工资发放。",
"办理2名员工入职手续。",
"发布常态化七期考试的通报。",
"核对了相关部门报送的考核数据。",
"完成2022年二季度经营机构考核工作。"
),
职能分类 = c(
"薪酬福利管理",
"人员管理",
"培训管理",
"绩效管理", "
绩效管理"
),
报送人 = c("李四", "李四", "李四", "王五", "王五")
)
我在这个数据基础上做了一些加工(主要是加入#、  、序号),主要是为了方便把summary_plan导出到Excel文件后,把事项描述列粘贴到 R Markdown里。可是我有不甘心整个半自动化的东西,所以才有了1楼的问题。在meeeeeeeeo 的启发下,我根据又加入了“%”标记作为分隔符,生成content向量。
library(dplyr)
library(stringr)
data %>%
mutate(
职能分类 = factor(
职能分类,
levels = c(
"招聘", "招聘管理",
"员工管理", "人员管理",
"绩效管理", "薪酬管理",
"薪酬福利管理", "培训管理",
"培训", "其他", "其它"
),
labels = c(
"招聘管理", "招聘管理",
"人员管理", "人员管理",
"绩效管理", "薪酬福利管理",
"薪酬福利管理", "培训管理",
"培训管理", "其他", "其他"
)
)
) %>%
mutate(
类别 = factor(
类别,
levels = c("本周工作总结", "下周工作计划"),
labels = c("本周工作总结", "下周工作计划")
)
) %>%
arrange(类别, 职能分类) %>%
group_by(类别, 职能分类) %>%
mutate(序号 = row_number()) %>%
mutate(
事项描述 = paste0(序号, ".", 事项描述),
事项描述 = case_when(
序号 == 1 ~ paste0(
"## ", 职能分类, "%", "  ", 事项描述, "%"
),
TRUE ~ paste0(事项描述, "%")
)
) %>%
group_by(类别) %>%
mutate(序号2 = row_number()) %>%
mutate(
事项描述 = case_when(
序号2 == 1 ~ paste0("# ", 类别, "%", 事项描述),
TRUE ~ 事项描述
)
) %>%
select(
类别:报送人
) -> summary_plan
# 生成适合输出到 R Markdown 的内容
content = unlist(
str_split(
summary_plan$事项描述,
pattern = "%"
)
)
content = content[content != ""]