データフレームの列を効率的に反復処理する方法は？

Question

ので、dataは、データフレームは、多くの列で構成されており、のいずれかがlpep_pickup_datetime「は2016年1月1日12時39分三十六秒AM」の形式で日付と時間を持っていると呼ばれる

私はこれらを分析しますデータは日付と時刻で表示されるので、pickup_dateという名前の新しい列を作成しようとしています。pickup_timeという名前のAMまたはPM情報を持つ列を作成しようとしています。

strsplit関数を使用して文字列を次の形式に分割しました。c（ "01/01/2016"、 "12:29:24"、 "AM"）、私は前述のこのデータの列。

私は、次のコードを書いている：それはデータの90181行を反復処理するために時間がかかりすぎるよう

data$lpep_pickup_datetime=strsplit(data$lpep_pickup_datetime, " ") 

data$pickup_date=data$lpep_pickup_datetime[[1]][1] 


for (i in seq(1,90181)) 
{ 
    data$pickup_time[i]=data$lpep_pickup_datetime[[i]][2] 
} 

これは、重々しく非効率的です。このタスクを達成するためのより良い方法はありますか？

ありがとうございました。 base Rで

Answer 1

?apply(df, 2, function(...))を作成することができ、列を反復処理の通常の方法です。しかし、ここでそれを行う必要はありません

> df<-data.frame("datetime" = format(seq(c(ISOdate(2000,3,20)), by = "day", length.out = 100000), "%Y-%m-%d %r"), stringsAsFactors=FALSE) 
> str(df) 
'data.frame': 100000 obs. of 1 variable: 
$ datetime: chr "2000-03-20 08:00:00 PM" "2000-03-21 08:00:00 PM" "2000-03-22 08:00:00 PM" "2000-03-23 08:00:00 PM" ... 
> df$dateonly<-format(as.Date(df$datetime, format="%Y-%m-%d %r"),"%Y-%m-%d") 
> head(df) 
       datetime dateonly 
1 2000-03-20 08:00:00 PM 2000-03-20 
2 2000-03-21 08:00:00 PM 2000-03-21 
3 2000-03-22 08:00:00 PM 2000-03-22 
4 2000-03-23 08:00:00 PM 2000-03-23 
5 2000-03-24 08:00:00 PM 2000-03-24 
6 2000-03-25 08:00:00 PM 2000-03-25 

Answer 2

、我々は区切り文字を作成するためにsubを使用し、read.csvを持つ2つの列

data[paste0("pickup_", c("date", "time"))] <- read.csv(text=sub("\\s+", 
     ",", data$lpep_pickup_datetime), header=FALSE, stringsAsFactors=FALSE)