library(nycflights13)
library(dplyr)
head(flights)
id.vec <- c("a", "b", "c")
for(i in seq_along(id.vec)){
id <- id.vec[i]
temp <- flights %>% dplyr::select(year, day, dep_time, arr_time) %>%
dplyr::mutate(year = year - mean(year),
day = day - mean(day),
dep_time = dep_time - mean(dep_time),
arr_time = arr_time - mean(arr_time))
# do some other tasks with temp file
}
我的问题是我怎样才能提出一个条件,如果id == "c"
, 那就不要
选择dep_time
列,也不执行dep_time = dep_time - mean(dep_time)
一个简单的选择是在 for 循环中包含 if...else... 语句:
for(i in seq_along(id.vec)){
id <- id.vec[i]
if(id == 'c') {
temp <- flights %>% dplyr::select(year, day, arr_time) %>%
dplyr::mutate(year = year - mean(year),
day = day - mean(day),
arr_time = arr_time - mean(arr_time))
} else {
temp <- flights %>% dplyr::select(year, day, dep_time, arr_time) %>%
dplyr::mutate(year = year - mean(year),
day = day - mean(day),
dep_time = dep_time - mean(dep_time),
arr_time = arr_time - mean(arr_time))
}
# do some other tasks with temp file
}
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)