fiz adequações no Evolucao, conforme acordado na reunião de ontem

This commit is contained in:
2023-10-27 10:17:13 -03:00
parent 9faf731500
commit d9f63f6f0d
11 changed files with 754 additions and 4002 deletions

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

Binary file not shown.

Before

Width:  |  Height:  |  Size: 93 KiB

After

Width:  |  Height:  |  Size: 95 KiB

View File

@ -1,10 +1,11 @@
Categoria,2004,2005,2006,2007,2008,2009
Categoria,2023,2024,2025,2026,2027,2028
Vacas entradas,0,0,0,0,0,0
Novilhas entradas,20,0,0,0,0,0
Terneiras entradas,0,0,0,0,0,0
Total entradas,20,0,0,0,0,0
Vacas saídas,0,0,0,2,5,4
Vacas saídas,0,0,0,0,3,2
Novilhas saídas,0,0,0,0,0,0
Terneiras saídas,0,4,10,11,11,11
Total saídas,0,4,10,13,16,15
Terneiras saídas,0,4,11,14,14,15
Total saídas,0,4,11,14,17,17
,,,,,,
,,,,,,

1 Categoria 2004 2023 2005 2024 2006 2025 2007 2026 2008 2027 2009 2028
2 Vacas entradas 0 0 0 0 0 0 0 0 0 0
3 Novilhas entradas 20 0 0 0 0 0 0 0 0 0
4 Terneiras entradas 0 0 0 0 0 0 0 0 0 0
5 Total entradas 20 0 0 0 0 0 0 0 0 0
6 Vacas saídas 0 0 0 0 2 0 5 3 4 2
7 Novilhas saídas 0 0 0 0 0 0 0 0 0 0
8 Terneiras saídas 0 4 10 11 11 14 11 14 11 15
9 Total saídas 0 4 10 11 13 14 16 17 15 17
10
11

View File

@ -1,7 +1,7 @@
Categoria,2004,2005,2006,2007,2008,2009
Vacas,0,20,20,22,22,22
Novilhas,20,0,4,5,4,4
Terneiras,0,4,5,4,4,4
T_cab,20,24,29,31,30,30
T_UGMs,15.,21.,24.25,26.75,26.,26.
Categoria,2023,2024,2025,2026,2027,2028
Vacas,0,20,20,24,25,26
Novilhas,20,0,4,4,3,4
Terneiras,0,4,4,3,4,3
T_cab,20,24,28,31,32,33
T_UGMs,15.,21.,24.,27.75,28.25,29.75
,,,,,,

1 Categoria 2004 2023 2005 2024 2006 2025 2007 2026 2008 2027 2009 2028
2 Vacas 0 0 20 20 20 20 22 24 22 25 22 26
3 Novilhas 20 20 0 0 4 4 5 4 4 3 4 4
4 Terneiras 0 0 4 4 5 4 4 3 4 4 4 3
5 T_cab 20 20 24 24 29 28 31 31 30 32 30 33
6 T_UGMs 15. 15. 21. 21. 24.25 24. 26.75 27.75 26. 28.25 26. 29.75
7

View File

@ -1,10 +0,0 @@
Ano,2004,2005,2006,2007,2008,2009
Vacas entradas,0,0,0,0,0,0
Novilhas entradas,2,0,0,0,0,0
Terneiras entradas,0,0,0,0,0,0
Total entradas,2,0,0,0,2,0
Vacas saídas,0,0,0,3,14,9
Novilhas saídas,0,0,0,0,7,8
Terneiras saídas,0,0,0,0,0,0
Total saídas,0,0,0,3,14,17
,,,,,,
1 Ano 2004 2005 2006 2007 2008 2009
2 Vacas entradas 0 0 0 0 0 0
3 Novilhas entradas 2 0 0 0 0 0
4 Terneiras entradas 0 0 0 0 0 0
5 Total entradas 2 0 0 0 2 0
6 Vacas saídas 0 0 0 3 14 9
7 Novilhas saídas 0 0 0 0 7 8
8 Terneiras saídas 0 0 0 0 0 0
9 Total saídas 0 0 0 3 14 17
10

View File

@ -1,6 +0,0 @@
Ano,2004,2005,2006,2007,2008,2009
Vacas,20,27,35,40,40,40
Novilhas,7,8,11,14,9,8
Terneiras,8,11,14,16,16,16
Total,35,46,60,70,63,64
,,,,,,
1 Ano 2004 2005 2006 2007 2008 2009
2 Vacas 20 27 35 40 40 40
3 Novilhas 7 8 11 14 9 8
4 Terneiras 8 11 14 16 16 16
5 Total 35 46 60 70 63 64
6

99
doc/texte.md Normal file
View File

