media_diaria <- df %>%
group_by(mes) %>%
summarise_at(vars(x1,x4), mean, na.rm = TRUE)
Viewdput(media_diaria)
structure(list(mes = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12),
x1 = c(34, 31, 29, 29, 34.6666666666667, 40, 31.3333333333333,
22, 31.3333333333333, 28.6666666666667, 24, 28), x4 = c(85,
77.5, 72.5, 72.5, 86.6666666666667, 100, 78.3333333333333,
55, 78.3333333333333, 71.6666666666667, 60, 70)), row.names = c(NA,
-12L), class = c("tbl_df", "tbl", "data.frame"))
Calculo das medias mensais (referente a soma mensal) de x1 e x4
soma_mensal <- df %>%
group_by(ano,mes) %>%
summarise_at(vars(x1,x4), sum, na.rm = TRUE)
media_mensal <- soma_mensal %>%
group_by(mes) %>%
summarise_at(vars(x1,x4), mean, na.rm = TRUE)
Viewdput(soma_mensal)
structure(list(ano = c(2002, 2002, 2002, 2002, 2002, 2002, 2002,
2002, 2003, 2003, 2003, 2003, 2003, 2003, 2003, 2004, 2004, 2004,
2004, 2004, 2004, 2004, 2004, 2004), mes = c(2, 4, 5, 6, 7, 9,
View11, 12, 1, 2, 3, 7, 8, 10, 12, 1, 2, 4, 5, 6, 7, 8, 9, 10), x1 = c(22,
44, 48, 42, 6, 4, 24, 26, 52, 44, 58, 48, 10, 28, 30, 16, 58,
14, 56, 78, 40, 34, 90, 58), x4 = c(55, 110, 120, 105, 15, 10,
60, 65, 130, 110, 145, 120, 25, 70, 75, 40, 145, 35, 140, 195,
100, 85, 225, 145)), row.names = c(NA, -24L), groups = structure(list(
ano = c(2002, 2003, 2004), .rows = structure(list(1:8, 9:15,
16:24), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), row.names = c(NA, -3L), class = c("tbl_df",
"tbl", "data.frame"), .drop = TRUE), class = c("grouped_df",
"tbl_df", "tbl", "data.frame"))
dput(media_mensal)
structure(list(mes = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12),
x1 = c(34, 41.3333333333333, 58, 29, 52, 60, 31.3333333333333,
22, 47, 43, 24, 28), x4 = c(85, 103.333333333333, 145, 72.5,
130, 150, 78.3333333333333, 55, 117.5, 107.5, 60, 70)), row.names = c(NA,
-12L), class = c("tbl_df", "tbl", "data.frame"))