library (data.table)
  library(tidyr)
library(dplyr)
  library (ggplot2)

Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
  str(Evol_exist)

#Transpor a tabela
Evol_exist1<-dcast(melt(Evol_exist, id.vars="Ano"),variable ~Ano)
# deu um trabalho para n ão aparecer uma linha nova com os nomes da colunas...
str(Evol_exist1)
Evoluc<-Evol_exist1%>%
     pivot_longer(!variable, names_to="Categoria", values_to="Cabecas")%>%
    dplyr::mutate(Ano=variable)
#View(Evoluc)
str(Evoluc)

Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+
      geom_line (aes(color=Categoria))+
     geom_point(aes(color=Categoria))
     getwd()
png(filename="fig/Evoluc1.png")
plot(Evoluc)

 Evoluc