出発国に基づいて時間を追加する

Question

各Facebook投稿の原産国を表示する列があります。投稿の作成時間もあります。私がしたいのは、すべてのアラビアポストに3時間を追加することです。それから私はロシアのポストのために5時間を追加したいと思います。私は12の国に12のタイムゾーンを追加する必要があると言います。

言語はR.

allCountries <- c("Arabia" , "Argentina", "Brazil", "Global", "India","Malaysia", 
          "Mexico","Poland","Sweden","Turkey","MaxTurkey","Ukraine","US") 

Answer 1

が私の日付は、この中に来

(df <- data.frame(datetime=rep(Sys.time(), 3), origin=c("arabian", "russian", "us"))) 
#    datetime origin 
# 1 2016-05-04 11:27:52 arabian 
# 2 2016-05-04 11:27:52 russian 
# 3 2016-05-04 11:27:52  us 
offset <- c("arabian"=3, "russian"=5) 

その後

transform(df, datetime=datetime + offset[origin]*60*60) 
#    datetime origin 
# 1 2016-05-04 14:26:12 arabian 
# 2 2016-05-04 16:26:12 russian 
# 3    <NA>  us 

または

transform(df, datetime=datetime + ifelse(origin %in% names(offset), offset[df$origin]*60*60, 0)) 
#    datetime origin 
# 1 2016-05-04 14:27:52 arabian 
# 2 2016-05-04 16:27:52 russian 
# 3 2016-05-04 11:27:52  us