以下代码在“阶段”(Stage)列中为60%-提议,90%-提交和100%-赢创建变量
ttv.60 <- filter(ttv, Stage %in% "Propose - 60%")
ttv.90 <- filter(ttv, Stage %in% "Commit - 90%")
ttv.100 <- filter(ttv, Stage %in% "Win - 100%")
本部分采用“建议的60%”数据,并在“主要项目:项目经理”列中查找未分配项目经理的数据。
从ttv.60创建新的小标题以显示没有项目管理器的项目
ttv.60.no.pm <- filter(ttv.60, Primary.Project..Project.Manager %in% NA))
答案 0 :(得分:1)
不确定自己要做什么,但至少可以使用一些示例数据来改善问题。
library(tibble)
library(dplyr)
ttv <- data.frame(Stage=c("Propose", "Commit", "Commit", "Propose", "Win"),
Project.Manager=c("Bob", "Alice", NA, NA, "Donald"))
probabilities <- data.frame(Stage=c("Propose", "Commit", "Win"),
Likelihood=c(.6,.9,1))
ttv <- left_join(ttv, probabilities, by="Stage")
ttv <- as.tibble(ttv)
ttv
# A tibble: 5 x 3
Stage Project.Manager Likelihood
<fct> <fct> <dbl>
1 Propose Bob 0.600
2 Commit Alice 0.900
3 Commit NA 0.900
4 Propose NA 0.600
5 Win Donald 1.00
filter(ttv, Stage=="Commit" & is.na(Project.Manager))
# A tibble: 1 x 3
Stage Project.Manager Likelihood
<fct> <fct> <dbl>
1 Commit NA 0.900
请尝试改善问题,因为我什至试图回答都会使人们感到烦恼。