CODEWITHSUNDEEP
r
user3456230
user3456230

Reputation: 217

split dataset by day and save it as data frame

I have a dataset with 2 months of data (month of Feb and March). Can I know how can I split the data into 59 subsets of data by day and save it as data frame (28 days for Feb and 31 days for Mar)? Preferably to save the data frame in different name according to the date, i.e. 20140201, 20140202 and so forth.

    df <- structure(list(text = structure(c(4L, 6L, 5L, 2L, 8L, 1L), .Label = c(" Terpilih Jadi Maskapai dengan Pelayanan Kabin Pesawat cont", 
    "booking number ZEPLTQ I want to cancel their flight because they can not together  with my wife and kids", 
    "Can I change for the traveler details because i choose wrongly for the Mr or Ms part", 
    "cant do it with cards either", "Coming back home AK", "gotta try PNNL", 
    "Jadwal penerbangan medanjktsblm tangalmasi ada kah", "Me and my Tart would love to flyLoveisintheAir", 
    "my flight to Bangkok onhas been rescheduled I couldnt perform seat selection now", 
    "Pls checks his case as money is not credited to my bank acctThanks\n\nCASLTP", 
    "Processing fee Whatt", "Tacloban bound aboardto get them boats Boats boats boats Tacloban HeartWork", 
    "thanks I chatted with ask twice last week and told the same thing"
    ), class = "factor"), created = structure(c(1L, 1L, 2L, 2L, 3L, 
    3L), .Label = c("1/2/2014", "2/2/2014", "5/2/2014", "6/2/2014"
    ), class = "factor")), .Names = c("text", "created"), row.names = c(NA, 
    6L), class = "data.frame")

Upvotes: 0

Views: 483

Answers (1)

smci
smci

Reputation: 33960

You don't need to output multiple dataframes. You only need to select/subset them by year&month of the 'created' field. So here are two ways do do that: 1. is simpler if you don't plan on needing any more date-arithmetic

# 1. Leave 'created' a string, just use text substitution to extract its month&date components
df$created_mthyr <- gsub( '([0-9]+/)[0-9]+/([0-9]+)', '\\1\\2', df$created )

# 2. If you need to do arbitrary Date arithmetic, convert 'created' field to Date object
# in this case you need an explicit format-string 
df$created <- as.Date(df$created, '%M/%d/%Y')

# Now you can do either a) split
split(df, df$created_mthyr)
# specifically if you want to assign the output it creates to 3 dataframes:

df1 <- split(df, df$created_mthyr)[[1]]
df2 <- split(df, df$created_mthyr)[[2]]
df5 <- split(df, df$created_mthyr)[[3]]

# ...or else b) do a Split-Apply-Combine and perform arbitrary command on each separate subset. This is very powerful. See plyr/ddply documentation for examples.
require(plyr)
df1 <- dlply(df, .(created_mthyr))[[1]]
df2 <- dlply(df, .(created_mthyr))[[2]]
df5 <- dlply(df, .(created_mthyr))[[3]]

# output looks like this - strictly you might not want to keep 'created','created_mthyr':
> df1
#                          text  created created_mthyr
#1 cant do it with cards either 1/2/2014        1/2014
#2               gotta try PNNL 1/2/2014        1/2014

> df2                                                                                                         
#3                                                                                        
#Coming back home AK
#4 booking number ZEPLTQ I want to cancel their flight because they can not together  with my wife and kids
#   created created_mthyr
#3 2/2/2014        2/2014
#4 2/2/2014        2/2014

Upvotes: 1

Related Questions