过滤数字列名称上的非NA

Posted 2021-04-11

我正在尝试使用as.Date变量过滤包含数字/日期名称的列。

作为示例，考虑这个小型数据库：

dt <- data.table(
names = c("A", "B", "C"),
`2020-01-01` = c(1, NA, 2),
`2020-01-02` = c(3, 4, 5),
`2020-01-03` = c(6, 7, 8)
)

我目前正在按以下方式过滤所需的日期列：

dt1 <- dt %>% filter(!is.na(`2020-01-01`)) %>% select(names)

我的想法是创建一个meeting_date变量，该变量应该用作我所有R代码的日期参考。

meeting_date <- as.Date("2020-01-01")

当然是代码：

dt1 <- dt %>% filter(!is.na(meeting_date)) %>% select(names)

不起作用。原因是缺少反引号，所以没有成功，我尝试了以下代码：

dt1 <- dt %>% filter(!is.na(paste("`", meeting_date, "`", sep=""))) %>% select(names)
dt1 <- dt %>% filter(!is.na(noquote(paste("`", meeting_date, "`", sep="")))) %>% select(names)

有人知道如何进行吗？谢谢！

答案

您可以做：

meeting_date <- as.Date("2020-01-01")

dt %>%
 filter_at(vars(one_of(as.character(meeting_date))), ~ !is.na(.))

  names 2020-01-01 2020-01-02 2020-01-03
1     A          1          3          6
2     C          2          5          8