Простой способ получить дистрибутив, используя dplyr
:
library(plm)
library(dplyr)
data("Gasoline", package = "plm")
# Randomly sample rows to make example panel unbalanced
gas <- Gasoline[sample(nrow(Gasoline), 200), ]
gas %>%
group_by(country) %>%
tally() %>%
pull(n) %>%
summary()
Min. 1st Qu. Median Mean 3rd Qu. Max.
7.00 9.25 10.00 11.11 13.75 15.00
Но чтобы получить эту аккуратную визуализацию ... это займет немного больше работы.