删除数据框中的周末数据

Question

正如您从下面的数据框中看到的，RBloomberg 返回周末日期的 NA。

如果是周末，我想删除整行。我该怎么做？

我不想使用 na.omit 因为如果/当我出于合法原因在数据中获得 NA 时，这可能会删除工作日行。

   ticker       date yld_ytm_mid
1    R206 2011-05-11       6.946
2    R206 2011-05-12       6.969
3    R206 2011-05-13       7.071
4    R206 2011-05-14          NA
5    R206 2011-05-15          NA
6    R201 2011-05-11       7.201
7    R201 2011-05-12       7.213
8    R201 2011-05-13       7.323
9    R201 2011-05-14          NA
10   R201 2011-05-15          NA
11   R157 2011-05-11       7.611
12   R157 2011-05-12       7.622
13   R157 2011-05-13       7.718
14   R157 2011-05-14          NA
15   R157 2011-05-15          NA
16   R203 2011-05-11       8.165
17   R203 2011-05-12       8.170
18   R203 2011-05-13       8.279
19   R203 2011-05-14          NA
20   R203 2011-05-15          NA
21   R204 2011-05-11       8.303
22   R204 2011-05-12       8.296
23   R204 2011-05-13       8.386
24   R204 2011-05-14          NA
25   R204 2011-05-15          NA
26   R207 2011-05-11       8.361
27   R207 2011-05-12       8.371
28   R207 2011-05-13       8.479
29   R207 2011-05-14          NA
30   R207 2011-05-15          NA
31   R208 2011-05-11       8.392
32   R208 2011-05-12       8.393
33   R208 2011-05-13       8.514
34   R208 2011-05-14          NA
35   R208 2011-05-15          NA
36   R186 2011-05-11       8.546
37   R186 2011-05-12       8.571
38   R186 2011-05-13       8.664
39   R186 2011-05-14          NA
40   R186 2011-05-15          NA
41   R213 2011-05-11       8.783
42   R213 2011-05-12       8.802
43   R213 2011-05-13       8.898
44   R213 2011-05-14          NA
45   R213 2011-05-15          NA
46   R209 2011-05-11       8.785
47   R209 2011-05-12       8.807
48   R209 2011-05-13       8.898
49   R209 2011-05-14          NA
50   R209 2011-05-15          NA
51   R214 2011-05-11       8.841
52   R214 2011-05-12       8.861
53   R214 2011-05-13       8.958
54   R214 2011-05-14          NA
55   R214 2011-05-15          NA

Answer 1

为了完整起见，我想在blindjesse的答案中添加一点，输入？weekdays表明R有基本函数weekdays()、months()和quarters()，它们适用于posix和date类型，并且我相信是矢量化的，所以这也会起作用：

!(weekdays(as.Date(date)) %in% c('Saturday','Sunday'))

Answer 2

将日期列转换为 POSIXlt ，例如

date <- as.POSIXlt(date,format="%Y-%m-%d")

来访问星期几

date$wday

然后您可以使用适当的子集

Answer 3

blindJesse 的答案是正确且有用的，因为它回归到基本 R 函数。

许多包都有额外的辅助包装器。这是来自 timeDate 的一个，需要转换为其类型：

R> isWeekend( as.timeDate( seq( as.Date("2011-01-01"), 
+                               to=as.Date("2011-01-07"), by=1 ) ) )
2011-01-01 2011-01-02 2011-01-03 2011-01-04 2011-01-05 2011-01-06 2011-01-07  
      TRUE       TRUE      FALSE      FALSE      FALSE      FALSE      FALSE  
R> 

这是另一种使用来自 RcppBDT 的函数：

R> sapply(seq(as.Date("2011-01-01"),to=as.Date("2011-01-07"), by=1),getDayOfWeek)
[1] 6 0 1 2 3 4 5
R> 
R> sapply(seq(as.Date("2011-01-01"),to=as.Date("2011-01-07"), by=1),getDayOfWeek)
+         %%6 == 0
[1]  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE
R> 

lubridate 包也有 wday() 并且毫无疑问在其他包中还有更多的功能。