r 自定义 function 关键词 dplyr col 名字, 无比感谢！！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

time.limit1 <- 8 * 60
time.limit2 <- 0.15*1
time.limit3 <- 1 * 60

list.variables <- c("fvar1", "fvar2","fvar3", "svar1", "svar2", "svar3")

naper.variables <- c("class2","call.type","priority",
                     "dispatch.delay", "travel.time", "response.time")

rt.summary <- function(city.data, list.variables) {
  city.small <- city.data %>% select(one_of(list.variables))
  city.summary <- city.small %>%
  filter(call.type==2,
         !is.na(response.time),
         response.time <= time.limit1,
         response.time >= time.limit2) %>%
  mutate(dispatch.delay2 = pmin(dispatch.delay, time.limit3),
         travel.time2 = pmin(travel.time, time.limit3),
         response.time2 = pmin(response.time, time.limit3)) %>%
  group_by(class2) %>%
  summarise(count = n(),
            DDM_Avg = mean(dispatch.delay2),
            TTM_Avg = mean(travel.time2),
            RTM_Avg = mean(response.time2),
            DDM_P90 = quantile(dispatch.delay, 0.9),
            TTM_P90 = quantile(travel.time, 0.9),
            RTM_P90 = quantile(response.time, 0.9))  
  return(list(city.small, city.summary))
}

rt.summary

这个程序是ok的， 但是我想更flexible， 把function里面 col names 都换成 list.variables 的名字
像这样
time.limit1 <- 8 * 60
time.limit2 <- 0.15*1
time.limit3 <- 1 * 60

list.variables <- c("fvar1", "fvar2","fvar3", "svar1", "svar2", "svar3")

naper.variables <- c("class2","call.type","priority",
                     "dispatch.delay", "travel.time", "response.time")

rt.summary <- function(city.data, list.variables) {
  args <- as.list(match.call())
  city.small <- city.data %>% select(one_of(list.variables))
  city.summary <- city.small %>%
  filter(fvar2==2,
         !is.na(svar3),
         svar3 <= time.limit1,
         svar3>= time.limit2) %>%
  mutate(svar12 = pmin(svar1, time.limit3),
         svar22 = pmin(svar2, time.limit3),
         svar32 = pmin(svar3, time.limit3)) %>%
  group_by(fvar1) %>%
  summarise(count = n(),
            DDM_Avg = mean(svar12),
            TTM_Avg = mean(svar22),
            RTM_Avg = mean(svar32),
            DDM_P90 = quantile(svar1, 0.9),
            TTM_P90 = quantile(svar2, 0.9),
            RTM_P90 = quantile(svar3, 0.9))  
  return(list(city.small, city.summary))
}

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：function dplyr TIO 关键词 Fun function 关键词

完全看不懂，但是支持一下。

fvar1=list.variables[1],fvar2=list.varables[2]，不就可以了嘛