alteração cabeçalhos

This commit is contained in:
2023-09-28 13:03:09 -03:00
parent 9b62eba8f4
commit 8f17794017

View File

@ -1,9 +1,10 @@
#+Title:Evolução de rebanho leiteiro em PRV #+Title:Evolução de rebanho leiteiro em PRV
#+DESCRIPTION: #+DESCRIPTION:
#+LANGUAGE: portuguese #+LANGUAGE: portuguese
#+AUTHOR: Adenor Wendling #+AUTHOR: Adenor Wendling
#+DATE: 08-31-2023 #+DATE: 08-31-2023
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
#+PROPERTY: header-args:R+ :exports both
#+SLUG: orgmode-excel #+SLUG: orgmode-excel
#+TAGS: tabelas, org-mode, composição ideal #+TAGS: tabelas, org-mode, composição ideal
#+share: false #+share: false
@ -300,14 +301,14 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
* TODO Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.>> * TODO Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.>>
*** Importação dos dados dos animais existentes *** Importação dos dados dos animais existentes
#+BEGIN_src R #+begin_src R
library (data.table) library (data.table)
library(tidyr) library(tidyr)
library(dplyr) library(dplyr)
library (ggplot2) library (ggplot2)
#+END_src #+end_src
#+BEGIN_src R #+begin_src R
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE) Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
str(Evol_exist) str(Evol_exist)
@ -321,7 +322,7 @@ library(dplyr)
#View(Evoluc) #View(Evoluc)
str(Evoluc) str(Evoluc)
#+END_src #+end_src
*** Gráfico da evolução do rebanho *** Gráfico da evolução do rebanho