Files
Compos_rebanho/script/EvolucaoVitruvio.org

382 lines
25 KiB
Org Mode
Raw Permalink Normal View History

2023-09-20 21:09:04 -03:00
#+Title:Evolução de rebanho leiteiro em PRV
#+AUTHOR: Adenor Wendling, José Brann e Ana Laura Carille
2023-09-20 21:09:04 -03:00
#+DATE: 08-31-2023
2023-10-25 11:49:55 -03:00
#+OPTIONS: creator:nil timestamp:nil
2023-09-28 13:03:09 -03:00
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
#+PROPERTY: header-args:R+ :exports both
2023-09-20 21:09:04 -03:00
#+SLUG: orgmode-excel
2023-10-25 11:49:55 -03:00
#+TAGS: tabelas, org-mode, composição ideal
2023-09-28 12:03:14 -03:00
#+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>
2023-09-28 12:03:14 -03:00
O arquivo será dividido em duas partes. A primeira *O SCRIPT* contem as tabelas e fórmulas que devem ser usadas para efetuar as projeções da evolução. A segunda parte *Texto sugestão* contém uma sugestão de texto para ser inserido no *projeto*. Este texto deverá ser transferido, e finalizado na wiki ou no documento final.
2023-09-20 21:09:04 -03:00
* O SCRIPT
#+begin_src R :exports none
library(data.table)
library(dplyr)
library(flextable)
library(tidyr)
#+end_src
2023-09-20 21:09:04 -03:00
2023-10-27 14:05:26 -03:00
Comnpisição ideal em número de animais por categoria:
#+Caption: Tabela 1 - 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 |
#+Caption:Tabela 2. 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
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
2023-09-28 10:34:56 -03:00
#+NAME: C_ideal
| | Categoria de animais | Cabeças (N) | Cabeças (%) | UGM (N) | UGM (%) |
|---+-----------------------+-------------+-------------+---------+---------|
2023-10-27 14:05:26 -03:00
| # | Vacas em lactação | 24 | 66.7 | 24 | 82.5 |
| # | Vacas secas | 2 | 5.9 | 2 | 6.8 |
| # | Bezerras ate 12 meses | 4 | 11.8 | 1. | 3.4 |
| # | Novilhas até 18 meses | 2 | 5.9 | 1. | 3.4 |
| # | Novilhas até 24 meses | 2 | 5.9 | 1.5 | 5.1 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
2023-10-27 14:05:26 -03:00
| # | Total | 34 | 100.0 | 29.5 | 100.0 |
| ^ | | Tcab | | Tugm | |
|---+-----------------------+-------------+-------------+---------+---------|
2023-09-20 21:09:04 -03:00
#+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
** área de Planejamento
2023-09-20 21:09:04 -03:00
*** 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>.
2023-09-27 11:01:48 -03:00
#+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
#+NAME:Tab0
| | Constante | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 | observação |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Partos/vaca/ano | 1 | 1 | 1 | 1 | 1 | 1 | |
| ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas Existentes | 00 | - | - | - | - | - | - a calcular |
| ^ | | VE1 | | | | | | |
| | Novilhas exist. | 00 | - | - | - | - | - | - a calcular |
| ^ | | NE1 | | | | | | |
| | Bezerras existentes | 0 | - | - | - | - | - | - a calcular |
| ^ | | TE1 | | | | | | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Novilhas >- vacas | 0 | 0 | 0 | 0 | 0 | 0 | NÃO ALTERAR |
| ^ | | TN1 | TN2 | TN3 | TN4 | TN5 | TN6 | |
| | % Bezerras -> novilhas | 0.4 | 0.4 | 0.75 | 0.7 | 0.7 | 0.7 | % S_Nascidos |
| ^ | | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
2023-10-27 14:05:26 -03:00
| | Vacas a vender | 0 | 0 | 0 | 0 | 3 | 3 | |
| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | |
| | Novilhas a vender | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | |
2023-10-27 14:05:26 -03:00
| | Bezerras a vender | 0 | 4 | 11 | 14 | 13 | 14 | |
| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas a comprar | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | VC1 | VC2 | VC3 | VC4 | VC5 | VC6 | |
| | Novilhas a comprar | 20 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | NC1 | NC2 | NC3 | NC4 | NC5 | NC6 | |
| | Bezerras a compras | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | |
|---+------------------------+------+------+------+------+------+------+--------------|
** Área dos calculos
*** Composição anual do rebanho da fazenda
;; Estas tabelas (Tab3_1 a Tab_3-2 servem para calcular a evolução, mas não serão incluidos no relatórios final)
*** Ano 2023
2023-09-20 21:09:04 -03:00
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | NOVILHAS 12<>24 | 0 | 0 | 20 | 0 | 20 | 20 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | BEZERRAS <12 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | Outros | | 0 | 0 | 0 | | 0 | 0 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
2023-09-28 15:25:12 -03:00
#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=($EAN+$TRN+$CON-$VEV)::$VEV=remote(Tab0, $VV1):: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN::$EAB=remote(Tab0, $TE1)::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
2023-09-20 21:09:04 -03:00
*** Ano 2024
2023-09-20 21:09:04 -03:00
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
#+NAME: Tab3_2
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 0 | 20 | 0 | 0 | 20 | 0 | 20 |
2023-09-20 21:09:04 -03:00
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 8 | 0 | 4 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | | | | | | | |
2023-09-20 21:09:04 -03:00
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+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
*** Ano 2025
2023-09-20 21:09:04 -03:00
Na tabela 3.3 podemos observar...
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
#+NAME: Tab3_3
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
2023-09-20 21:09:04 -03:00
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | | | | | | | |
2023-09-20 21:09:04 -03:00
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+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
*** Ano2026
2023-09-20 21:09:04 -03:00
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
#+NAME: Tab3_4
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 4 | 0 | 0 | 24 | 0 | 24 |
2023-09-27 11:01:48 -03:00
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
2023-09-27 11:01:48 -03:00
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
2023-10-27 14:05:26 -03:00
| # | Bezerras <12 | 0 | 17 | 0 | 13 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | | | |
2023-09-20 21:09:04 -03:00
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
2023-10-27 14:05:26 -03:00
| | | | | | | | | |
2023-09-20 21:09:04 -03:00
#+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
*** Ano 2027
2023-09-20 21:09:04 -03:00
#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 24 | 4 | 0 | 3 | 25 | 0 | 25 |
2023-09-20 21:09:04 -03:00
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
2023-10-27 14:05:26 -03:00
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 18 | 0 | 14 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
2023-09-28 10:34:56 -03:00
| | | | | | | | | |
2023-10-27 14:05:26 -03:00
#+TBLFM:$EAV=remote(Tab3_4,$EFV)::$TRV=remote(Tab3_4,$TCN)::$COV=remote(Tab0,$VC5)::$VEV=remote(Tab0,$VV5)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_4,$EFN)::$TRN=remote(Tab3_4,$TCB)::$CON=remote(Tab0,$NC5)::$VEN=remote(Tab0,$NV5)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_4,$EFB)::$FRB=$EFV*remote(Tab0,$BA5);%.0f::$COB=remote(Tab0,$BC5)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
2023-09-20 21:09:04 -03:00
2023-09-28 10:34:56 -03:00
*** Ano 2028
2023-09-20 21:09:04 -03:00
#+NAME:Tab3_6
2023-09-20 21:09:04 -03:00
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
2023-10-27 14:05:26 -03:00
| # | VACAS >24 | 25 | 4 | 0 | 3 | 26 | 0 | 26 |
2023-09-20 21:09:04 -03:00
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
2023-10-27 14:05:26 -03:00
| # | Bezerras <12 | 0 | 18 | 0 | 14 | 4 | 4 | 0 |
2023-09-20 21:09:04 -03:00
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | | | |
2023-09-20 21:09:04 -03:00
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_5, $EFV)::$TRV=remote(Tab3_5, $TCN)::$COV=remote(Tab0,$VC6)::$VEV=remote(Tab0, $VV6)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_5, $EFN)::$TRN=remote(Tab3_5, $TCB)::$CON=remote(Tab0,$NC6)::$VEN=remote(Tab0, $NV6)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_5, $EFB)::$FRB=$EFV*remote(Tab0, $BA6);%.0f::$COB=remote(Tab0,$BC6)::$VEB=remote(Tab0,$BV6)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
** Área dos resumos dos cálculos
*** Animais existentes anualmente
#+NAME:TABELA4
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucapVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
2023-10-27 14:05:26 -03:00
| | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+-----------+------+------+------+------+------+------|
| # | Vacas | 0 | 20 | 20 | 24 | 25 | 26 |
| # | Novilhas | 20 | 0 | 4 | 4 | 4 | 4 |
| # | Terneiras | 0 | 4 | 4 | 4 | 4 | 4 |
|---+-----------+------+------+------+------+------+------|
| # | T_cab | 20 | 24 | 28 | 32 | 33 | 34 |
| # | T_UGMs | 15. | 21. | 24. | 28. | 29. | 30. |
2023-09-20 21:09:04 -03:00
#+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))
2023-10-25 11:49:55 -03:00
2023-09-20 21:09:04 -03:00
## A TABELA5 será incluída no documento final
2023-09-20 21:09:04 -03:00
*** Entradas e saídas anuais de animais
#+NAME:TABELA5
#+CAPTION: Resumo das entradas e saídas de animais nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
2023-09-28 10:34:56 -03:00
|---+--------------------+------+------+------+------+------+------|
| # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Novilhas entradas | 20 | 0 | 0 | 0 | 0 | 0 |
2023-09-28 10:34:56 -03:00
| # | Terneiras entradas | 0 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Total entradas | 20 | 0 | 0 | 0 | 0 | 0 |
2023-09-28 10:34:56 -03:00
|---+--------------------+------+------+------+------+------+------|
| # | Vacas saídas | 0 | 0 | 0 | 0 | 3 | 2 |
| # | Novilhas saídas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Terneiras saídas | 0 | 4 | 11 | 14 | 14 | 15 |
2023-09-28 10:34:56 -03:00
|---+--------------------+------+------+------+------+------+------|
| # | Total saídas | 0 | 4 | 11 | 14 | 17 | 17 |
| # | | | | | | | |
2023-09-28 10:34:56 -03:00
|---+--------------------+------+------+------+------+------+------|
| | | | | | | | |
#+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
## Para exportar a tabela > M-x org-tabel-export (enter) "path" y, ,..
2023-09-28 10:34:56 -03:00
2023-09-20 21:09:04 -03:00
*** Gráfico resumo
#+NAME: Ler data.table Resumo
#+begin_src R :exports results
REV<-fread("../data/ResumoEvolucaoVitruvio.csv", header=TRUE)
REv<- REV%>%
pivot_longer (cols=c("2023", "2024", "2025", "2026", "2027", "2028"),
names_to="Ano",
values_to="Quantidade",
values_drop_na = TRUE )
REv$Ano=as.numeric(REv$Ano)
#View(REv)
#+end_src
** Gráfico para uso
#+NAME: grafico resumo
#+begin_src R :grafResum.png
library (ggplot2)
ResEvolVit<-ggplot(REv, aes(Ano,
Quantidade,
colour=Categoria))+
geom_line()
ggsave("EvolucaoRebanho.png", ResEvolVit, path="~/Nextcloud/00-Projetos/01-Vitruvio/2023/04-Imagens/DocFinal", width=7, height=3, units="in")
#ResEvolVit
#+end_src
* Texto Sugestão
** 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.
** Relação Unidade de Gado Maior (UGM) x categoria animal
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*. Estima-se a UGM de acordo com a categoria animal à 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.
Tabela 1 - UGM de referência de acordo com a categoria animal.
| 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 |
|-----------------------+------|
2023-10-25 11:49:55 -03:00
** Composição do Rebanho
A 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 composição apresentada na *Tabela 2*.
2023-09-20 21:09:04 -03:00
Tabela 2. Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
2023-10-25 11:49:55 -03:00
*** Parâmetros zootécnicos considerados para estimar a evolução do rebanho
2023-10-25 11:49:55 -03:00
A evolução será baseada nos índices zootécnicos da raça, sendo:
2023-10-25 11:49:55 -03:00
Necessidade de substituição
Fêmeas nascidas
Intervalo entre nascimento e primeiro parto
Mortalidade
Intervalo entre partos.
Venda de animais excedentes bezerros (3 meses) e vacas de descarte
2023-10-25 11:49:55 -03:00
Utilizamos os seguintes índices zootécnicos para estimar a evolução do rebanho do estabelecimento:
Primeiro parto: 26 meses
Intervalo entre partos: 14 meses
Porcentagem 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.
Nota: o critério de seleção das novilhas deve permitir que os animais incorporados estejam saudáveis e possuam potencial produtivo acorde às necessidades da Fazenda Vitruvio: animais rústicos adaptados ao pastoreio e de produção de volume de leite médio, mas persistente durante a lactação
2023-09-27 11:01:48 -03:00
** 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 na Tabela 3, e Figura 1.
2023-10-27 14:05:26 -03:00
Tabela 3. Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
#+begin_src R :exports results
#library(ascii) # exports result as org file
Evolucao <- fread("../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))
2023-10-25 11:49:55 -03:00
#+end_src
#+RESULTS:
Também podemos observar a evolução do rebanho em formato de figura.
Figura 1. Evolução do rebanho nos primeiros anos em formato de gráfico
[[file:~/Nextcloud/00-Projetos/01-Vitruvio/2023/04-Imagens/DocFinal/EvolucaoRebanho.png][link do gráfico]]
** Entradas e saídas de animais do rebanho
Os indicativos da evolução do rebanho, baseados nosíndicadores zootécnicos e manejo recomendado, oferecem a oportunidade de comercialização (venda) de animais excedentes. A opção dos proprietários deste estabelecimentos, é que os animais sejam vendidos quando ainda jovens (3 meses aproximadamente), e vacas de descarte. A quantidade de ano em que os excedentes estão previstos consta na tabela 4.
Tabela 4 - Resumo das entradas e saídas de animais nos primeiros anos do projeto
* Referências