r - 当前时间的最大函数
问题描述
如何在时间之后创建具有当天当前最高价的列?我使用了 pmax 但它没有帮助。
> df
date_time Price
1 2018-02-01 18:13:17 3178.5
2 2018-02-01 18:13:13 3179.0
3 2018-02-01 18:13:13 3178.5
4 2018-02-01 18:13:13 3178.5
5 2018-02-01 18:13:09 3178.5
6 2018-02-01 18:13:00 3178.5
7 2018-02-01 18:12:54 3179.5
8 2018-02-01 18:12:43 3179.5
我正在尝试这样做。
> mutate(df, high_day = ?)
date_time Price high_day
1 2018-02-01 18:13:17 3179.5 3179.5
2 2018-02-01 18:13:13 3179.0 3179.0
3 2018-02-01 18:13:13 3178.5 3179.0
4 2018-02-01 18:13:13 3179.0 3179.0
5 2018-02-01 18:13:09 3178.5 3178.5
6 2018-02-01 18:13:00 3178.5 3178.5
7 2018-02-01 18:12:54 3178.5 3178.5
8 2018-02-01 18:12:43 3178.5 3178.5
用于繁殖:
structure(list(data_hora = structure(c(1517508797, 1517508793,
1517508793, 1517508793, 1517508789, 1517508780, 1517508774, 1517508763,
1517508763, 1517508763, 1517508763, 1517508757, 1517508756), class = c("POSIXct",
"POSIXt"), tzone = ""), Preco = c(3178.5, 3179, 3178.5, 3178.5,
3178.5, 3178.5, 3179.5, 3179.5, 3179.5, 3179.5, 3179, 3179, 3179.5
)), row.names = 38:50, class = "data.frame")
解决方案
这个怎么样:
library(lubridate)
df %>%
arrange(date_time) %>%
group_by(date = as.Date(date_time)) %>%
mutate(day_high = cummax(Price))
推荐阅读
- php - 解密/解密文本
- javascript - 我的行没有变成按钮,而是消失了
- sql - 多部分标识符无法在 SQL 中绑定
- python - 剪切文本python的特定行
- nlp - 我可以在用户每次打开他的信使聊天时显示快速回复吗?
- java - 用 Java 从 Excel 中读取数据
- ios - 无法在 xamarin Visual Studio 中构建 ios 应用程序
- node.js - 无法使用 phantomjs 和 nightwatch.js 从 org.openqa.selenium.remote.NewSessionPayload 创建会话
- javascript - 如何限制框阴影传播不超过父宽度和高度
- dart - Flutter 将文本字段与底部对齐并从顶部对齐文本