[英]Daily mean by date-column in data table R
我有以下數據表:
DT <- structure(list(date = structure(c(18628, 18628, 18628, 18628,
18628, 18628, 18628, 18628, 18628, 18628, 18628, 18628, 18628,
18628, 18628, 18628, 18628, 18628, 18628, 18628, 18628, 18628,
18628, 18628, 18629, 18629, 18629, 18629, 18629, 18629, 18629,
18629, 18629, 18629, 18629, 18629, 18629, 18629, 18629, 18629,
18629, 18629, 18629, 18629, 18629, 18629, 18629, 18629, 18630,
18630, 18630, 18630, 18630, 18630, 18630, 18630, 18630, 18630,
18630, 18630, 18630, 18630, 18630, 18630, 18630, 18630, 18630,
18630, 18630, 18630, 18630, 18630, 18631, 18631, 18631, 18631,
18631, 18631, 18631, 18631, 18631, 18631, 18631, 18631, 18631,
18631, 18631, 18631, 18631, 18631), class = "Date"), Germany = c("50,87",
"48,19", "44,68", "42,92", "40,39", "40,2", "39,63", "40,09",
"41,27", "44,88", "45", "47,2", "50,78", "45,49", "44,73", "46,59",
"52,99", "60,26", "60,61", "60,36", "57,4", "53,86", "53,45",
"49,72", "46,69", "42,43", "41,09", "40", "37,55", "39", "42,09",
"44,96", "48,45", "52", "52", "52,15", "55,95", "52", "50,69",
"53,45", "59,99", "62", "63,08", "62,17", "60,03", "55,03", "52,25",
"48,45", "46,11", "43", "39,55", "35,18", "33,45", "32,37", "31,7",
"32,63", "36,9", "36,96", "36,96", "43,72", "47,71", "40,41",
"39,66", "39,57", "36,11", "45,04", "52,56", "45,84", "35,83",
"33,31", "34,98", "27,39", "29,33", "24,82", "24,65", "24,8",
"27,71", "28,58", "37,04", "52,03", "55,76", "57,06", "57,18",
"60", "61,27", "60,28", "60,07", "59,46", "61,99", "66,82"),
year = c(2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L, 2021L,
2021L, 2021L)), class = c("data.table", "data.frame"), row.names = c(NA,
-90L))
現在我想按date
列計算Germany
列的每日平均值。 使用時:
dt.mean <- DT[, .(DE = mean(Germany)), by = "date"]
它給了我以下錯誤:
Error in gmean(Germany) :
Type 'character' not supported by GForce sum (gsum). Either add the prefix base::sum(.) or turn off GForce optimization using options(datatable.optimize=1)
對於此數據表, 2021-01-02
的每日平均值為2021-01-01
的每日平均值50.5625
48.3983333
我該如何解決這個問題?
正如 Maël 建議的那樣,您需要將字符串字符轉換為數字。 您可以這樣做並計算 data.table 中的平均值,如下所示:
dt.mean <- DT[, .(DE = mean(as.numeric(gsub(",", ".", Germany)))), by = "date"]
dt.mean
date DE
1: 2021-01-01 48.39833
2: 2021-01-02 50.56250
3: 2021-01-03 38.62250
4: 2021-01-04 47.15833
使用dplyr
:
DT %>%
mutate(Germany = as.numeric(gsub(",", ".", gsub("\\.", "", Germany)))) %>%
group_by(date) %>%
dplyr::summarize(meanDay = mean(Germany, na.rm=T)) %>%
as.data.frame()
date meanDay
1 2021-01-01 48.39833
2 2021-01-02 50.56250
3 2021-01-03 38.62250
4 2021-01-04 47.15833
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.