相关疑难解决方法(0)

我想用 ifelse() 条件创建几个列。这是我的示例代码：

df <- tibble( 
date = lubridate::today() +0:9,
return= c(1,2.5,2,3,5,6.5,1,9,3,2))

现在我想添加具有升序条件的新列（从 1 到 8）。第一列应该只包含来自“return”列的大于 1 的值，第二列应该只包含大于 2 的值，依此类推...

我可以使用 mutate() 函数计算每一列：

df <- df %>% mutate( `return>1`= ifelse(return > 1, return, NA))
df <- df %>% mutate( `return>2`= ifelse(return > 2, return, NA))
df <- df %>% mutate( `return>3`= ifelse(return > 3, return, NA))
df <- df %>% mutate( `return>4`= ifelse(return > 4, return, NA))
df <- df %>% mutate( `return>5`= ifelse(return > 5, return, NA))
df <- …