我要应用以下条件语句：
“如果系统日为1，则在数据列中提取在DAY列中包含1的行，如果不是，则仅打印出完整的数据帧。”
我以为我做对了，但它只是吐出日期而不是整行。
这是我的示例代码：
library(lubridate)
today <- Sys.Date()
day<-format(today, format="%d")
day <-as.numeric(day)
day
[1] 1
DATE <- as.Date(c('2016-10-31', '2016-11-01','2016-11-02','2016-11-03'))
Revenue <- c(1000,2000,3000,4000)
Count <- c(21000, 23400, 26800,5000)
Price<- c(5.00, 6.00, 6.75, 2.34)
df<-data.frame(DATE, Revenue, Count, Price)
df
DATE Revenue Count Price
1 2016-10-31 1000 21000 5.00
2 2016-11-01 2000 23400 6.00
3 2016-11-02 3000 26800 6.75
4 2016-11-03 4000 5000 2.34
df<-data.frame(DATE, Revenue, Count, Price)
df$DAY<-day(df$DATE)
test<-as.data.frame(df)
test$SysDay<-day
DATE Revenue Count Price DAY SysDay
1 2016-10-31 1000 21000 5.00 31 1
2 2016-11-01 2000 23400 6.00 1 1
3 2016-11-02 3000 26800 6.75 2 1
4 2016-11-03 4000 5000 2.34 3 1
我尝试了这个ifelse语句并提取行
ifelse(min(test$SysDay)==1, subset(test, DAY == 1 ), test)
它给了我这个结果：
[[1]]
[1] "2016-11-01"
如果为True，我希望得到以下结果：
DATE Revenue Count Price DAY SysDay
2 2016-11-01 2000 23400 6 1 1
如果为False，我希望得到以下结果：
DATE Revenue Count Price DAY SysDay
1 2016-10-31 1000 21000 5.00 31 1
2 2016-11-01 2000 23400 6.00 1 1
3 2016-11-02 3000 26800 6.75 2 1
4 2016-11-03 4000 5000 2.34 3 1
尝试以下方法：
if (min(test$SysDay)==1) { subset(test, DAY == 1 ) } else { test }
ifelse强制subset(test, DAY == 1 )为a，list并且仅返回第一个元素，因为它min(test$SysDay)==1是长度为1的逻辑向量。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句