Alterações para figura e files

2023-09-28 14:39:10 -03:00
parent 9254d1d9ee
commit ad7eec5891
2 changed files with 12 additions and 5 deletions
--- a/EvolucaoVitruvio.org
+++ b/EvolucaoVitruvio.org
@ -331,8 +331,14 @@ library(dplyr)
  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
+
+
+
 #+end_src

 #+RESULTS:
--- a/data/Tabela4.csv
+++ b/data/Tabela4.csv
@ -1,5 +1,6 @@
 Ano,2004,2005,2006,2007,2008,2009
-Vacas,20,25,40,48,61,68
-Novilhas,7,15,11,16,12,17
-Terneiras,8,11,16,19,24,27
-Total,35,51,67,83,92,112
+Vacas,20,20,35,40,40,40
+Novilhas,7,15,8,14,9,8
+Terneiras,8,8,14,16,16,16
+Total,35,43,57,70,63,64
+,,,,,,