21 KiB
- Indices
- Resumo da evolução
- 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.>>
- - Resolver exportação figura no arquivo html
- Figuras (só para testar)
#+Title:Evolução de rebanho leiteiro em PRV
#+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>
Indices
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
Comnpisição ideal em número de animais por categoria:
| 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.50 | 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.
| Categoria de animais | Cabeças | %cab% | UGM | %UGM | |
|---|---|---|---|---|---|
| # | Vacas em lactação | 10 | 47.6 | 10 | 60.6 |
| # | Vacas secas | 2 | 9.5 | 2 | 12.1 |
| # | Bezerras ate 12 meses | 3 | 14.3 | 0.75 | 4.5 |
| # | Novilhas até 18 meses | 3 | 14.3 | 1.5 | 9.1 |
| # | Novilhas até 24 meses | 3 | 14.3 | 2.25 | 13.6 |
| # | Outros animais | 0.0 | 0 | 0.0 | |
| # | Total | 21 | 100.0 | 16.5 | 100.0 |
| ^ | Tcab | Tugm |
A composição do rebanho é dinâmico, com perspectativa de crescimento anual, até alcançar o limite de capacidade 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 médio de 25% de 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, a capacidade de suporte se dá 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, e as entradas e saídas programadas na tabela 3, estimamos que a evolução do rebanho possa ocorrer conforme a tabela 9, 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 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 <Tab0tabela 3>.
#+NAME:Tab0
| Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | observação | ||
|---|---|---|---|---|---|---|---|---|---|
| Partos por vaca ano | 1 | 1 | 1 | 1 | 1 | 1 | |||
| ^ | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | |||
| Vacas Existentes | 20 | - | - | - | - | - | - na elaboração do projeto | ||
| ^ | VE1 | ||||||||
| Novilhas (12 a 24) existentes | 0 | - | - | - | - | - | - na elaboração do projeto | ||
| ^ | NE1 | ||||||||
| Bezerras existentes | 0 | - | - | - | - | - | - na elaboração do projeto | ||
| ^ | TE1 | ||||||||
| Novilhas para vacas | 0 | 5 | 0 | 0 | 0 | 0 | - Anual | ||
| ^ | TN1 | TN2 | TN3 | TN4 | TN5 | TN6 | |||
| % Bezerras para novilhas | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | - base no total nascidos | ||
| ^ | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | |||
| Vacas a vender | 0 | 0 | 0 | 3 | 10 | 7 | - anual | ||
| ^ | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | |||
| Novilhas a vender (Num) | 0 | 0 | 0 | 0 | 7 | 7 | - anual | ||
| ^ | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | |||
| Bezerras a vender | 0 | 0 | 1 | 1 | 1 | 1 | - anual | ||
| ^ | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | |||
| Vacas a comprar | 0 | 0 | 0 | 0 | 0 | 0 | - anual | ||
| ^ | VC1 | VC2 | VC3 | VC4 | VC5 | VC6 | |||
| Novilhas a comprar | 5 | 0 | 0 | 0 | 0 | 0 | - anual | ||
| ^ | NC1 | NC2 | NC3 | NC4 | NC5 | NC6 | |||
| Bezerras a compras | 0 | 0 | 0 | 0 | 0 | 0 | -anual | ||
| ^ | 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
| Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin | |
|---|---|---|---|---|---|---|---|---|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | EAV | TRV | COV | VEV | SAV | TCV | EFV | |
| # | NOVILHAS 12<>24 | 0 | 0 | 5 | 0 | 5 | 0 | 5 |
| ^ | EAN | TRN | CON | VEN | SAN | TCN | EFN | |
| # | BEZERRAS <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
| ^ | EAB | FRB | COB | VEB | SAB | TCB | EFB | |
| # | Outros | 0 | 0 | 0 | 0 | 0 | ||
| ^ | EAO | FRO | COO | VEO | SAO | TCO | EFO |
Na tabela 3.1 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.
| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |
|---|---|---|---|---|---|---|---|---|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | EAV | TRV | COV | VEV | SAV | TCV | EFV | |
| # | Novilhas 12<>24 | 5 | 8 | 0 | 0 | 13 | 13 | 0 |
| ^ | EAN | TRN | CON | VEN | SAN | TCN | EFN | |
| # | Bezerras <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
| ^ | EAB | FRB | COB | VEB | SAB | TCB | EFB | |
| # | outros | 1 | 1 | 1 | ||||
| ^ | EAO | FRO | COO | VEO | SAO | TCO | EFO |
Comentários sobre tabela acima
Na tabela 3.3 podemos observar…
| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |
|---|---|---|---|---|---|---|---|---|
| # | VACAS >24 | 20 | 13 | 0 | 0 | 33 | 0 | 33 |
| ^ | EAV | TRV | COV | VEV | SAV | TCV | EFV | |
| # | Novilhas 12<>24 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
| ^ | EAN | TRN | CON | VEN | SAN | TCN | EFN | |
| # | Bezerras <12 | 0 | 13 | 0 | 1 | 12 | 12 | 0 |
| ^ | EAB | FRB | COB | VEB | SAB | TCB | EFB | |
| # | outros | 1 | 1 | 1 | ||||
| ^ | EAO | FRO | COO | VEO | SAO | TCO | EFO |
Comentários da tabela acima
Na tabela 3.4 …
| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |
|---|---|---|---|---|---|---|---|---|
| # | VACAS >24 | 33 | 8 | 0 | 3 | 38 | 0 | 38 |
| ^ | EAV | TRV | COV | VEV | SAV | TCV | EFV | |
| # | Novilhas 12<>24 | 0 | 12 | 0 | 0 | 12 | 12 | 0 |
| ^ | EAN | TRN | CON | VEN | SAN | TCN | EFN | |
| # | Bezerras <12 | 0 | 15 | 0 | 1 | 14 | 14 | 0 |
| ^ | EAB | FRB | COB | VEB | SAB | TCB | EFB | |
| # | outros | 1 | 1 | 1 | ||||
| ^ | EAO | FRO | COO | VEO | SAO | TCO | EFO |
Comentários da tabela acima
na tabela 3.5
| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |
|---|---|---|---|---|---|---|---|---|
| # | VACAS >24 | 38 | 12 | 0 | 10 | 40 | 0 | 40 |
| ^ | EAV | TRV | COV | VEV | SAV | TCV | EFV | |
| # | Novilhas 12<>24 | 0 | 14 | 0 | 7 | 7 | 7 | 0 |
| ^ | EAN | TRN | CON | VEN | SAN | TCN | EFN | |
| # | Bezerras <12 | 0 | 16 | 0 | 1 | 15 | 15 | 0 |
| ^ | EAB | FRB | COB | VEB | SAB | TCB | EFB | |
| # | outros | 1 | 1 | 1 | ||||
| ^ | EAO | FRO | COO | VEO | SAO | TCO | EFO |
e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
#+name:Tab3_6
| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |
|---|---|---|---|---|---|---|---|---|
| # | VACAS >24 | 40 | 7 | 0 | 7 | 40 | 0 | 40 |
| ^ | EAV | TRV | COV | VEV | SAV | TCV | EFV | |
| # | Novilhas 12<>24 | 0 | 15 | 0 | 7 | 8 | 8 | 0 |
| ^ | EAN | TRN | CON | VEN | SAN | TCN | EFN | |
| # | Bezerras <12 | 0 | 16 | 0 | 1 | 15 | 15 | 0 |
| ^ | EAB | FRB | COB | VEB | SAB | TCB | EFB | |
| # | outros | 1 | 1 | 1 | ||||
| ^ | EAO | FRO | COO | VEO | SAO | TCO | EFO |
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.
#+NAME:TABELA4
| Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | |
|---|---|---|---|---|---|---|---|
| # | Vacas | 20 | 20 | 33 | 38 | 40 | 40 |
| # | Novilhas | 5 | 13 | 8 | 12 | 7 | 8 |
| # | Terneiras | 8 | 8 | 12 | 14 | 15 | 15 |
| # | Total | 33 | 41 | 53 | 64 | 60 | 63 |
#+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$3+@4$7::@5$8=@2$8+@3$8+@4$8
TODO Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.>>
Importação dos dados dos animais existentes
library (data.table)
library(tidyr)
library(dplyr)
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
str(Evol_exist)
#View(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)Gráfico da evolução do rebanho
Gráfico 1
library (ggplot2)
Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+
geom_line (aes(color=Categoria))+
geom_point(aes(color=Categoria))
Evoluc
TODO - Resolver exportação figura no arquivo html
Figuras (só para testar)
Exemplo 2 #+caption:Vacas com água, pasto e sombra. #+ATTR_HTML:width 300 px :align center :title Action! https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457851
Exemplo 3 -
Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio.