R:如何在不使用循环的情况下对数据框中的前一行进行计算？-6ren

R:如何在不使用循环的情况下对数据框中的前一行进行计算？

转载作者：行者123 更新时间：2023-12-04 02:48:24

24

4

如何在不使用 For 循环语句的情况下计算累计采暖度日？我是 R 的新手，不太确定如何完成这项工作。

我想这样做:

for(i in 1:nrow(df)) {
    df$cumHDD <- df$HeatingDegreeDay[i] + df$cumHDD[i-1]
     i <- i+1
}

下面是我的数据。

    SiteID SubstrateID  WinterID       Date HeatingDegreeDay cumHDD
1   NW_SB           B 2002_2003 2002-11-01        0.0000000      0
2   NW_SB           B 2002_2003 2002-11-02        0.0000000      0
3   NW_SB           B 2002_2003 2002-11-03        0.0000000      0
4   NW_SB           B 2002_2003 2002-11-04        0.0000000      0
5   NW_SB           B 2002_2003 2002-11-05        0.0000000      0
6   NW_SB           B 2002_2003 2002-11-06        0.0000000      0
7   NW_SB           B 2002_2003 2002-11-07        0.0000000      0
8   NW_SB           B 2002_2003 2002-11-08        0.0000000      0
9   NW_SB           B 2002_2003 2002-11-09        0.0000000      0
10  NW_SB           B 2002_2003 2002-11-10        0.0000000      0
11  NW_SB           B 2002_2003 2002-11-11        0.0000000      0
12  NW_SB           B 2002_2003 2002-11-12        0.0000000      0
13  NW_SB           B 2002_2003 2002-11-13        0.0000000      0
14  NW_SB           B 2002_2003 2002-11-14        0.0000000      0
15  NW_SB           B 2002_2003 2002-11-15        0.0000000      0
16  NW_SB           B 2002_2003 2002-11-16        0.0000000      0
17  NW_SB           B 2002_2003 2002-11-17        0.0000000      0
18  NW_SB           B 2002_2003 2002-11-18        0.0000000      0
19  NW_SB           B 2002_2003 2002-11-19        0.3724242      0
20  NW_SB           B 2002_2003 2002-11-20        0.0000000      0
21  NW_SB           B 2002_2003 2002-11-21        0.0000000      0
22  NW_SB           B 2002_2003 2002-11-22        0.0000000      0
23  NW_SB           B 2002_2003 2002-11-23        0.2773077      0
24  NW_SB           B 2002_2003 2002-11-24        0.2679310      0
25  NW_SB           B 2002_2003 2002-11-25        0.0000000      0

因此，对于我上面的数据，如果正确完成，它应该如下所示:

SiteID SubstrateID  WinterID       Date HeatingDegreeDay cumHDD
1   NW_SB           B 2002_2003 2002-11-01        0.0000000      0
2   NW_SB           B 2002_2003 2002-11-02        0.0000000      0
3   NW_SB           B 2002_2003 2002-11-03        0.0000000      0
4   NW_SB           B 2002_2003 2002-11-04        0.0000000      0
5   NW_SB           B 2002_2003 2002-11-05        0.0000000      0
6   NW_SB           B 2002_2003 2002-11-06        0.0000000      0
7   NW_SB           B 2002_2003 2002-11-07        0.0000000      0
8   NW_SB           B 2002_2003 2002-11-08        0.0000000      0
9   NW_SB           B 2002_2003 2002-11-09        0.0000000      0
10  NW_SB           B 2002_2003 2002-11-10        0.0000000      0
11  NW_SB           B 2002_2003 2002-11-11        0.0000000      0
12  NW_SB           B 2002_2003 2002-11-12        0.0000000      0
13  NW_SB           B 2002_2003 2002-11-13        0.0000000      0
14  NW_SB           B 2002_2003 2002-11-14        0.0000000      0
15  NW_SB           B 2002_2003 2002-11-15        0.0000000      0
16  NW_SB           B 2002_2003 2002-11-16        0.0000000      0
17  NW_SB           B 2002_2003 2002-11-17        0.0000000      0
18  NW_SB           B 2002_2003 2002-11-18        0.0000000      0
19  NW_SB           B 2002_2003 2002-11-19        0.3724242      0.3724242
20  NW_SB           B 2002_2003 2002-11-20        0.0000000      0.3724242
21  NW_SB           B 2002_2003 2002-11-21        0.0000000      0.3724242
22  NW_SB           B 2002_2003 2002-11-22        0.0000000      0.3724242
23  NW_SB           B 2002_2003 2002-11-23        0.2773077      0.6497319
24  NW_SB           B 2002_2003 2002-11-24        0.2679310      0.9176629
25  NW_SB           B 2002_2003 2002-11-25        0.0000000      0.9176629

我可以在 ddply 语句中执行此操作吗？我还有其他一些功能要做，并且认为在 ddply 中也执行上述操作会很好。

最佳答案

为此你需要使用 cumsum:

mydata$cumHDD<-with(mydata,cumsum(HeatingDegreeDay))

假设 mydata 是你的数据。

使用 ddply 的 mtcars 数据示例

library(plyr)
mydata<-mtcars
k<-ddply(mydata,.(cyl),summarize,cummpg=cumsum(mpg))

head(k,10)

cyl cummpg
1    4   22.8
2    4   47.2
3    4   70.0
4    4  102.4
5    4  132.8
6    4  166.7
7    4  188.2
8    4  215.5
9    4  241.5
10   4  271.9

关于R:如何在不使用循环的情况下对数据框中的前一行进行计算？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/18341787/

24

4

0

文章推荐： json - 如何在 Perl 中合并两个复杂的数据结构？

