library(tidyverse)
# example data
set.seed(1337)
data <- list(
Jan = rnorm(100, mean = -300, sd = 100),
Feb = rnorm(100, mean = 0, sd = 100),
Mar = rnorm(100, mean = 500, sd = 100)
) %>%
enframe(name = "month", value = "profit_loss") %>%
unnest()
#> Warning: `cols` is now required when using unnest().
#> Please use `cols = c(profit_loss)`
data <- mutate(data, month = month %>% factor(levels = c("Jan", "Feb", "Mar")))
data %>%
group_by(month) %>%
summarise(
median = median(profit_loss),
mean = mean(profit_loss)
)
#> # A tibble: 3 × 3
#> month median mean
#>
#> 1 Jan -281. -276.
#> 2 Feb -13.2 4.11
#> 3 Mar 496. 484.
qplot(month, profit_loss, data = data, geom = "boxplot") +
scale_y_continuous(breaks = seq(-500, 750, by = 100), limits = c(-500, 750))
#> Warning: Removed 2 rows containing non-finite values (stat_boxplot).
Created on 2022-04-01 by the reprex package (v2.0.0)