Я пытаюсь определить время прибытия первичной скорой помощи для ряда пациентов в моем фрейме данных = data
.
Основной машиной скорой помощи является 1-я, 2-я, 3-я или 4-я машина на месте происшествия (data$prim.amb.num=1
., 2
, 3
или 4
для каждого пациента/строки ).
data$time_v1
, data$time_v2
, data$time_v3
и data$time_v4
имеют время или отсутствующее значение, которое соответствует 1-му, 2-му, 3-му и 4-му транспортным средствам, где это уместно.
Что я хотел бы сделать, так это создать новую переменную = prim.amb.time
со временем, которое соответствует времени прибытия основной машины скорой помощи. Предположим, что для пациента=1 скорая помощь была первой. Тогда я хочу data[1,"prim.amb.time"]=data[1,"time_v1"]
.
Я могу определить правильный time_v*
с помощью следующего:
paste("time_v", data$prim.amb.num, sep="")
Но я застрял в том, как передать полученную информацию для вызова правильного столбца.
Я надеялся просто получить что-то вроде:
data$prim.amb.time<-data$paste("time_v", data$prim.amb.num, sep="")
но, конечно, это не работает. Я даже не знаю, как найти это в Google; Я пробовал различные комбинации этого названия, но безрезультатно. Какие-либо предложения?