文章推荐： ajaxcontroltoolkit - Ajax 控件工具包和 Ajaxmin

Vim - 如何使用 smartcase 进行/搜索，而使用 noic 进行 * 搜索？
我喜欢 smartcase，也喜欢 * 和 # 搜索命令。但我更希望 * 和 # 搜索命令区分大小写，而/和 ?搜索命令遵循 smartcase 启发式。是否有隐藏在某个地方我还没有找到的设置？我宁
通过 SSH 进行 SSH(或如何通过 SSH 进行 'proxify' SSH)
关闭。这个问题是off-topic .它目前不接受答案。想改进这个问题？ Update the question所以它是on-topic对于堆栈溢出。 10年前关闭。 Improve this qu
java - 使用一个 LDAP 进行 AD 身份验证失败，但使用另一 LDAP 进行 AD 身份验证通过
从以下网站，我找到了执行java AD身份验证的代码。 http://java2db.com/jndi-ldap-programming/solution-to-sslhandshakeexcepti
r - 在哪些情况下，人们更喜欢通过 reshape 进行 melt 而不是通过 plyr 进行 ddply？我正在努力学习它们，它们看起来很相似
似乎 melt 会使用 id 列和堆叠的测量变量 reshape 您的数据框，然后通过转换让您执行聚合。 ddply，从 plyr 包看起来非常相似..你给它一个数据框，几个用于分组的列变量和一个聚合
caching - 为什么 Facebook 在 memcached 中使用 TCP 进行 SET 和 UDP 进行 GET
我的问题是关于 memcached。 Facebook 使用 memcached 作为其结构化数据的缓存，以减少用户的延迟。他们在 Linux 上使用 UDP 优化了 memcached 的性能。 h
java - 在 Camel route ，使用 exec 组件使用 grep 进行 curl ，但使用 ${HOSTNAME} 进行 grep 无法正常工作
在 Camel route ，我正在使用 exec 组件通过 grep 进行 curl ，但使用 ${HOSTNAME} 的 grep 无法正常工作，下面是我的 Camel 路线。请在这方面寻求帮助。
django - 进行 "not in"查询
我正在尝试执行相当复杂的查询，在其中我可以排除与特定条件集匹配的项目。这是一个 super 简化的模型来解释我的困境: class Thing(models.Model) user = mod
django - 进行 "not in"查询
我正在尝试执行相当复杂的查询，我可以在其中排除符合特定条件集的项目。这里有一个 super 简化的模型来解释我的困境: class Thing(models.Model) user = mod
angular - 进行 Angular 内容投影的现代方法是什么？
我发现了很多嵌入/内容项目的旧方法，并且我遵循了在这里找到的最新方法(我假设):https://blog.angular-university.io/angular-ng-content/ 我正在尝试
使用 NextJS 进行 Fastify
我正在寻找如何使用 fastify-nextjs 启动 fastify-cli 的建议我曾尝试将代码简单地添加到建议的位置，但它不起作用。 'use strict' const path = req
javascript - 进行 gatsby 构建时未定义窗口
我正在尝试将振幅 js 与 React 和 Gatsby 集成。做 gatsby developer 时一切看起来都不错，因为它发生在浏览器中，但是当我尝试 gatsby build 时，我收到以下错
java - 进行 Null 检查的频率和位置
我试图避免过度执行空值检查，但同时我想在需要使代码健壮的时候进行空值检查。但有时我觉得它开始变得如此防御，因为我没有实现 API。然后我避免了一些空检查，但是当我开始单元测试时，它开始总是等待运行时异
使用 NOT 进行 Kibana 搜索
尝试进行包含一些 NOT 的 Kibana 搜索，但获得包含 NOT 的结果，因此猜测我的语法不正确: "chocolate" AND "milk" AND NOT "cow" AND NOT "tr
iphone - 进行 Facebook 集成时出错
我正在使用开源代码共享包在 iOS 中进行 facebook 集成，但收到错误“FT_Load_Glyph failed: glyph 65535: error 6”。我在另一台 mac 机器上尝试了
r - 进行 Tobit 回归时的奇异性错误
我正在尝试估计一个标准的 tobit 模型，该模型被审查为零。变量是因变量 : 幸福自变量 : 城市(芝加哥，纽约)，性别(男，女)，就业(0=失业，1=就业)，工作类型(失业，蓝色，白色
从多个文件夹中对多个 jar 进行 gradle
我有一个像这样的项目布局样本/ 一种/ 源/ 主要的/ java / java 资源/ .jpg 乙/ 源/ 主要的/ java / B.java 资源/ B.jpg 构建.gradle 设置.gr
javascript - 进行 fetch 调用时出错
如何循环遍历数组中的多个属性以及如何使用map函数将数组中的多个属性显示到网页 import React, { Component } from 'react'; import './App.css'
javascript - 进行 AJAX 调用时加载程序不显示
我有一个 JavaScript 函数，它进行 AJAX 调用以返回一些数据，该调用是在选择列表更改事件上触发的。我尝试了多种方法来在等待时显示加载程序，因为它当前暂停了选择列表，从客户的 Angul
java - 进行 null 检查的更短方法
可能以前问过，但找不到。我正在用以下形式写很多语句: if (bar.getFoo() != null) { this.foo = bar.getFoo(); } 我想到了三元运算符，但我认
javascript - 进行 JavaScript 验证后短信消失
我有一个表单，在将其发送到 PHP 之前我正在执行一些验证 JavaScript，验证后的 JavaScript 函数会发布用户在中输入的文本。页面底部的标签；然而，此消息显示短暂，然后消失...

首页

博学

6Ren·AI

商城

R:如何在不使用循环的情况下对数据框中的前一行进行计算？