Hoas
就gechunya 的第二个就行啊,filter里多个条件用逗号隔开即可。
library(dplyr)
raw <- data.table::fread(
" T Q P E0
1 1987-01-01 16.5 0.4 0.6
2 1987-01-02 16.5 0 1.05
3 1987-01-03 16.1 0.2 1
4 1987-01-04 15.6 0 1.25
5 1987-01-05 15.6 0 1.6
6 1987-01-06 15.6 0 2.75
7 1987-01-07 15.6 0 2.6
8 1987-01-08 14.9 0 2
9 1987-01-09 14.8 0 2.5
10 1987-01-10 14.8 0 2.05",
)
raw %>%
filter(T > lubridate::ymd(19870102), T < lubridate::ymd(19870107))
#> V1 T Q P E0
#> 1 3 1987-01-03 16.1 0.2 1.00
#> 2 4 1987-01-04 15.6 0.0 1.25
#> 3 5 1987-01-05 15.6 0.0 1.60
#> 4 6 1987-01-06 15.6 0.0 2.75
<sup>Created on 2018-11-06 by the reprex package (v0.2.1)</sup>