为数据框中的项目数调用一个函数并将结果合并在一起

Question

我有一个名为 getWeatherForMonth 的函数，它采用开始日期和结束日期以及 returns 作为每个月结果的数据框。我有另一种方法 getWeatherForRange，它采用范围数据框。我需要为 "dates" 中的每一行调用 getWeatherForMonth 并将结果合并到一个数据框中。我正在使用如下所示的 mapply，但它没有合并生成的数据帧。

library(RJSONIO)

    getWeatherForMonth <- function(start.date, end.date) {
        url <- "http://api.worldweatheronline.com/premium/v1/past-weather.ashx?key=PUT-YOUR-KEY-HERE&q=London&format=json&date=%s&enddate=%e&tp=24"
        url <- gsub("%s", start.date, url)
        url <- url <- gsub("%e", end.date, url)

        data <- fromJSON(url)
        weather <- data$data$weather
        GMT <- sapply(weather, function(x){as.character(x[1])})
        Max.TemperatureC <- sapply(weather, function(x){as.numeric(x[3])})
        Min.TemperatureC <- sapply(weather, function(x){as.numeric(x[4])})
        Wind.SpeedKm.h <- sapply(weather, function(x){as.numeric(x$hourly[[1]]$windspeedKmph[1])})
        Precipitationmm <- sapply(weather, function(x){as.numeric(x$hourly[[1]]$precipMM[1])})
        DewPointC <-sapply(weather, function(x){as.numeric(x$hourly[[1]]$DewPointC[1])}) 
        Wind.Chill <-sapply(weather, function(x){as.numeric(x$hourly[[1]]$WindChillC[1])}) 
        Cloud.Cover <-sapply(weather, function(x){as.numeric(x$hourly[[1]]$cloudcover[1])}) 
        Description <-sapply(weather, function(x){as.character(x$hourly[[1]]$weatherDesc[1])}) 
        Humidity <- sapply(weather, function(x){as.numeric(x$hourly[[1]]$humidity[1])}) 
        Feels.LikeC <- sapply(weather, function(x){as.numeric(x$hourly[[1]]$FeelsLikeC[1])})

        df <- data.frame(GMT, Max.TemperatureC, Min.TemperatureC, Wind.SpeedKm.h, Precipitationmm, DewPointC, Wind.Chill, Cloud.Cover, Description, Humidity, Feels.LikeC)

        return(df)
    }

    getWeatherForRange <- function(dates) {
        df <- mapply(getWeatherForMonth, dates$start.date, dates$end.date)

        return(df)
    }

    start.date <- seq(as.Date("2015-01-01"), length=12, by="1 month")
    end.date <- seq(as.Date("2015-02-01"),length=12,by="months") - 1
    dates.2015 <- data.frame(start.date, end.date)

    data <- getWeatherForRange(dates)
    View(data)

输出看起来像这样 Screenshot of the current output

Answer 1

考虑使用 Map()。具体来说，在你的 getWeatherForRange 函数中，使用 Map() 它实际上是 mapply() 的非简化版本的包装器，相当于 mapply(..., SIMPLIFY=FALSE)。默认情况下，mapply() return 是向量、矩阵或更高维数组。但是您需要一个数据框（即列表对象）return.

此更新后的函数将 return 一个数据帧列表，稍后您可以运行一个 do.call(rbind, ...)，假设每个 df 中的所有列都是一致的，将所有 df 堆叠在一起最终数据框。

getWeatherForRange <- function(dates) {
  # EQUIVALENT LINES
  dfList <- Map(getWeatherForMonth, dates$start.date, dates$end.date)
  # dfList <- mapply(getWeatherForMonth, dates$start.date, dates$end.date, SIMPLIFY = FALSE)
  return(dfList)
}

start.date <- seq(as.Date("2015-01-01"), length=12, by="1 month")
end.date <- seq(as.Date("2015-02-01"), length=12, by="months") - 1
dates <- data.frame(start.date, end.date)

datalist <- getWeatherForRange(dates)         # DATAFRAME LIST
data <- do.call(rbind, datalist)              # FINAL DATA FRAME

为数据框中的项目数调用一个函数并将结果合并在一起

Call a function for the number of items in a data frame and merge the results together

r

rjson