values <- tibble::tribble(
~Code, ~Value,
6300001, 0.51,
6300001, 0.89,
6300001, 10.05,
6300001, 10.05,
6300001, 10.05,
6300001, 10.25,
6300014, 0.31,
6300014, 1.13,
6300014, 1.64,
6300046, 901.54,
6300046, 95.49,
6300049, 1.34,
6300049, 10.33
)
values %>%
group_by(Code) %>%
summarise(min = min(Value),
max = max(Value),
mean = mean(Value))