[R] noob requesting help

[Rui Barradas]

Hello,

Try

names(departures) <- NULL
dep <- data.frame(departures[ !sapply(departures, is.null) ])

You now have data.frame 'dep'.

Rui Barradas

Em 17-06-2012 12:19, capital_P escreveu:
>
> Rui Barradas wrote
>>
>> It's stringsAsFactors = FALSE, just one '='.
>>
>> sapply(dat, length)
>>
>> It should return 4 times the value 34773.
>>
>> use dput()
>>
>
> it worked!
>
>> dat2 <- data.frame(dat, stringsAsFactors = FALSE)
>
>> sapply(dat2, length)
> device_info_serial               hour               time
>               34773              34773              34773
>              tripID
>               34773
>
>> dput(head(dat2, 20))
> structure(list(device_info_serial = c(121L, 121L, 121L, 121L,
> 121L, 121L, 121L, 121L, 121L, 121L, 121L, 121L, 121L, 121L, 121L,
> 121L, 121L, 121L, 121L, 121L), hour = c(10L, 11L, 11L, 11L, 11L,
> 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L,
> 12L, 13L), time = structure(c(1242896364, 1242896671, 1242897111,
> 1242897399, 1242897686, 1242897978, 1242898281, 1242898589, 1242898916,
> 1242899253, 1242899542, 1242899835, 1242901122, 1242901902, 1242902199,
> 1242902489, 1242902807, 1242903096, 1242903402, 1242903708), class =
> c("POSIXct",
> "POSIXt"), tzone = ""), tripID = c(3L, 3L, 3L, 3L, 3L, 3L, 3L,
> 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L)), .Names =
> c("device_info_serial",
> "hour", "time", "tripID"), row.names = c(NA, 20L), class = "data.frame")
>>
>
>> departures <- lapply(split(dat2, list(dat2$device_info_serial,
>> dat2$tripID)), function(x) x[x$time == min(x$time),])
>
> Now I have a new problem:
>
> I need to make a histogram of the hours (in this case, their time of
> departure), for the whole population and for each bird seperately.
>
> Before, I used this:
>
> hist(active$hour, breaks = 24, xlim=c(0,24))
>
> and:
>
> b121 <- active[which(active$device_info_serial == 121),]
> b130 <- active[which(active$device_info_serial == 130),]
> b132 <- active[which(active$device_info_serial == 132),]
> b133 <- active[which(active$device_info_serial == 133),]
> etc.
>
> But now there are no departures$device_info_serial or departures$hour,
> because departures is a list, not a data frame.
>
> I've tried:
>
>> dep <- data.frame(departures, stringsAsFactors = FALSE)
> Error in data.frame(`121.1` = list(device_info_serial = integer(0), hour =
> integer(0),  :
>    arguments imply differing number of rows: 0, 1, 2
>
>> dep <- data.frame(departures)
> Error in data.frame(`121.1` = list(device_info_serial = integer(0), hour =
> integer(0),  :
>    arguments imply differing number of rows: 0, 1, 2
>
> --
> View this message in context: http://r.789695.n4.nabble.com/noob-requesting-help-tp4632803p4633637.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>