Solución:
Si la fecha tiene el formato correcto como date
, tu primer intento funciona:
p2p_dt_SKILL_A <-read.table(text="Patch,Date,Prod_DL
P1,9/4/2015,3.43
P11,9/11/2015,3.49
P12,9/18/2015,3.45
P13,12/6/2015,3.57
P14,12/13/2015,3.43
P15,12/20/2015,3.47
",sep=",",stringsAsFactors =FALSE, header=TRUE)
p2p_dt_SKILL_A$Date <-as.Date(p2p_dt_SKILL_A$Date,"%m/%d/%Y")
p2p_dt_SKILL_A%>%
select(Patch,Date,Prod_DL)%>%
filter(Date > "2015-09-04" & Date <"2015-09-18")
Patch Date Prod_DL
1 P11 2015-09-11 3.49
Todavía funciona si los datos son de tipo tbl_df
.
p2p_dt_SKILL_A <-tbl_df(p2p_dt_SKILL_A)
p2p_dt_SKILL_A%>%
select(Patch,Date,Prod_DL)%>%
filter(Date > "2015-09-04" & Date <"2015-09-18")
Source: local data frame [1 x 3]
Patch Date Prod_DL
(chr) (date) (dbl)
1 P11 2015-09-11 3.49
Otra opción más detallada sería usar la función between
, un atajo para x> = izquierda y x <= derecha. Necesitamos cambiar los días para tener en cuenta el =
firmar y usar as.Date
(explicación aquí).
p2p_dt_SKILL_A%>%
select(Patch,Date,Prod_DL)%>%
filter(between(Date, as.Date("2015-09-05"),as.Date("2015-09-17")))
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)