在 R 中使用 if else 语句分配标志时出错？

Question

有任何建议来修复以下代码，将

1

或

0

分配给

BFlag

列的特定月份？

library(tidyverse)
library(lubridate)

DF <- data.frame(Date = seq(as.Date("1928-01-01"), 
                      to = as.Date("1930-12-31"), 
                      by = "day")) %>%  separate(Date, into = c("Year", "Month", "Day")) %>% 
  mutate(BFlag = ifelse(Month == c(1,2,3,11,12),1,ifelse(Month == c(4,5,6,7,8,9,10),0)))

Answer 1

刚刚修复了我的代码，它给了我我正在寻找的答案。感谢所有观看它的人。发布答案，因为它可能会帮助其他人查看类似的问题。

DF <- data.frame(Date = seq(as.Date("1928-01-01"), 
                      to = as.Date("2009-12-31"), 
                      by = "day")) %>%  separate(Date, into = c("Year", "Month", "Day")) %>% 
  mutate(BFlag = ifelse(Month %in% c("01","02","03","11","12"),1,0))