Reordenar scripts e documentos #2
This commit is contained in:
@ -1,26 +0,0 @@
|
|||||||
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
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,124 +0,0 @@
|
|||||||
#+Title:Evolução de rebanho leiteiro em PRV
|
|
||||||
#+AUTHOR: Adenor Wendling
|
|
||||||
#+DATE: 10-23-2023
|
|
||||||
#+OPTIONS: creator:nil timestamp:nil
|
|
||||||
#+PROPERTY: header-args:R :results output :session *R3* :cmdline :tangle yes
|
|
||||||
#+PROPERTY: header-args:R+ :exports results
|
|
||||||
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
|
|
||||||
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
|
|
||||||
#+HTML_HEAD: <style> p{max-width:800px;}</style>
|
|
||||||
#+HTML_HEAD: <style> li{max-width:800px;}</style>
|
|
||||||
#+HTML_HEAD: <style> pre.src{background: #f5f5f5;color:black;}</style>
|
|
||||||
#+ATTR_HTML: :title testeAdenor :style color:red;[[https://orgmode.org]]
|
|
||||||
#+OPTIONS:with-date
|
|
||||||
|
|
||||||
--------------------------
|
|
||||||
|
|
||||||
#+NAME: library
|
|
||||||
#+begin_src R :exports none
|
|
||||||
library(data.table)
|
|
||||||
library(dplyr)
|
|
||||||
library(flextable)
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
#+RESULTS: library
|
|
||||||
| DT |
|
|
||||||
| dplyr |
|
|
||||||
| data.table |
|
|
||||||
| stats |
|
|
||||||
| graphics |
|
|
||||||
| grDevices |
|
|
||||||
| utils |
|
|
||||||
| datasets |
|
|
||||||
| methods |
|
|
||||||
| base |
|
|
||||||
|
|
||||||
* Composição e evolução do rebanho
|
|
||||||
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral, busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria *vacas em lactação*. Sua limitação geralmente está na capacidade de produção de alimentos na propriedade, ou ainda na capacidade de trabalho e das instalações.
|
|
||||||
Como o objetivo da presente proposta visa explorar a atividade em sistema a base de pasto, sendo que a maior parte da alimentação prevista será produzida no estabelecimento, este será considerado o fator limitante.
|
|
||||||
Da mesma forma, e evolução terá de respeitar o limite do estabelecimento, com incremento constante acompanhando as melhorias das pastagens.
|
|
||||||
Propomos que a base da composição e evolução seja calculada em número de cabeças e em unidade de gado maior (UMG), sendo que cada UGM equivale a 500 kg de peso vivo animal. De maneira geral, estima-se a UGM de acordo com a categoria animal ao qual pertence (Tabela 1). Esta é apenas uma aproximação, sendo que deve ser ajustado conforme o peso real dos animais ao longo da sua vida.
|
|
||||||
#+Caption: UGM de referência de acordo com a categoria animal
|
|
||||||
#+NAME: Tab1
|
|
||||||
| Cataegoria animal | UGM |
|
|
||||||
|-----------------------+------|
|
|
||||||
| Vacas em lactação | 1 |
|
|
||||||
| Vacas secas | 1 |
|
|
||||||
| Bezerras até 12 meses | 0.25 |
|
|
||||||
| Novilhas até 18 meses | 0.75 |
|
|
||||||
| Novilhas até 24 meses | 0.75 |
|
|
||||||
| Outros | 1 |
|
|
||||||
|-----------------------+------|
|
|
||||||
Uma composição do rebanho deve ser planejada para alcançar a máxima eficiência do sistema produtivo, sem presença de animais improdutivos. Estimar com exatidão a composição é tarefa difícil, pelo número de variáveis que podem afetá-la, mas teremos como foco alcançar a seguinte composição (Tabela 2):
|
|
||||||
|
|
||||||
;#+NAME: Composicao
|
|
||||||
#+begin_src R :exports results
|
|
||||||
#library(ascii) # exports result as org file
|
|
||||||
Composicao<-fread("~/Documentos/GITs/Compos_rebanho/data/composicao.csv", header=TRUE)
|
|
||||||
|
|
||||||
ft<-flextable(head(Composicao))
|
|
||||||
ft<-set_caption(ft,"Composição do rebanho depois de estabelisar o rebanho.")
|
|
||||||
ft<-width(ft,width=1.05)
|
|
||||||
print(theme_alafoli(ft))
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
#+RESULTS: Composicao
|
|
||||||
|
|
||||||
|
|
||||||
E evolução será baseado nos índices zootécnicos da raça, sendo: necessidade de substituição; fêmeas nascidas; intervalo entre nascimento e primeiro parto, mortalidade e intervalo entre partos.
|
|
||||||
Utilizamos os seguintes índices zootécnicos para estimar a evolução do rebanho do estabelecimento:
|
|
||||||
. Primeiro Parto = 26 meses
|
|
||||||
. Intervalo entre partos = 14 meses
|
|
||||||
. % de Fêmeas nascidas = 80% (uso de sêmen sexado)
|
|
||||||
. Mortalidade de bezerras = menor que 5%
|
|
||||||
. Descarte de vacas = 10 a 15%
|
|
||||||
Para equalizar a evolução entre os animais nascidos e necessários, serão vendidos os excedentes, na maioria dos casos na categoria bezerra.
|
|
||||||
|
|
||||||
** Composição inicial
|
|
||||||
O estabelecimento não possui animais, sendo que o início da atividade se dará através da aquisição de 20 novilhas cobertas, da raça jersey.
|
|
||||||
** Evolução
|
|
||||||
Com base nos índices zootécnicos e definições técnicas de capacidade de produção de alimentos, a evolução se dará conforme consta da tabela 3, e figura 1.
|
|
||||||
;#+NAME:evolucao
|
|
||||||
#+begin_src R :exports results
|
|
||||||
#library(ascii) # exports result as org file
|
|
||||||
Evolucao<-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucaoVitruvio.csv", header=TRUE)
|
|
||||||
|
|
||||||
ft1<-flextable(Evolucao)
|
|
||||||
ft1<-set_caption(ft1,"Evolucao do rebanho durante os primeiros anos.")
|
|
||||||
ft1<-width(ft1,width=1.05)
|
|
||||||
print(theme_alafoli(ft1))
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
|
|
||||||
#+RESULTS: evolucao
|
|
||||||
|
|
||||||
Também podemos observar a evolução do rebanho em formato de figura.
|
|
||||||
|
|
||||||
#+CAPTION: Evolução do rebanho nos primeiros anos em formato de gráfico
|
|
||||||
#+ATTR_HTML:
|
|
||||||
[[file:~/Documentos/GITs/Compos_rebanho/data/ResEvolVit.png][Figura 1 - Evolução do rebanho em forma de gráfico]
|
|
||||||
|
|
||||||
|
|
||||||
** Entradas e saídas de animais
|
|
||||||
Com os índices zootécnicos e a evolução do rebanho proposta, teremos uma movimentação de compra e venda de animais conforme tabela 4.
|
|
||||||
|
|
||||||
#+begin_src R :exports results
|
|
||||||
#library(ascii) # exports result as org file
|
|
||||||
EntraSai<-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv", header=TRUE)
|
|
||||||
EntraSai
|
|
||||||
ft2<-flextable(head(EntraSai))
|
|
||||||
ft2<-set_caption(ft2,"Previsão de entradas e saídas de animais.")
|
|
||||||
ft2<-width(ft2,width=1.05)
|
|
||||||
print(theme_alafoli(ft2))
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
#+RESULTS:
|
|
||||||
: Categoria 2004 2005 2006 2007 2008 2009
|
|
||||||
: 1: Vacas entradas 0 0 0 0 0 0
|
|
||||||
: 2: Novilhas entradas 20 0 0 0 0 0
|
|
||||||
: 3: Terneiras entradas 0 0 0 0 0 0
|
|
||||||
: 4: Total entradas 20 0 0 0 20 0
|
|
||||||
: 5: Vacas saídas 0 0 0 0 5 4
|
|
||||||
: 6: Novilhas saídas 0 0 0 0 0 0
|
|
||||||
: 7: Terneiras saídas 0 4 10 12 12 14
|
|
||||||
: 8: Total saídas 0 4 10 12 17 18
|
|
||||||
@ -1,168 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
|
|
||||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
|
||||||
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
|
|
||||||
<head>
|
|
||||||
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
|
|
||||||
<meta name="viewport" content="width=device-width, initial-scale=1" />
|
|
||||||
<title>Evolução de rebanho leiteiro em PRV</title>
|
|
||||||
<meta name="author" content="Adenor Wendling" />
|
|
||||||
<meta name="generator" content="Org Mode" />
|
|
||||||
<link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/htmlize.css"/>
|
|
||||||
<link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/readtheorg.css"/>
|
|
||||||
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script>
|
|
||||||
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"></script>
|
|
||||||
<script type="text/javascript" src="https://fniessen.github.io/org-html-themes/src/lib/js/jquery.stickytableheaders.min.js"></script>
|
|
||||||
<script type="text/javascript" src="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/js/readtheorg.js"></script>
|
|
||||||
<style> #content{max-width:1800px;}</style>
|
|
||||||
<style> p{max-width:800px;}</style>
|
|
||||||
<style> li{max-width:800px;}</style>
|
|
||||||
<style> pre.src{background: #f5f5f5;color:black;}</style>
|
|
||||||
</head>
|
|
||||||
<body>
|
|
||||||
<div id="content" class="content">
|
|
||||||
<h1 class="title">Evolução de rebanho leiteiro em PRV</h1>
|
|
||||||
<div id="table-of-contents" role="doc-toc">
|
|
||||||
<h2>Table of Contents</h2>
|
|
||||||
<div id="text-table-of-contents" role="doc-toc">
|
|
||||||
<ul>
|
|
||||||
<li><a href="#orgfc1e847">1. Composição e evolução do rebanho</a>
|
|
||||||
<ul>
|
|
||||||
<li><a href="#orgfacfd3b">1.1. Composição inicial</a></li>
|
|
||||||
<li><a href="#org027e11e">1.2. Evolução</a></li>
|
|
||||||
<li><a href="#org188afe8">1.3. Entradas e saídas de animais</a></li>
|
|
||||||
</ul>
|
|
||||||
</li>
|
|
||||||
</ul>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<div id="outline-container-orgfc1e847" class="outline-2">
|
|
||||||
<h2 id="orgfc1e847"><span class="section-number-2">1.</span> Composição e evolução do rebanho</h2>
|
|
||||||
<div class="outline-text-2" id="text-1">
|
|
||||||
<p>
|
|
||||||
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral, busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria <b>vacas em lactação</b>. Sua limitação geralmente está na capacidade de produção de alimentos na propriedade, ou ainda na capacidade de trabalho e das instalações.
|
|
||||||
Como o objetivo da presente proposta visa explorar a atividade em sistema a base de pasto, sendo que a maior parte da alimentação prevista será produzida no estabelecimento, este será considerado o fator limitante.
|
|
||||||
Da mesma forma, e evolução terá de respeitar o limite do estabelecimento, com incremento constante acompanhando as melhorias das pastagens.
|
|
||||||
Propomos que a base da composição e evolução seja calculada em número de cabeças e em unidade de gado maior (UMG), sendo que cada UGM equivale a 500 kg de peso vivo animal. De maneira geral, estima-se a UGM de acordo com a categoria animal ao qual pertence (Tabela 1). Esta é apenas uma aproximação, sendo que deve ser ajustado conforme o peso real dos animais ao longo da sua vida.
|
|
||||||
</p>
|
|
||||||
<table id="org6fb45b5" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
|
|
||||||
<caption class="t-above"><span class="table-number">Table 1:</span> UGM de referência de acordo com a categoria animal</caption>
|
|
||||||
|
|
||||||
<colgroup>
|
|
||||||
<col class="org-left" />
|
|
||||||
|
|
||||||
<col class="org-right" />
|
|
||||||
</colgroup>
|
|
||||||
<thead>
|
|
||||||
<tr>
|
|
||||||
<th scope="col" class="org-left">Cataegoria animal</th>
|
|
||||||
<th scope="col" class="org-right">UGM</th>
|
|
||||||
</tr>
|
|
||||||
</thead>
|
|
||||||
<tbody>
|
|
||||||
<tr>
|
|
||||||
<td class="org-left">Vacas em lactação</td>
|
|
||||||
<td class="org-right">1</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
<tr>
|
|
||||||
<td class="org-left">Vacas secas</td>
|
|
||||||
<td class="org-right">1</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
<tr>
|
|
||||||
<td class="org-left">Bezerras até 12 meses</td>
|
|
||||||
<td class="org-right">0.25</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
<tr>
|
|
||||||
<td class="org-left">Novilhas até 18 meses</td>
|
|
||||||
<td class="org-right">0.75</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
<tr>
|
|
||||||
<td class="org-left">Novilhas até 24 meses</td>
|
|
||||||
<td class="org-right">0.75</td>
|
|
||||||
</tr>
|
|
||||||
|
|
||||||
<tr>
|
|
||||||
<td class="org-left">Outros</td>
|
|
||||||
<td class="org-right">1</td>
|
|
||||||
</tr>
|
|
||||||
</tbody>
|
|
||||||
</table>
|
|
||||||
<p>
|
|
||||||
Uma composição do rebanho deve ser planejada para alcançar a máxima eficiência do sistema produtivo, sem presença de animais improdutivos. Estimar com exatidão a composição é tarefa difícil, pelo número de variáveis que podem afetá-la, mas teremos como foco alcançar a seguinte composição (Tabela 2):
|
|
||||||
</p>
|
|
||||||
|
|
||||||
<p>
|
|
||||||
;#+NAME: Composicao
|
|
||||||
</p>
|
|
||||||
<p>
|
|
||||||
E evolução será baseado nos índices zootécnicos da raça, sendo: necessidade de substituição; fêmeas nascidas; intervalo entre nascimento e primeiro parto, mortalidade e intervalo entre partos.
|
|
||||||
Utilizamos os seguintes índices zootécnicos para estimar a evolução do rebanho do estabelecimento:
|
|
||||||
. Primeiro Parto = 26 meses
|
|
||||||
. Intervalo entre partos = 14 meses
|
|
||||||
. % de Fêmeas nascidas = 80% (uso de sêmen sexado)
|
|
||||||
. Mortalidade de bezerras = menor que 5%
|
|
||||||
. Descarte de vacas = 10 a 15%
|
|
||||||
Para equalizar a evolução entre os animais nascidos e necessários, serão vendidos os excedentes, na maioria dos casos na categoria bezerra.
|
|
||||||
</p>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<div id="outline-container-orgfacfd3b" class="outline-3">
|
|
||||||
<h3 id="orgfacfd3b"><span class="section-number-3">1.1.</span> Composição inicial</h3>
|
|
||||||
<div class="outline-text-3" id="text-1-1">
|
|
||||||
<p>
|
|
||||||
O estabelecimento não possui animais, sendo que o início da atividade se dará através da aquisição de 20 novilhas cobertas, da raça jersey.
|
|
||||||
</p>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<div id="outline-container-org027e11e" class="outline-3">
|
|
||||||
<h3 id="org027e11e"><span class="section-number-3">1.2.</span> Evolução</h3>
|
|
||||||
<div class="outline-text-3" id="text-1-2">
|
|
||||||
<p>
|
|
||||||
Com base nos índices zootécnicos e definições técnicas de capacidade de produção de alimentos, a evolução se dará conforme consta da tabela 3, e figura 1.
|
|
||||||
;#+NAME:evolucao
|
|
||||||
</p>
|
|
||||||
<p>
|
|
||||||
Também podemos observar a evolução do rebanho em formato de figura.
|
|
||||||
</p>
|
|
||||||
|
|
||||||
<p>
|
|
||||||
[[<img src="file:///home/adenor/Documentos/GITs/Compos_rebanho/data/ResEvolVit.png" alt="ResEvolVit.png" />][Figura 1 - Evolução do rebanho em forma de gráfico]
|
|
||||||
</p>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
|
|
||||||
<div id="outline-container-org188afe8" class="outline-3">
|
|
||||||
<h3 id="org188afe8"><span class="section-number-3">1.3.</span> Entradas e saídas de animais</h3>
|
|
||||||
<div class="outline-text-3" id="text-1-3">
|
|
||||||
<p>
|
|
||||||
Com os índices zootécnicos e a evolução do rebanho proposta, teremos uma movimentação de compra e venda de animais conforme tabela 4.
|
|
||||||
</p>
|
|
||||||
|
|
||||||
<pre class="example" id="orgd7fd852">
|
|
||||||
Categoria 2004 2005 2006 2007 2008 2009
|
|
||||||
1: Vacas entradas 0 0 0 0 0 0
|
|
||||||
2: Novilhas entradas 20 0 0 0 0 0
|
|
||||||
3: Terneiras entradas 0 0 0 0 0 0
|
|
||||||
4: Total entradas 20 0 0 0 0 0
|
|
||||||
5: Vacas saídas 0 0 0 2 5 4
|
|
||||||
6: Novilhas saídas 0 0 0 0 0 0
|
|
||||||
7: Terneiras saídas 0 4 10 11 11 11
|
|
||||||
8: Total saídas 0 4 10 13 16 15
|
|
||||||
9: NA NA NA NA NA NA
|
|
||||||
</pre>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<div id="postamble" class="status">
|
|
||||||
<p class="date">Date: 10-23-2023</p>
|
|
||||||
<p class="author">Author: Adenor Wendling</p>
|
|
||||||
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
|
|
||||||
</div>
|
|
||||||
</body>
|
|
||||||
</html>
|
|
||||||
@ -1,49 +0,0 @@
|
|||||||
#+Title:Evolução de rebanho leiteiro em PRV
|
|
||||||
#+AUTHOR: Adenor Wendling
|
|
||||||
#+DATE: 10-23-2023
|
|
||||||
#+OPTIONS: creator:nil timestamp:nil
|
|
||||||
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
|
|
||||||
#+PROPERTY: header-args:R+ :exports both
|
|
||||||
#+SLUG: orgmode-excel
|
|
||||||
#+TAGS: tabelas, org-mode, composição ideal
|
|
||||||
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
|
|
||||||
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
|
|
||||||
#+HTML_HEAD: <style> p{max-width:800px;}</style>
|
|
||||||
#+HTML_HEAD: <style> li{max-width:800px;}</style>
|
|
||||||
#+HTML_HEAD: <style> pre.src{background: #f5f5f5;color:black;}</style>
|
|
||||||
|
|
||||||
* Composição e evolução do rebanho
|
|
||||||
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral, busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria *vacas em lactação*. Sua limitação geralmente está na capacidade de produção de alimentos na propriedade, ou ainda na capacidade de trabalho e das instalações.
|
|
||||||
Como o objetivo da presente proposta visa explorar a atividade em sistema a base de pasto, sendo que a maior parte da alimentação prevista será produzida no estabelecimento, este será considerado o fator limitante.
|
|
||||||
Da mesma forma, e evolução terá de respeitar o limite do estabelecimento, com incremento constante acompanhando as melhorias das pastagens.
|
|
||||||
Propomos que a base da composição e evolução seja calculada em número de cabeças e em unidade de gado maior (UMG), sendo que cada UGM equivale a 500 kg de peso vivo animal. De maneira geral, estima-se a UGM de acordo com a categoria animal ao qual pertence (Tabela 1). Esta é apenas uma aproximação, sendo que deve ser ajustado conforme o peso real dos animais ao longo da sua vida.
|
|
||||||
#+Caption: UGM de referência de acordo com a categoria animal
|
|
||||||
#+NAME: Tab1
|
|
||||||
| Cataegoria animal | UGM |
|
|
||||||
|-----------------------+------|
|
|
||||||
| Vacas em lactação | 1 |
|
|
||||||
| Vacas secas | 1 |
|
|
||||||
| Bezerras até 12 meses | 0.25 |
|
|
||||||
| Novilhas até 18 meses | 0.50 |
|
|
||||||
| Novilhas até 24 meses | 0.75 |
|
|
||||||
| Outros | 1 |
|
|
||||||
|-----------------------+------|
|
|
||||||
Uma composição do rebanho deve ser planejada para alcançar a máxima eficiência do sistema produtivo, sem presença de animais improdutivos. Estimar com exatidão a composição é tarefa difícil, pelo número de variáveis que podem afetar-la, mas teremos como foco alcançar a seguinte composição (Tabela 2):
|
|
||||||
|
|
||||||
#+Caption: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
|
|
||||||
#+NAME: C_ideal
|
|
||||||
| | Categoria de animais | Cabeças | %cab% | UGM | %UGM |
|
|
||||||
|---+-----------------------+---------+-------+------+-------|
|
|
||||||
| # | Vacas em lactação | 19 | 57.6 | 18 | 75.0 |
|
|
||||||
| # | Vacas secas | 2 | 9.5 | 2 | 12.1 |
|
|
||||||
| # | Bezerras ate 12 meses | 10 | 30.3 | 2.5 | 10.4 |
|
|
||||||
| # | Novilhas até 18 meses | 3 | 9.1 | 1.5 | 6.2 |
|
|
||||||
| # | Novilhas até 24 meses | 0 | 0.0 | 0. | 0.0 |
|
|
||||||
| # | Outros animais | | 0.0 | 0 | 0.0 |
|
|
||||||
| # | Total | 33 | 100.0 | 24. | 100.0 |
|
|
||||||
| ^ | | Tcab | | Tugm | |
|
|
||||||
|---+-----------------------+---------+-------+------+-------|
|
|
||||||
#+TBLFM: $4=$3*100/$Tcab;%.1f::@2$5=@2$3*remote(Tab1,@2$2)::@8$3=@2$3+@3$3+@4$3+@5$3+@6$3+@7$3::@3$5=@3$3*remote(Tab1, @3$2)::@4$5=@4$3*remote(Tab1, @4$2)::@5$5=@5$3*remote(Tab1, @5$2)::@6$5=@6$3*remote(Tab1, @6$2)::@7$5=@7$3*remote(Tab1, @7$2)::@8$5=vsum(@2..@7)::$6=$5*100/$Tugm;%.1f
|
|
||||||
|
|
||||||
|
|
||||||
E evolução será baseado nos índices zootécnicos da raça, sendo: necessidade de substituição; fêmeas nascidas; intervalo entre nascimento e primeiro parto, mortalidade e intervalo entre partos.
|
|
||||||
39
script/EvolucaoVitruvio.R
Normal file
39
script/EvolucaoVitruvio.R
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
# data: 2023-10-25
|
||||||
|
|
||||||
|
library(data.table)
|
||||||
|
library(tidyr)
|
||||||
|
library(dplyr)
|
||||||
|
library(ggplot2)
|
||||||
|
|
||||||
|
# Nota: iniciar uma sessão de R desde o diretório "script" para carregar a tabela com o seguinte caminho relativo ("../data/Tabela4.csv"):
|
||||||
|
|
||||||
|
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
|
||||||
@ -1,11 +1,11 @@
|
|||||||
#+Title:Evolução de rebanho leiteiro em PRV
|
#+Title:Evolução de rebanho leiteiro em PRV
|
||||||
#+AUTHOR: Adenor Wendling
|
#+AUTHOR: Adenor Wendling
|
||||||
#+DATE: 08-31-2023
|
#+DATE: 08-31-2023
|
||||||
#+OPTIONS: creator:nil timestamp:nil
|
#+OPTIONS: creator:nil timestamp:nil
|
||||||
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
|
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
|
||||||
#+PROPERTY: header-args:R+ :exports both
|
#+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
|
||||||
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
|
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
|
||||||
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
|
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
|
||||||
#+HTML_HEAD: <style> p{max-width:800px;}</style>
|
#+HTML_HEAD: <style> p{max-width:800px;}</style>
|
||||||
@ -14,19 +14,21 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
* TODO
|
** TODO
|
||||||
|
|
||||||
Continuar planilha
|
Continuar planilha
|
||||||
#+startup 2023-08-02
|
#+startup 2023-08-02
|
||||||
|
|
||||||
|
|
||||||
Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do
|
Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Vou utilizar os manuais on line <https://orgmode.org/manual/Field-and-range-formulas.html>
|
Vou utilizar os manuais on line <https://orgmode.org/manual/Field-and-range-formulas.html>
|
||||||
e <https://orgmode.org/org.html#Built_002din-Table-Editor>
|
e <https://orgmode.org/org.html#Built_002din-Table-Editor>
|
||||||
|
|
||||||
* Indices
|
** Índices
|
||||||
|
|
||||||
IP = intervalo entre partos (12 meses) (setq IP "12")
|
IP = intervalo entre partos (12 meses) (setq IP "12")
|
||||||
|
|
||||||
PP = primeiro parto (24 meses) (setq PP "24")
|
PP = primeiro parto (24 meses) (setq PP "24")
|
||||||
@ -34,11 +36,11 @@ PP = primeiro parto (24 meses) (setq PP "24")
|
|||||||
PL = PerÃodo de lactação (10 meses)(setq PL "10")
|
PL = PerÃodo de lactação (10 meses)(setq PL "10")
|
||||||
|
|
||||||
CL = capacidade de lotação (20UGM) (setq CL "20")
|
CL = capacidade de lotação (20UGM) (setq CL "20")
|
||||||
IndMor = Indice de mortalidade de bezerras
|
IndMor = Indice de mortalidade de bezerras
|
||||||
IRP = Índice de renovação do plantel - substituição de vacas velhas ou ruins
|
IRP = Índice de renovação do plantel - substituição de vacas velhas ou ruins
|
||||||
|
|
||||||
|
|
||||||
* Relação UGM e categoria animal
|
** Relação UGM e categoria animal
|
||||||
|
|
||||||
#+Caption: UGM de referência de acordo com a categoria animal
|
#+Caption: UGM de referência de acordo com a categoria animal
|
||||||
#+NAME: Tab1
|
#+NAME: Tab1
|
||||||
@ -53,12 +55,12 @@ IRP = Índice de renovação do plantel - substituição de vacas velhas
|
|||||||
|-----------------------+------+-------|
|
|-----------------------+------+-------|
|
||||||
|
|
||||||
Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 kg de peso vivo. Desta forma, pode ser necessário ajustar as UGMs e acordo com o peso dos animais de cada fazenda.
|
Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 kg de peso vivo. Desta forma, pode ser necessário ajustar as UGMs e acordo com o peso dos animais de cada fazenda.
|
||||||
* Composição do Rebanho
|
|
||||||
|
** Composição do Rebanho
|
||||||
|
|
||||||
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria *vacas em lactação*.
|
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria *vacas em lactação*.
|
||||||
Os dados da tabela 2 refletem a composição de um rebanho com finalidade de produção de leite, considerando um manejo reprodutivo e de alimentação excelentes.
|
Os dados da tabela 2 refletem a composição de um rebanho com finalidade de produção de leite, considerando um manejo reprodutivo e de alimentação excelentes.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#+Caption: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
|
#+Caption: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/composicao.csv
|
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/composicao.csv
|
||||||
@ -79,7 +81,6 @@ Os dados da tabela 2 refletem a composição de um rebanho com finalidade de pro
|
|||||||
#+TBLFM: $4=$3*100/$Tcab;%.1f::@2$5=@2$3*remote(Tab1,@2$2)::@8$3=@2$3+@3$3+@4$3+@5$3+@6$3+@7$3::@3$5=@3$3*remote(Tab1, @3$2)::@4$5=@4$3*remote(Tab1, @4$2)::@5$5=@5$3*remote(Tab1, @5$2)::@6$5=@6$3*remote(Tab1, @6$2)::@7$5=@7$3*remote(Tab1, @7$2)::@8$5=vsum(@2..@7)::$6=$5*100/$Tugm;%.1f
|
#+TBLFM: $4=$3*100/$Tcab;%.1f::@2$5=@2$3*remote(Tab1,@2$2)::@8$3=@2$3+@3$3+@4$3+@5$3+@6$3+@7$3::@3$5=@3$3*remote(Tab1, @3$2)::@4$5=@4$3*remote(Tab1, @4$2)::@5$5=@5$3*remote(Tab1, @5$2)::@6$5=@6$3*remote(Tab1, @6$2)::@7$5=@7$3*remote(Tab1, @7$2)::@8$5=vsum(@2..@7)::$6=$5*100/$Tugm;%.1f
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
A composição do rebanho é dinâmico, com espectativa de crescimento ao longo do tempo, até alcançar o limite de suporte das pastagens
|
A composição do rebanho é dinâmico, com espectativa de crescimento ao longo do tempo, até alcançar o limite de suporte das pastagens
|
||||||
ou de outro limitante definido pela infraestrutura ou de trabalho da fazenda. A espectativa de crescimento se deve à previsão de 1 parto anual
|
ou de outro limitante definido pela infraestrutura ou de trabalho da fazenda. A espectativa de crescimento se deve à previsão de 1 parto anual
|
||||||
por vaca, que gera um incremento anual de 50% de fêmeas em relação ao número de vacas, e do descarte de 25% das vacas.
|
por vaca, que gera um incremento anual de 50% de fêmeas em relação ao número de vacas, e do descarte de 25% das vacas.
|
||||||
@ -91,7 +92,8 @@ haverá impacto na evolução do rebanho, o que não caracteriza necessariamente
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
* Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais
|
** Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais
|
||||||
|
|
||||||
Os dados desta tabela deve ser alterados conforme necessário para alcançar a evolução do rebanho desejada.
|
Os dados desta tabela deve ser alterados conforme necessário para alcançar a evolução do rebanho desejada.
|
||||||
As tabelas de composição de rebanho serão calculadas automáticamente, com base nos dados anotados na tabela <Tab0>.
|
As tabelas de composição de rebanho serão calculadas automáticamente, com base nos dados anotados na tabela <Tab0>.
|
||||||
#+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
|
#+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
|
||||||
@ -141,7 +143,7 @@ Temos o seguinte:
|
|||||||
|
|
||||||
|
|
||||||
** Composição anual do rebanho da fazenda
|
** Composição anual do rebanho da fazenda
|
||||||
** Ano 1
|
*** Ano 1
|
||||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
|
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
|
||||||
#+NAME: Tab3_1
|
#+NAME: Tab3_1
|
||||||
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|
||||||
@ -160,7 +162,7 @@ Temos o seguinte:
|
|||||||
Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias do ano. No caso das vacas, não há alteração, visto que não há entradas, nem saídas, e o número inicial é o mesmo do final. No caso das novilhas, há movimentação, com a transferência interna de 5 (que passam de bezerras para novilhas), compra de 2, e transferência cedendo 5 para serem vacas no próximo ano. Assim, o ano inicia com 1 novilha, e termina com 3.
|
Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias do ano. No caso das vacas, não há alteração, visto que não há entradas, nem saídas, e o número inicial é o mesmo do final. No caso das novilhas, há movimentação, com a transferência interna de 5 (que passam de bezerras para novilhas), compra de 2, e transferência cedendo 5 para serem vacas no próximo ano. Assim, o ano inicia com 1 novilha, e termina com 3.
|
||||||
|
|
||||||
|
|
||||||
** Ano 2
|
*** Ano 2
|
||||||
|
|
||||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
|
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
|
||||||
#+NAME: Tab3_2
|
#+NAME: Tab3_2
|
||||||
@ -178,7 +180,7 @@ Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias
|
|||||||
#+TBLFM: $EAV=remote(Tab3_1, $EFV)::$TRV=remote(Tab3_1, $TCN)::$COV=remote(Tab0,$VC2)::$VEV=remote(Tab0, $VV2)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_1, $EFN)::$TRN=remote(Tab3_1, $TCB)::$CON=remote(Tab0,$NC2)::$VEN=remote(Tab0, $NV2)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_1, $EFB)::$FRB=$EFV*remote(Tab0, $BA2);%.0f::$COB=remote(Tab0,$BC2)::$VEB=remote(Tab0,$BV2)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
|
#+TBLFM: $EAV=remote(Tab3_1, $EFV)::$TRV=remote(Tab3_1, $TCN)::$COV=remote(Tab0,$VC2)::$VEV=remote(Tab0, $VV2)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_1, $EFN)::$TRN=remote(Tab3_1, $TCB)::$CON=remote(Tab0,$NC2)::$VEN=remote(Tab0, $NV2)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_1, $EFB)::$FRB=$EFV*remote(Tab0, $BA2);%.0f::$COB=remote(Tab0,$BC2)::$VEB=remote(Tab0,$BV2)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
|
||||||
|
|
||||||
Comentários sobre tabela 5
|
Comentários sobre tabela 5
|
||||||
** Ano 3
|
*** Ano 3
|
||||||
|
|
||||||
Na tabela 3.3 podemos observar...
|
Na tabela 3.3 podemos observar...
|
||||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
|
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
|
||||||
@ -197,7 +199,7 @@ Na tabela 3.3 podemos observar...
|
|||||||
#+TBLFM: $EAV=remote(Tab3_2, $EFV)::$TRV=remote(Tab3_2, $TCN)::$COV=remote(Tab0,$VC3)::$VEV=remote(Tab0, $VV3)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_2, $EFN)::$TRN=remote(Tab3_2, $TCB)::$CON=remote(Tab0,$NC3)::$VEN=remote(Tab0, $NV3)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_2, $EFB)::$FRB=$EFV*remote(Tab0, $BA3);%.0f::$COB=remote(Tab0,$BC3)::$VEB=remote(Tab0,$BV3)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
|
#+TBLFM: $EAV=remote(Tab3_2, $EFV)::$TRV=remote(Tab3_2, $TCN)::$COV=remote(Tab0,$VC3)::$VEV=remote(Tab0, $VV3)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_2, $EFN)::$TRN=remote(Tab3_2, $TCB)::$CON=remote(Tab0,$NC3)::$VEN=remote(Tab0, $NV3)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_2, $EFB)::$FRB=$EFV*remote(Tab0, $BA3);%.0f::$COB=remote(Tab0,$BC3)::$VEB=remote(Tab0,$BV3)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
|
||||||
Comentários sobre a tabela 6
|
Comentários sobre a tabela 6
|
||||||
|
|
||||||
** Ano 4
|
*** Ano 4
|
||||||
|
|
||||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
|
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
|
||||||
#+NAME: Tab3_4
|
#+NAME: Tab3_4
|
||||||
@ -215,7 +217,7 @@ Comentários sobre a tabela 6
|
|||||||
#+TBLFM: $EAV=remote(Tab3_3, $EFV)::$TRV=remote(Tab3_3, $TCN)::$COV=remote(Tab0,$VC4)::$VEV=remote(Tab0, $VV4)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_3, $EFN)::$TRN=remote(Tab3_3, $TCB)::$CON=remote(Tab0,$NC4)::$VEN=remote(Tab0, $NV4)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_3, $EFB)::$FRB=$EFV*remote(Tab0, $BA4);%.0f::$COB=remote(Tab0,$BC4)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
|
#+TBLFM: $EAV=remote(Tab3_3, $EFV)::$TRV=remote(Tab3_3, $TCN)::$COV=remote(Tab0,$VC4)::$VEV=remote(Tab0, $VV4)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_3, $EFN)::$TRN=remote(Tab3_3, $TCB)::$CON=remote(Tab0,$NC4)::$VEN=remote(Tab0, $NV4)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_3, $EFB)::$FRB=$EFV*remote(Tab0, $BA4);%.0f::$COB=remote(Tab0,$BC4)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
|
||||||
|
|
||||||
Comentários da tabela 7
|
Comentários da tabela 7
|
||||||
** Ano 5
|
*** Ano 5
|
||||||
|
|
||||||
#+NAME: Tab3_5
|
#+NAME: Tab3_5
|
||||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
|
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
|
||||||
@ -235,7 +237,7 @@ Comentários sobre a tabela 6
|
|||||||
|
|
||||||
Comentários da tabela 8
|
Comentários da tabela 8
|
||||||
|
|
||||||
** Ano 6
|
*** Ano 6
|
||||||
e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
|
e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
|
||||||
|
|
||||||
|
|
||||||
@ -256,19 +258,20 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
* Resumo da evolução
|
** Resumo da evolução
|
||||||
|
|
||||||
Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda.
|
Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda.
|
||||||
|
|
||||||
Tabela com os dados resumidos referente aos animais existentes anualmente
|
Tabela com os dados resumidos referente aos animais existentes anualmente
|
||||||
Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados.
|
Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados.
|
||||||
|
|
||||||
** Entradas e saídas
|
*** Entradas e saídas
|
||||||
#+NAME:TABELA5
|
#+NAME:TABELA5
|
||||||
#+CAPTION: Resumo das entradas e saídas de animais nos primeiros anos do projeto
|
#+CAPTION: Resumo das entradas e saídas de animais nos primeiros anos do projeto
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv
|
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv
|
||||||
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
|
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
|
||||||
:END:
|
:END:
|
||||||
| | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|
| | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|
||||||
|---+--------------------+------+------+------+------+------+------|
|
|---+--------------------+------+------+------+------+------+------|
|
||||||
| # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 |
|
| # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 |
|
||||||
@ -286,7 +289,7 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
|
|||||||
|---+--------------------+------+------+------+------+------+------|
|
|---+--------------------+------+------+------+------+------+------|
|
||||||
#+TBLFM:@2$3=remote(Tab3_1, $COV)::@2$4=remote(Tab3_2, $COV)::@2$5=remote(Tab3_3, $COV)::@2$6=remote(Tab3_4, $COV)::@2$7=remote(Tab3_5, $COV)::@2$8=remote(Tab3_6, $COV)::@3$3=remote(Tab3_1, $CON)::@3$4=remote(Tab3_2, $CON)::@3$5=remote(Tab3_3, $CON)::@3$6=remote(Tab3_4, $CON)::@3$7=remote(Tab3_5, $CON)::@3$8=remote(Tab3_6, $CON)::@4$3=remote(Tab3_1, $COB)::@4$4=remote(Tab3_2, $COB)::@4$5=remote(Tab3_3, $COB)::@4$6=remote(Tab3_4, $COB)::@4$7=remote(Tab3_5, $COB)::@4$8=remote(Tab3_6, $COB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6::@5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=remote(Tab3_1, $VEV)::@6$4=remote(Tab3_2, $VEV)::@6$5=remote(Tab3_3, $VEV)::@6$6=remote(Tab3_4, $VEV)::@6$7=remote(Tab3_5, $VEV)::@6$8=remote(Tab3_6, $VEV)::@7$3=remote(Tab3_1, $VEN)::@7$4=remote(Tab3_2, $VEN)::@7$5=remote(Tab3_3, $VEN)::@7$6=remote(Tab3_4, $VEN)::@7$7=remote(Tab3_5, $VEN)::@7$8=remote(Tab3_6, $VEN)::@8$3=remote(Tab3_1, $VEB)::@8$4=remote(Tab3_2, $VEB)::@8$5=remote(Tab3_3, $VEB)::@8$6=remote(Tab3_4, $VEB)::@8$7=remote(Tab3_5, $VEB)::@8$8=remote(Tab3_6, $VEB)::@9$3=@6$3+@7$3+@8$3::@9$4=@6$4+@7$4+@8$4::@9$5=@6$5+@7$5+@8$5::@9$6=@6$6+@7$6+@8$6::@9$7=@6$7+@7$3+@8$7::@9$8=@6$8+@7$8+@8$8
|
#+TBLFM:@2$3=remote(Tab3_1, $COV)::@2$4=remote(Tab3_2, $COV)::@2$5=remote(Tab3_3, $COV)::@2$6=remote(Tab3_4, $COV)::@2$7=remote(Tab3_5, $COV)::@2$8=remote(Tab3_6, $COV)::@3$3=remote(Tab3_1, $CON)::@3$4=remote(Tab3_2, $CON)::@3$5=remote(Tab3_3, $CON)::@3$6=remote(Tab3_4, $CON)::@3$7=remote(Tab3_5, $CON)::@3$8=remote(Tab3_6, $CON)::@4$3=remote(Tab3_1, $COB)::@4$4=remote(Tab3_2, $COB)::@4$5=remote(Tab3_3, $COB)::@4$6=remote(Tab3_4, $COB)::@4$7=remote(Tab3_5, $COB)::@4$8=remote(Tab3_6, $COB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6::@5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=remote(Tab3_1, $VEV)::@6$4=remote(Tab3_2, $VEV)::@6$5=remote(Tab3_3, $VEV)::@6$6=remote(Tab3_4, $VEV)::@6$7=remote(Tab3_5, $VEV)::@6$8=remote(Tab3_6, $VEV)::@7$3=remote(Tab3_1, $VEN)::@7$4=remote(Tab3_2, $VEN)::@7$5=remote(Tab3_3, $VEN)::@7$6=remote(Tab3_4, $VEN)::@7$7=remote(Tab3_5, $VEN)::@7$8=remote(Tab3_6, $VEN)::@8$3=remote(Tab3_1, $VEB)::@8$4=remote(Tab3_2, $VEB)::@8$5=remote(Tab3_3, $VEB)::@8$6=remote(Tab3_4, $VEB)::@8$7=remote(Tab3_5, $VEB)::@8$8=remote(Tab3_6, $VEB)::@9$3=@6$3+@7$3+@8$3::@9$4=@6$4+@7$4+@8$4::@9$5=@6$5+@7$5+@8$5::@9$6=@6$6+@7$6+@8$6::@9$7=@6$7+@7$3+@8$7::@9$8=@6$8+@7$8+@8$8
|
||||||
|
|
||||||
** Animais existentes
|
*** Animais existentes
|
||||||
#+NAME:TABELA4
|
#+NAME:TABELA4
|
||||||
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
|
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
@ -304,38 +307,40 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
|
|||||||
| # | | | | | | | |
|
| # | | | | | | | |
|
||||||
#+TBLFM:@2$3=remote(Tab3_1, $SAV)::@2$4=remote(Tab3_2, $SAV)::@2$5=remote(Tab3_3, $SAV)::@2$6=remote(Tab3_4, $SAV)::@2$7=remote(Tab3_5, $SAV)::@2$8=remote(Tab3_6, $SAV)::@3$3=remote(Tab3_1, $SAN)::@3$4=remote(Tab3_2, $SAN)::@3$5=remote(Tab3_3, $SAN)::@3$6=remote(Tab3_4, $SAN)::@3$7=remote(Tab3_5, $SAN)::@3$8=remote(Tab3_6, $SAN)::@4$3=remote(Tab3_1, $SAB)::@4$4=remote(Tab3_2, $SAB)::@4$5=remote(Tab3_3, $SAB)::@4$6=remote(Tab3_4, $SAB)::@4$7=remote(Tab3_5, $SAB)::@4$8=remote(Tab3_6, $SAB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6:: @5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=(@2$3*remote(Tab1,@2$2)+@3$3*remote(tab1,@6$2)+@4$3*remote(tab1,@4$2))::@6$4=(@2$4*remote(Tab1,@2$2)+@3$4*remote(tab1,@6$2)+@4$4*remote(tab1,@4$2))::@6$5=(@2$5*remote(Tab1,@2$2)+@3$5*remote(tab1,@6$2)+@4$5*remote(tab1,@4$2))::@6$6=(@2$6*remote(Tab1,@2$2)+@3$6*remote(tab1,@6$2)+@4$6*remote(tab1,@4$2))::@6$7=(@2$7*remote(Tab1,@2$2)+@3$7*remote(tab1,@6$2)+@4$7*remote(tab1,@4$2))::@6$8=(@2$8*remote(Tab1,@2$2)+@3$8*remote(tab1,@6$2)+@4$8*remote(tab1,@4$2))
|
#+TBLFM:@2$3=remote(Tab3_1, $SAV)::@2$4=remote(Tab3_2, $SAV)::@2$5=remote(Tab3_3, $SAV)::@2$6=remote(Tab3_4, $SAV)::@2$7=remote(Tab3_5, $SAV)::@2$8=remote(Tab3_6, $SAV)::@3$3=remote(Tab3_1, $SAN)::@3$4=remote(Tab3_2, $SAN)::@3$5=remote(Tab3_3, $SAN)::@3$6=remote(Tab3_4, $SAN)::@3$7=remote(Tab3_5, $SAN)::@3$8=remote(Tab3_6, $SAN)::@4$3=remote(Tab3_1, $SAB)::@4$4=remote(Tab3_2, $SAB)::@4$5=remote(Tab3_3, $SAB)::@4$6=remote(Tab3_4, $SAB)::@4$7=remote(Tab3_5, $SAB)::@4$8=remote(Tab3_6, $SAB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6:: @5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=(@2$3*remote(Tab1,@2$2)+@3$3*remote(tab1,@6$2)+@4$3*remote(tab1,@4$2))::@6$4=(@2$4*remote(Tab1,@2$2)+@3$4*remote(tab1,@6$2)+@4$4*remote(tab1,@4$2))::@6$5=(@2$5*remote(Tab1,@2$2)+@3$5*remote(tab1,@6$2)+@4$5*remote(tab1,@4$2))::@6$6=(@2$6*remote(Tab1,@2$2)+@3$6*remote(tab1,@6$2)+@4$6*remote(tab1,@4$2))::@6$7=(@2$7*remote(Tab1,@2$2)+@3$7*remote(tab1,@6$2)+@4$7*remote(tab1,@4$2))::@6$8=(@2$8*remote(Tab1,@2$2)+@3$8*remote(tab1,@6$2)+@4$8*remote(tab1,@4$2))
|
||||||
|
|
||||||
* 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.>>
|
||||||
|
|
||||||
|
|
||||||
** Gráfico resumo
|
** Gráfico resumo
|
||||||
#+NAME: Ler data.table Resumo
|
#+NAME: Ler data.table Resumo
|
||||||
#+begin_src R :exports results
|
#+begin_src R :exports results
|
||||||
library(data.table)
|
library(data.table)
|
||||||
library(tidyr)
|
library(tidyr)
|
||||||
library(dplyr)
|
library(dplyr)
|
||||||
REV<-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucaoVitruvio.csv", header=TRUE)
|
|
||||||
REv<- REV%>%
|
|
||||||
pivot_longer (cols=c("2004", "2005", "2006", "2007", "2008", "2009"),
|
|
||||||
names_to="Ano",
|
|
||||||
values_to="Quantidade",
|
|
||||||
values_drop_na = TRUE )
|
|
||||||
|
|
||||||
REv$Ano=as.numeric(REv$Ano)
|
REV <- fread("../data/ResumoEvolucaoVitruvio.csv", header=TRUE)
|
||||||
#View(REv)
|
|
||||||
#end_src
|
REv <- REV %>%
|
||||||
|
pivot_longer(cols = c("2004", "2005", "2006", "2007", "2008", "2009"),
|
||||||
|
names_to = "Ano",
|
||||||
|
values_to = "Quantidade",
|
||||||
|
values_drop_na = TRUE )
|
||||||
|
|
||||||
|
REv$Ano <- as.numeric(REv$Ano)
|
||||||
|
|
||||||
|
str(REv)
|
||||||
|
#+end_src
|
||||||
|
|
||||||
#+NAME: grafico resumo
|
#+NAME: grafico resumo
|
||||||
#+begin_src R :grafResum.png :results graphics file
|
#+begin_src R :grafResum.png :results graphics file
|
||||||
library (ggplot2)
|
|
||||||
|
|
||||||
ResEvolVit<-ggplot(REv, aes(Ano,
|
library (ggplot2)
|
||||||
Quantidade,
|
|
||||||
colour=Categoria))+
|
|
||||||
geom_line()
|
|
||||||
ggsave("ResEvolVit.png", ResEvolVit, path="~/Documentos/GITs/Compos_rebanho/data/", width=7, height=3, units="in")
|
|
||||||
|
|
||||||
#+end_src
|
ResEvolVit <- ggplot(REv, aes(Ano, Quantidade, colour=Categoria)) +
|
||||||
|
geom_line()
|
||||||
|
|
||||||
#+RESULTS: Ler data.table Resumo
|
ggsave("ResEvolVit.png", ResEvolVit, path="../data/", width=7, height=3,
|
||||||
: Erro: unexpected string constant em "ggsave(ResEvolVit.pdf" ResEvolVit, path=""
|
units="in")
|
||||||
|
|
||||||
**
|
#+end_src
|
||||||
Reference in New Issue
Block a user