我在机场数据框中有一个位置和日期列表,需要按天气数据(24列)进行扩展,其中每行必须通过getWeatherForDate
函数传递。
Location Date
AMS 2017-08-01
AMS 2017-08-02
EDI 2017-08-02
...
因此,我想要一个数据框,其中函数返回的这些额外的 24列与我的数据框连接。
每行必须由以下内容处理:
getWeatherForDate(aiports$Location, aiports$Date, opt_all_columns = TRUE)
所需的输出:
Location Date Min_temp Max_temp Max_humidity ...
AMS 2017-08-01 21 30 88
AMS 2017-08-02 23 28 87
EDI 2017-08-02 12 18 77
...
什么是智能和最佳的做法? by
? lapply
? foreach
?
答案 0 :(得分:0)
我设法使用by
函数:
output <- do.call("rbind", by(aiports, 1:nrow(aiports), function(row) cbind(row, getWeatherForDate(row$Location, row$Date))))