0

我正在尝试绘制气团返回轨迹。我目前有代码，它非常适用于单点，每三个小时循环运行一次模型。这是该代码的关键部分：

lapply(files, function(x) file.remove(x))
start <- paste(year, "-01-01", sep = "")
end <- paste(year, "-12-31 18:00", sep = "")
dates <- seq(as.POSIXct(start, "GMT"), as.POSIXct(end, "GMT"), by = "3 hour")
for (i in 1:length(dates)) {
year <- format(dates[i], "%y")
Year <- format(dates[i], "%Y") # long format
month <- format(dates[i], "%m")
day <- format(dates[i], "%d")
hour <- format(dates[i], "%H")

但是，我一直在尝试为此添加一个额外的层。目前，它每三个小时循环一次并运行一次计算。现在，对于这三个小时的时间间隔中的每一个，我都需要它使用新的经度和纬度进行计算。关于如何添加此详细信息的任何建议？

我正在考虑使用以下内容：

purrr::map_2(long, lat, ~some_function_of(.x, .y))

......但是，尽管数小时查看备忘单试图教自己如何使用此功能，但我无处可去。

有什么建议么？

4

0 回答 0