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
|
||||
@ -14,7 +14,8 @@
|
||||
|
||||
|
||||
|
||||
* TODO
|
||||
** TODO
|
||||
|
||||
Continuar planilha
|
||||
#+startup 2023-08-02
|
||||
|
||||
@ -26,7 +27,8 @@ 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>
|
||||
e <https://orgmode.org/org.html#Built_002din-Table-Editor>
|
||||
|
||||
* Indices
|
||||
** Índices
|
||||
|
||||
IP = intervalo entre partos (12 meses) (setq IP "12")
|
||||
|
||||
PP = primeiro parto (24 meses) (setq PP "24")
|
||||
@ -38,7 +40,7 @@ IndMor = Indice de mortalidade de bezerras
|
||||
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
|
||||
#+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.
|
||||
* 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*.
|
||||
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.
|
||||
:PROPERTIES:
|
||||
: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
|
||||
|
||||
|
||||
|
||||
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
|
||||
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.
|
||||
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)
|
||||
@ -141,7 +143,7 @@ Temos o seguinte:
|
||||
|
||||
|
||||
** Composição anual do rebanho da fazenda
|
||||
** Ano 1
|
||||
*** Ano 1
|
||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
|
||||
#+NAME: Tab3_1
|
||||
| | 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.
|
||||
|
||||
|
||||
** Ano 2
|
||||
*** Ano 2
|
||||
|
||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 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
|
||||
|
||||
Comentários sobre tabela 5
|
||||
** Ano 3
|
||||
*** Ano 3
|
||||
|
||||
Na tabela 3.3 podemos observar...
|
||||
#+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
|
||||
Comentários sobre a tabela 6
|
||||
|
||||
** Ano 4
|
||||
*** Ano 4
|
||||
|
||||
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 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
|
||||
|
||||
Comentários da tabela 7
|
||||
** Ano 5
|
||||
*** Ano 5
|
||||
|
||||
#+NAME: Tab3_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
|
||||
|
||||
** 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.
|
||||
|
||||
|
||||
@ -256,13 +258,14 @@ 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.
|
||||
|
||||
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.
|
||||
|
||||
** Entradas e saídas
|
||||
*** Entradas e saídas
|
||||
#+NAME:TABELA5
|
||||
#+CAPTION: Resumo das entradas e saídas de animais nos primeiros anos do projeto
|
||||
:PROPERTIES:
|
||||
@ -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
|
||||
|
||||
** Animais existentes
|
||||
*** Animais existentes
|
||||
#+NAME:TABELA4
|
||||
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
|
||||
: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))
|
||||
|
||||
* 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
|
||||
#+NAME: Ler data.table Resumo
|
||||
#+begin_src R :exports results
|
||||
library(data.table)
|
||||
library(tidyr)
|
||||
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",
|
||||
library(dplyr)
|
||||
|
||||
REV <- fread("../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)
|
||||
#View(REv)
|
||||
#end_src
|
||||
REv$Ano <- as.numeric(REv$Ano)
|
||||
|
||||
str(REv)
|
||||
#+end_src
|
||||
|
||||
#+NAME: grafico resumo
|
||||
#+begin_src R :grafResum.png :results graphics file
|
||||
|
||||
library (ggplot2)
|
||||
|
||||
ResEvolVit<-ggplot(REv, aes(Ano,
|
||||
Quantidade,
|
||||
colour=Categoria))+
|
||||
ResEvolVit <- ggplot(REv, aes(Ano, Quantidade, colour=Categoria)) +
|
||||
geom_line()
|
||||
ggsave("ResEvolVit.png", ResEvolVit, path="~/Documentos/GITs/Compos_rebanho/data/", width=7, height=3, units="in")
|
||||
|
||||
#+end_src
|
||||
ggsave("ResEvolVit.png", ResEvolVit, path="../data/", width=7, height=3,
|
||||
units="in")
|
||||
|
||||
#+RESULTS: Ler data.table Resumo
|
||||
: Erro: unexpected string constant em "ggsave(ResEvolVit.pdf" ResEvolVit, path=""
|
||||
|
||||
**
|
||||
#+end_src
|
||||
Reference in New Issue
Block a user