gpt4 book ai didi

r - 计算R中融雪的开始日期

转载 作者:行者123 更新时间:2023-12-04 10:35:00 25 4
gpt4 key购买 nike

<分区>

从 1950 年到 2017 年,我每天都有这种格式的温度 Data

我需要计算融雪开始日期定义为每日温度高于 0 摄氏度的第一天,紧随三月和五月之间的最后五天期间,每日温度低于 0 摄氏度. 到目前为止我的代码:

  df1<-read.csv("temp.csv")
require(dplyr)
# applying the condition to check each temperature value
df1$boolean<- ifelse(df1$temp<0.0 , 1, 0)

#computing the total sum < 0 and the start and end date
snow<-df1 %>%
mutate(boolean = ifelse(is.na(boolean), 0, boolean)) %>%
group_by(group = cumsum(c(0, diff(boolean) != 0))) %>%
filter(boolean == 1 & n() > 1) %>%
summarize("Start Date"=min(as.character(date)),
"End Date"=max(as.character(date)),
"Length of Run"=n()) %>%
ungroup() %>%
select(-matches("group"))
colnames(snow)[3] <- 'length'

# subset length that greater >5
obs<-subset(snow,length >=5)

上面的代码给出了部分解决方案(如果进一步手动编辑,我将得到符合我定义的理想解决方案)我只对每年的一个开始日期感兴趣。关于如何编辑此代码以根据上述定义计算起始日期,我需要一些进一步的指导。

我有很多位置,因此手动编辑这不是理想的解决方案。您的帮助将不胜感激

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com