x <- 1:15  # Eixo x (comum para ambas as linhas)
y1 <- c(15512,16499,15303,16014,14839,15310,14176,16559,18018,20993,22239,26607,27385,28382,24114)  # Série 1
y2 <- c(3225,3257,3291,2843,3099,23255,5300,7537,9493,10825,10287,10817,11445,12457,13766)  # Série 2

# Criando o gráfico para a primeira linha
plot(x, y1, type = "l", col = "blue", lwd = 2, ylim = c(0, max(y1, y2)), 
     xlab = "TEMPO", ylab = "Nº de empresas", main = "Gráfico com Duas Linhas")

# Adicionando a segunda linha ao gráfico
lines(x, y2, col = "red", lwd = 2)

# Adicionando uma legenda
legend("topright", legend = c("abrtas", "fchads"), col = c("blue", "red"), lwd = 2)

#tema 1
# dados coletados no painel de empresas do gov brasil (excluindo meis)
#total de empresas abertas de 2010 a 2024 *291950*
#total de empresas fechadas  nesse mesmo período *161053* ou seja apenas restaram 130897 empresas vivas 
# deste periodo
130897/223527*100 # representa isso em pocentagem 
## [1] 58.55982
100-58.55982 # representa as empresas com mais de 15 anos em mt
## [1] 41.44018
#média de 8.726 empresas abertas por ano

ao analisar dados do SPC BRASIL podemos observa que Mato Grosso tem cerca de 93.100 que corresponde 1 a cada 5 empresas empresas inandimplentes

#e que elas devem uma média de 6.703,11 em valor de dividas cada empresa deve cerca de 1,73 credores na soma de todas as dividas Mato Grosso deve cerca de 624.059.541 milhões em dividas cnpj que corresponde a 0,02% do pib do estado 23,57% estão inadimplestes de 3 a 4 anos serviços é o setor com maior numero de inadimplencia das empresas sendo 41,36% seguido por comercio 34,32% , Outros 16,54% , Industria 7,26% e agricultura 0,51% e para finalizar podemos estimar que fatores como inadimplencia , má gestão e outros farores tem impactado na economia e com isto as empresas em MT tem deixado de gerar cerca de 372400 a 744800 mil empregos em todo o estado do Mato Grosso