筛选功能，根据日期不起作用选择行

Question

我希望根据一列日期过滤数据。例如。特定日期的数据。我试图没有任何运气的情况下filter（）和filter_at（）。我收到以下错误消息：

Ops.POSIXt（左，右）中的错误：“＆”未为“ POSIXt”对象定义 另外：警告消息： 在Ops.factor（左，右）中：“＆”对因子没有意义

padf_12 <- read.table("Paddus_2012_sheet2.csv", head = TRUE, sep=";" )
tibble(padf_12)

padf_12 <- padf_12 %>% 
mutate_at(vars(Block, Treatment), factor) %>% 
mutate("Date"=dmy(Date, tz = "UTC"))

padf_12 <- padf_12 %>%
filter_at(padf_12, vars(Date == "2012-08-14"))

padf_12 <- padf_12 %>%
filter(padf_12, Treatment == "2012-08-14")

以下是数据链接：https://www.dropbox.com/s/m4qfrdagqxvdxnh/Filtering%20problem.R?dl=0

数据集如下：

Observations: 120
Variables: 157
$ Sample                                                                                                
<fct> 31-K1 20120522, 32-K1 20120...
$ Date                                                                                                  
<dttm> 2012-05-22, 2012-06-13, 20...
$ Time                                                                                                  
<fct> 14:01:00, 10:19:00, 12:19:0...
$ Plot                                                                                                  
<fct> C1, C1, C1, C1, C1, C2, C2,...
$ Ch..Vol..L.                                                                                           
<int> 13, 13, 13, 13, 13, 13, 13,...
$ Plot..old.                                                                                            
<fct> K1, K1, K1, K1, K1, K2, K2,...
$ iButton                                                                                               
<fct> 2198C9, 2198C9, 21980, 2198...