Rは私にとって新しく、私は(プライベート)データセットを使用しています。
私には次の問題があり、時系列がたくさんあります:
2015-04-27 12:29:48
2015-04-27 12:31:48
2015-04-27 12:34:50
2015-04-27 12:50:43
2015-04-27 12:53:55
2015-04-28 00:00:00
2015-04-28 00:00:10
すべての時系列には値があります:
Datetime value
2015-04-27 12:29:48 0.0
2015-04-27 12:31:48 0.0
2015-04-27 12:34:50 1.1
2015-04-27 12:50:43 45.0
2015-04-27 12:53:55 0.0
2015-04-28 00:00:00 1.0
2015-04-28 00:00:10 2.0
私はすべての時間と分をスキップし、次のようにすべてをまとめたいです:
Datetime value
2015-04-27 46.1
2015-04-28 3.0
私が最初にしたことは、列の日時を変換することでした:
energy$datetime <- as.POSIXlt(energy$datetime)
サマリ機能でいくつかのことを試しました:
df %>% group_by(energy$datetime) %>% summarize (energy$newname(energy$value))
しかし、それは機能していません。
また、インターネット上で競合するものも読んでいます(例: http://r.789695.n4.nabble.com/How-to-sum-and-group-data-by-DATE-in-data-frame -td903708.html )しかし、それは私には意味がありません(うん、私は初心者です)。
誰かが私を助けてくれることを願っています!
As.Date()を使用してから、aggregate()を使用します。
energy$Date <- as.Date(energy$Datetime)
aggregate(energy$value, by=list(energy$Date), sum)
エマは列名について良い点を指摘しました。代わりに以下を使用して、列名を集約して保持できます。
aggregate(energy["value"], by=energy["Date"], sum)
data.tableを使用
Test$Datetime <- as.Date(Test$Datetime)
DT<- data.table(Test )
DT[,sum(value),by = Datetime]
Datetime V1
1: 2015-04-27 46.1
2: 2015-04-28 3.0
Tidyverseを使用して、特に潤滑剤とdplyrを使用します。
library(lubridate)
library(tidyverse)
set.seed(10)
df <- tibble(Datetime = sample(seq(as.POSIXct("2015-04-27"), as.POSIXct("2015-04-29"), by = "min"), 10),
value = sample(1:100, 10)) %>%
arrange(Datetime)
df
#> # A tibble: 10 x 2
#> Datetime value
#> <dttm> <int>
#> 1 2015-04-27 04:04:00 35
#> 2 2015-04-27 10:48:00 41
#> 3 2015-04-27 13:02:00 25
#> 4 2015-04-27 13:09:00 5
#> 5 2015-04-27 14:43:00 57
#> 6 2015-04-27 20:29:00 12
#> 7 2015-04-27 20:34:00 77
#> 8 2015-04-28 00:22:00 66
#> 9 2015-04-28 05:29:00 37
#> 10 2015-04-28 09:14:00 58
df %>%
mutate(date_col = date(Datetime)) %>%
group_by(date_col) %>%
summarize(value = sum(value))
#> # A tibble: 2 x 2
#> date_col value
#> <date> <int>
#> 1 2015-04-27 252
#> 2 2015-04-28 161
reprexパッケージ (v0.2.0)によって2018-08-01に作成されました。
あなたは正しい道を進んでいます-サマリ呼び出しのためにsummarise(newVal = sum(energy$value) )
を試してください。df<- energy %>% group_by(datetime) %>% summarise(sum =sum(value)) )