Konwertuj znacznik czasu Twittera w R

Question

Jestem nowy dla R i jestem okropny z datami obsługi. Następująca data jest zwracana z zapytania do interfejsu API wyszukiwarki Twitter i jest przechowywana jako ciąg znaków w mojej ramce danych.

"piątek, 14 stycznia 2011 03:01:22 +0000"

Jak mogę przekonwertować to do daty i zmienić strefę czasową, aby być Standardowy czas wschodni?

Sądzę, że to najprawdopodobniej nieskomplikowane działanie, ale poruszyłem się i nie dotarłem do niczego.

Każda pomoc zostanie bardzo doceniona!

Answer 1

Działa to dla mnie (jestem w Wielkiej Brytanii):

> (str <- "Fri, 14 Jan 2011 03:01:22 +0000") 
[1] "Fri, 14 Jan 2011 03:01:22 +0000" 

> (str <- strptime(str, "%a, %d %b %Y %H:%M:%S %z", tz = "GMT")) 
[1] "2011-01-14 03:01:22 GMT" 

> (dt.gmt <- as.POSIXct(str, tz = "GMT")) 
[1] "2011-01-14 03:01:22 GMT" 

> format(dt.gmt, tz = "EST", usetz = TRUE) 
[1] "2011-01-13 22:01:22 EST" 

Daty/czasy mylić mi dużo, więc jestem mając nadzieję, że powyższe działa dla Ciebie, nawet jeśli jesteś w innej strefie czasowej niż GMT, ale nie jestem tego pewien!

Mam nadzieję, że pomaga trochę przynajmniej Tony

Answer 2

Z help(strptime):

> Sys.setlocale("LC_TIME", "C") 
[1] "C" 
> strptime("Tue, 23 Mar 2010 14:36:38 -0400", 
+   "%a, %d %b %Y %H:%M:%S %z", 
+   tz="GMT") 
[1] "2010-03-23 18:36:38 GMT" 

Bądź ostrożny o lokalizacji: jeśli nie wyzerować go C, funkcja będzie próbować analizować codzienne i miesiąc skróty jak miejscowe.

Answer 3

Gorąco polecam przyjrzeć się pakietowi twitteR Jeffa Gentry'ego na CRAN. Wśród innych subtelności, analizuje date sznurki dla Ciebie:

> library(twitteR) 
> tweets = searchTwitter('#rstats') 
> length(tweets) 
[1] 25 
> tweet = tweets[[1]] 
> str(tweet) 
Formal class 'status' [package "twitteR"] with 10 slots 
    ..@ text  : chr "The Joy of Sweave \023 A Beginner\031s Guide to Reproducible Research with Sweave: Just& http://goo.gl/fb/APmCb #rstats" 
    ..@ favorited : logi FALSE 
    ..@ replyToSN : chr(0) 
    ..@ created  : POSIXct[1:1], format: "2011-01-18 04:48:05" 
    ..@ truncated : logi FALSE 
    ..@ replyToSID : num(0) 
    ..@ id   : num 2.72e+16 
    ..@ replyToUID : num(0) 
    ..@ statusSource: chr "<a href="http://www.google.com/support/youtube/bin/answer.py?hl=en&answer=164577" rel="nofollow">"| __truncated__ 
    ..@ screenName : chr "Rbloggers"