<-
df_aprovacoes_porte read.csv(
'./data/aprovacoes_por_porte_de_empresa.csv',
header = T,
sep = ';',
dec = ',',
quote = "\""
)
|> head() df_aprovacoes_porte
ano mes micro pequena media grande
1 1995 1 128.4699 0 10.18922 380.2330
2 1995 2 106.3283 0 16.21161 495.5282
3 1995 3 234.5488 0 13.69085 715.9591
4 1995 4 125.2196 0 16.44511 403.9919
5 1995 5 209.4168 0 20.88794 477.2529
6 1995 6 122.5179 0 23.86818 473.2194