j'ai ces données: (complet pour décembre)
date sessions
1 2014-12-01 1932
2 2014-12-02 1828
3 2014-12-03 2349
4 2014-12-04 8192
5 2014-12-05 3188
6 2014-12-06 3277
Et un besoin de sous-définir/filtrer cela, par exemple de "2014-12-05" à "2014-12-25"
Je maintenant que vous pouvez créer une séquence avec l'opérateur ":".
Exemple: b <- c (1: 5)
Mais comment filtrer une séquence? J'ai essayé
NewDate <- filter(Dates, date("2014-12-05":"2014-12-12"))
Mais dit:
Erreur: symbole inattendu dans: "NewDate <- filtre (Dates, date (" 2014-12-05 ":" 2014-12-12 ") NewDate"
vous pouvez utiliser subset
Génération de vos exemples de données:
temp<-
read.table(text="date sessions
2014-12-01 1932
2014-12-02 1828
2014-12-03 2349
2014-12-04 8192
2014-12-05 3188
2014-12-06 3277", header=T)
S'assurer qu'il est au format date:
temp$date <- as.Date(temp$date, format= "%Y-%m-%d")
temp
# date sessions
# 1 2014-12-01 1932
# 2 2014-12-02 1828
# 3 2014-12-03 2349
# 4 2014-12-04 8192
# 5 2014-12-05 3188
# 6 2014-12-06 3277
Utilisation de subset
:
subset(temp, date> "2014-12-03" & date < "2014-12-05")
qui donne:
# date sessions
# 4 2014-12-04 8192
vous pouvez également utiliser []
:
temp[(temp$date> "2014-12-03" & temp$date < "2014-12-05"),]
Si vous souhaitez utiliser dplyr
, vous pouvez essayer quelque chose comme ça.
mydf <- structure(list(date = structure(c(16405, 16406, 16407, 16408,
16409, 16410), class = "Date"), sessions = c(1932L, 1828L, 2349L,
8192L, 3188L, 3277L)), .Names = c("date", "sessions"), row.names = c("1",
"2", "3", "4", "5", "6"), class = "data.frame")
# Create date object
mydf$date <- as.Date(mydf$date)
filter(mydf, between(date, as.Date("2014-12-02"), as.Date("2014-12-05")))
#If you avoid using `between()`, the code is simpler.
filter(mydf, date >= "2014-12-02", date <= "2014-12-05")
filter(mydf, date >= "2014-12-02" & date <= "2014-12-05")
# date sessions
#1 2014-12-02 1828
#2 2014-12-03 2349
#3 2014-12-04 8192
#4 2014-12-05 3188
Une option utilisant data.table
library(data.table)
setDT(df)[date %between% c('2014-12-02', '2014-12-05')]
# date sessions
#1: 2014-12-02 1828
#2: 2014-12-03 2349
#3: 2014-12-04 8192
#4: 2014-12-05 3188
Cela devrait fonctionner même si la colonne "date" est "caractère"
df$date <- as.character(df$date)
setDT(df)[date %between% c('2014-12-02', '2014-12-05')]
# date sessions
#1: 2014-12-02 1828
#2: 2014-12-03 2349
#3: 2014-12-04 8192
#4: 2014-12-05 3188
Dans le cas où nous voulions sous-ensemble à l'exclusion de la gamme
setDT(df)[between(date, '2014-12-02', '2014-12-05', incbounds=FALSE)]
# date sessions
#1: 2014-12-03 2349
#2: 2014-12-04 8192
df <- structure(list(date = structure(c(16405, 16406, 16407, 16408,
16409, 16410), class = "Date"), sessions = c(1932L, 1828L, 2349L,
8192L, 3188L, 3277L)), .Names = c("date", "sessions"), row.names = c("1",
"2", "3", "4", "5", "6"), class = "data.frame")