@ -0,0 +1,99 @@
------------
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.
::: {#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
: UGM de referência de acordo com a categoria animal
:::
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):
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
Também podemos observar a evolução do rebanho em formato de figura.
\[\[file:../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.
``` {.example}
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
```

File diff suppressed because it is too large Load Diff

View File

@ -1,39 +0,0 @@
# 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

View File

@ -1,5 +1,5 @@
#+Title:Evolução de rebanho leiteiro em PRV
#+AUTHOR: Adenor Wendling
#+AUTHOR: Adenor Wendling, José Brann e Ana Laura Carille
#+DATE: 08-31-2023
#+OPTIONS: creator:nil timestamp:nil
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
@ -12,56 +12,17 @@
#+HTML_HEAD: <style> li{max-width:800px;}</style>
#+HTML_HEAD: <style> pre.src{background: #f5f5f5;color:black;}</style>
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.
* O SCRIPT
#+begin_src R :exports none
library(data.table)
library(dplyr)
library(flextable)
library(tidyr)
#+end_src
** TODO
Continuar planilha
#+startup 2023-08-02
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>
** Índices
IP = intervalo entre partos (12 meses) (setq IP "12")
PP = primeiro parto (24 meses) (setq PP "24")
PL = Período de lactação (10 meses)(setq PL "10")
CL = capacidade de lotação (20UGM) (setq CL "20")
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
#+Caption: UGM de referência de acordo com a categoria animal
#+NAME: Tab1
| Cataegoria animal | UGM | abrev |
|-----------------------+------+-------|
| Vacas em lactação | 1 | vaca |
| Vacas secas | 1 | vase |
| Bezerras até 12 meses | 0.25 | Beze |
| Novilhas até 18 meses | 0.75 | No18 |
| Novilhas até 24 meses | 0.75 | No24 |
| Outros | 1 | Outr |
|-----------------------+------+-------|
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
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.
#+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
@ -80,70 +41,49 @@ 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
** área de Planejamento
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.
Quando for atingido o limite de vacas na fazenda, pode-se vender o excedente de fêmeas em idade de terneiras, novilhas prenhas, ou vacas,
de acordo com a conveniência da fazenda. Entretanto, o limite é medido em UGM, o que também vai limitar a opção pela venda de animais maiores.
Com base nos índices definidos em conjunto com a fazenda, estimamos que a evolução do rebanho de apresente conforme a tabela 3, ressalvando que
esses valores não são absolutos, pois podem ocorrer imprevistos que alterem a evolução. Da mesma forma, havendo alteração nos índices esperados,
haverá impacto na evolução do rebanho, o que não caracteriza necessariamente erro de previsão ou de manejo.
** 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>.
*** 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)
#+NAME:Tab0
| | Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | 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 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | Vacas a vender | 0 | 0 | 0 | 2 | 5 | 4 | |
| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | |
| | Novilhas a vender | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | |
| | Bezerras a vender | 0 | 4 | 10 | 11 | 11 | 11 | |
| ^ | | 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 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | 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 | |
|---+------------------------+------+------+------+------+------+------+--------------|
| | Vacas a vender | 0 | 0 | 0 | 0 | 3 | 2 | |
| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | |
| | Novilhas a vender | 0 | 0 | 0 | 0 | 0 | 0 | |
| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | |
| | Bezerras a vender | 0 | 4 | 11 | 14 | 14 | 15 | |
| ^ | | 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 | |
|---+------------------------+------+------+------+------+------+------+--------------|
Com a evolução estimada através dos indicadores:
. 1 parto por vaca por ano;
. Primeiro parto aos 18 meses
. Descarte de 25% das vacas a partir do 3º ano
. Capacidade de suporte para 40 vacas
. Aproveitamento de 40% dos nascidos para repsição
Temos o seguinte:
>> Iniciamos com 20 vacas
>> Compramos 5 novilhas cobertas
>> No segundo ano serão compradas 2 novilhas
** Composição anual do rebanho da fazenda
*** Ano 1
** Á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
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
| | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
@ -152,17 +92,16 @@ Temos o seguinte:
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | NOVILHAS 12<>24 | 0 | 0 | 20 | 0 | 20 | 20 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | BEZERRAS <12 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| # | BEZERRAS <12 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | Outros | | 0 | 0 | 0 | | 0 | 0 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
#+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
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 2024
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
#+NAME: Tab3_2
@ -179,8 +118,8 @@ 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 2025
Na tabela 3.3 podemos observar...
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
@ -191,43 +130,43 @@ Na tabela 3.3 podemos observar...
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 10 | 5 | 5 | 0 |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | | | | | | | |
| ^ | | 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
Comentários sobre a tabela 6
*** Ano 4
*** Ano2026
#+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 | 2 | 22 | 0 | 22 |
| # | VACAS >24 | 20 | 4 | 0 | 0 | 24 | 0 | 24 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| # | Bezerras <12 | 0 | 17 | 0 | 14 | 3 | 3 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | | | |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+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 2027
#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 22 | 5 | 0 | 5 | 22 | 0 | 22 |
| # | VACAS >24 | 24 | 4 | 0 | 3 | 25 | 0 | 25 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| # | Novilhas 12<>24 | 0 | 3 | 0 | 0 | 3 | 3 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| # | Bezerras <12 | 0 | 18 | 0 | 14 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@ -235,21 +174,21 @@ Comentários sobre a tabela 6
| | | | | | | | | |
#+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
Comentários da tabela 8
*** 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.
*** Ano 2028
#+NAME:Tab3_6
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 22 | 4 | 0 | 4 | 22 | 0 | 22 |
| # | VACAS >24 | 25 | 3 | 0 | 2 | 26 | 0 | 26 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| # | Bezerras <12 | 0 | 18 | 0 | 15 | 3 | 3 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | | | |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@ -257,22 +196,37 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
#+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
** Resumo da evolução
*** 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:
| | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+-----------+------+------+------+-------+-------+-------|
| # | Vacas | 0 | 20 | 20 | 24 | 25 | 26 |
| # | Novilhas | 20 | 0 | 4 | 4 | 3 | 4 |
| # | Terneiras | 0 | 4 | 4 | 3 | 4 | 3 |
|---+-----------+------+------+------+-------+-------+-------|
| # | T_cab | 20 | 24 | 28 | 31 | 32 | 33 |
| # | T_UGMs | 15. | 21. | 24. | 27.75 | 28.25 | 29.75 |
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.
#+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))
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
## A TABELA5 será incluída no documento final
*** 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 | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
:END:
| | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Novilhas entradas | 20 | 0 | 0 | 0 | 0 | 0 |
@ -280,67 +234,133 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
|---+--------------------+------+------+------+------+------+------|
| # | Total entradas | 20 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas saídas | 0 | 0 | 0 | 2 | 5 | 4 |
| # | Vacas saídas | 0 | 0 | 0 | 0 | 3 | 2 |
| # | Novilhas saídas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Terneiras saídas | 0 | 4 | 10 | 11 | 11 | 11 |
| # | Terneiras saídas | 0 | 4 | 11 | 14 | 14 | 15 |
|---+--------------------+------+------+------+------+------+------|
| # | Total saídas | 0 | 4 | 10 | 13 | 16 | 15 |
| # | Total saídas | 0 | 4 | 11 | 14 | 17 | 17 |
| # | | | | | | | |
|---+--------------------+------+------+------+------+------+------|
| | | | | | | | |
#+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
#+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:
| | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+-----------+------+------+-------+-------+------+------|
| # | Vacas | 0 | 20 | 20 | 22 | 22 | 22 |
| # | Novilhas | 20 | 0 | 4 | 5 | 4 | 4 |
| # | Terneiras | 0 | 4 | 5 | 4 | 4 | 4 |
|---+-----------+------+------+-------+-------+------+------|
| # | T_cab | 20 | 24 | 29 | 31 | 30 | 30 |
| # | T_UGMs | 15. | 21. | 24.25 | 26.75 | 26. | 26. |
| # | | | | | | | |
#+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.>>
## Para exportar a tabela > M-x org-tabel-export (enter) "path" y, ,..
** Gráfico resumo
*** Gráfico resumo
#+NAME: Ler data.table Resumo
#+begin_src R :exports results
library(data.table)
library(tidyr)
library(dplyr)
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 <- fread("../data/ResumoEvolucaoVitruvio.csv", header=TRUE)
REv$Ano=as.numeric(REv$Ano)
#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 )
** Gráfico para uso
#+NAME: grafico resumo
#+begin_src R :grafResum.png
library (ggplot2)
REv$Ano <- as.numeric(REv$Ano)
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
str(REv)
* 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 |
|-----------------------+------|
** 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*.
Tabela 2. Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
*** Parâmetros zootécnicos considerados para estimar a evolução do rebanho
A evolução será baseada nos índices zootécnicos da raça, sendo:
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
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
** 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.
Tabela 3. Composição 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))
#+end_src
#+NAME: grafico resumo
#+begin_src R :grafResum.png :results graphics file
#+RESULTS:
library (ggplot2)
Também podemos observar a evolução do rebanho em formato de figura.
ResEvolVit <- ggplot(REv, aes(Ano, Quantidade, colour=Categoria)) +
geom_line()
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]]
ggsave("ResEvolVit.png", ResEvolVit, path="../data/", width=7, height=3,
units="in")
** 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.
#+end_src
Tabela 4 - Resumo das entradas e saídas de animais nos primeiros anos do projeto
* Referências