diff --git a/EvolucaoVitruvio.R b/EvolucaoVitruvio.R deleted file mode 100644 index b274f93..0000000 --- a/EvolucaoVitruvio.R +++ /dev/null @@ -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 diff --git a/EvolucaoVitruvio.html~ b/EvolucaoVitruvio.html~ deleted file mode 100644 index 1c96e28..0000000 --- a/EvolucaoVitruvio.html~ +++ /dev/null @@ -1,1325 +0,0 @@ - - - - - - -Evolução de rebanho leiteiro em PRV - - - - - - - - - - - - - - -
-

Evolução de rebanho leiteiro em PRV

-
-

Table of Contents

-
- -
-
- - - -
-

1. 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 -

-
-
- -
-

2. 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 -

-
-
- - -
-

3. Relação UGM e categoria animal

-
- - - --- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 1: UGM de referência de acordo com a categoria animal
Cataegoria animalUGMabrev
Vacas em lactação1vaca
Vacas secas1vase
Bezerras até 12 meses0.25Beze
Novilhas até 18 meses0.50No18
Novilhas até 24 meses0.75No24
Outros1Outr
- -

-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. -

-
-
-
-

4. 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. -

- - - - --- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 2: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
Categoria de animaisCabeças%cab%UGM%UGM
Vacas em lactação1851.41876.9
Vacas secas29.5212.1
Bezerras ate 12 meses1032.32.52.8
Novilhas até 18 meses39.11.56.2
Novilhas até 24 meses00.00.0.0
Outros animais 0.000.0
Total33100.024.100.0
- - - -

-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. -

-
-
- - - -
-

5. 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>. -

- - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 3: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
Constanteano 1ano 2ano 3ano 4ano 5ano ..observação
Partos/vaca/ano111111 
Vacas Existentes00------ a calcular
Novilhas exist.00------ a calcular
Bezerras existentes0------ a calcular
Novilhas >- vacas000000NÃO ALTERAR
% Bezerras -> novilhas0.40.40.750.70.70.7% SNascidos
Vacas a vender000054 
Novilhas a vender000000 
Bezerras a vender0410121514 
Vacas a comprar000000 
Novilhas a comprar2000000 
Bezerras a compras000000 
- -

-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 -

-
-
- - -
-

6. Composição anual do rebanho da fazenda

-
-
-
-

6.1. Ano 1

-
- - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 4: Composição do rebanho na fazenda VITRUVIO (ANO 1)
CategoriaExttAntTIRCompraVendaSaldoTICExttFin
VACAS >240000000
NOVILHAS 12<>240020020200
BEZERRAS <120000000
Outros 000 00
- - -

-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. -

-
-
- - -
-

6.2. Ano 2

-
- - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 5: Composição do rebanho na fazenda VITRUVIO (ANO 2)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >240200020020
Novilhas 12<>240000000
Bezerras <120804440
outros       
- -

-Comentários sobre tabela 5 -

-
-
-
-

6.3. Ano 3

-
-

-Na tabela 3.3 podemos observar… -

- - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 6: Composição do rebanho na fazenda VITRUVIO (ANO 3)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >242000020020
Novilhas 12<>240400440
Bezerras <12015010550
outros       
-

-Comentários sobre a tabela 6 -

-
-
- -
-

6.4. Ano 4

-
- - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 7: Composição do rebanho na fazenda VITRUVIO (ANO 4)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >242040024024
Novilhas 12<>240500550
Bezerras <12017012550
outros1      
- -

-Comentários da tabela 7 -

-
-
-
-

6.5. Ano 5

-
-

-:TABLEEXPORTFILE: Documents/Tabela 3.5.csv -:TABLEEXPORTFORMAT: orgtbl-to-csv -

- - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >242450524024
Novilhas 12<>240500550
Bezerras <12017012550
outros1   1 1
        
- -

-Comentários da tabela 8 -

-
-
- -
-

6.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. -

- - - - - --- -- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 8: Composição do rebanho na fazenda VITRUVIO (ANO 6)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >242450425025
Novilhas 12<>240500550
Bezerras <12018014440
outros1      
-
-
-
- - - -
-

7. 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. -

-
- -
-

7.1. Entradas e saídas

-
- - - --- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Ano200420052006200720082009
Vacas entradas000000
Novilhas entradas2000000
Terneiras entradas000000
Total entradas20000200
Vacas saídas000054
Novilhas saídas000000
Terneiras saídas0410121214
Total saídas0410121718
       
-
-
- -
-

7.2. Animais existentes

-
-

-:TABLEEXPORTFILE: data/Tabela4.csv -:TABLEEXPORTFORMAT: orgtbl-to-csv -

- - - --- -- -- -- -- -- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Categoria200420052006200720082009
Vacas02020242425
Novilhas2004555
Terneiras045554
Tcab202429343434
TUGMs20.21.25.2530.531.531.75
       
-

-@5$8=@2$8+@3$8+@4$8::@6$3=(@2$3*remote(Tab1,@2$2)+@3$3*remote(tab1,@3$2)+@4$3*remote(tab1,@4$2))::@6$4=(@2$4*remote(Tab1,@2$2)+@3$4*remote(tab1,@3$2)+@4$4*remote(tab1,@4$2))::@6$5=(@2$5*remote(Tab1,@2$2)+@3$5*remote(tab1,@3$2)+@4$5*remote(tab1,@4$2))::@6$6=(@2$6*remote(Tab1,@2$2)+@3$6*remote(tab1,@3$2)+@4$6*remote(tab1,@4$2))::@6$7=(@2$7*remote(Tab1,@2$2)+@3$7*remote(tab1,@3$2)+@4$7*remote(tab1,@4$2))::@6$8=(@2$8*remote(Tab1,@2$2)+@3$8*remote(tab1,@3$2)+@4$8*remote(tab1,@4$2)) -

-
-
-
- -
-

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.>>

-
-
-
-

8.1. Gráfico resumo

-
-
-
	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",
-			values_drop_na = TRUE )
-
-REv$Ano=as.numeric(REv$Ano)
-View(REv)
-#end_src
-
-#+NAME: grafico resumo
-#+begin_src R :grafResum.png :results graphics file
-	library (ggplot2)
-
-test1<-ggplot(REv, aes(Ano,
-				  Quantidade,
-			  colour=Categoria))+
-							   geom_line()
-test1
-
-
-
-
-
- -
-

8.2.

-
-
-
-
-

Date: 08-31-2023

-

Author: Adenor Wendling

-

Validate

-
- - diff --git a/doc/#EvolucaoTexto.org# b/doc/#EvolucaoTexto.org# deleted file mode 100644 index 24efc38..0000000 --- a/doc/#EvolucaoTexto.org# +++ /dev/null @@ -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: -#+HTML_HEAD: -#+HTML_HEAD: -#+HTML_HEAD: -#+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 diff --git a/doc/EvolucaoTexto.html~ b/doc/EvolucaoTexto.html~ deleted file mode 100644 index c2a6f27..0000000 --- a/doc/EvolucaoTexto.html~ +++ /dev/null @@ -1,168 +0,0 @@ - - - - - - -Evolução de rebanho leiteiro em PRV - - - - - - - - - - - - - - -
-

Evolução de rebanho leiteiro em PRV

-
-

Table of Contents

-
- -
-
-
-

1. 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. -

- - - --- -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Table 1: UGM de referência de acordo com a categoria animal
Cataegoria animalUGM
Vacas em lactação1
Vacas secas1
Bezerras até 12 meses0.25
Novilhas até 18 meses0.75
Novilhas até 24 meses0.75
Outros1
-

-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 -

-

-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. -

-
- -
-

1.1. 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. -

-
-
-
-

1.2. 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. -

- -

-[[ResEvolVit.png][Figura 1 - Evolução do rebanho em forma de gráfico] -

-
-
- - -
-

1.3. 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. -

- -
-            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
-
-
-
-
-
-
-

Date: 10-23-2023

-

Author: Adenor Wendling

-

Validate

-
- - diff --git a/doc/EvolucaoTexto.org~ b/doc/EvolucaoTexto.org~ deleted file mode 100644 index 27698f8..0000000 --- a/doc/EvolucaoTexto.org~ +++ /dev/null @@ -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: -#+HTML_HEAD: -#+HTML_HEAD: -#+HTML_HEAD: - -* 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. diff --git a/script/EvolucaoVitruvio.R b/script/EvolucaoVitruvio.R new file mode 100644 index 0000000..adb672f --- /dev/null +++ b/script/EvolucaoVitruvio.R @@ -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 diff --git a/EvolucaoVitruvio.org b/script/EvolucaoVitruvio.org similarity index 93% rename from EvolucaoVitruvio.org rename to script/EvolucaoVitruvio.org index 63ac2bc..e795f47 100644 --- a/EvolucaoVitruvio.org +++ b/script/EvolucaoVitruvio.org @@ -1,11 +1,11 @@ #+Title:Evolução de rebanho leiteiro em PRV #+AUTHOR: Adenor Wendling #+DATE: 08-31-2023 -#+OPTIONS: creator:nil timestamp:nil +#+OPTIONS: creator:nil timestamp:nil #+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes #+PROPERTY: header-args:R+ :exports both #+SLUG: orgmode-excel -#+TAGS: tabelas, org-mode, composição ideal +#+TAGS: tabelas, org-mode, composição ideal #+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup #+HTML_HEAD: #+HTML_HEAD: @@ -14,19 +14,21 @@ -* TODO +** TODO + Continuar planilha #+startup 2023-08-02 -Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do +Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do Vou utilizar os manuais on line e -* Indices +** Índices + IP = intervalo entre partos (12 meses) (setq IP "12") PP = primeiro parto (24 meses) (setq PP "24") @@ -34,11 +36,11 @@ PP = primeiro parto (24 meses) (setq PP "24") PL = Período de lactação (10 meses)(setq PL "10") CL = capacidade de lotação (20UGM) (setq CL "20") -IndMor = Indice de mortalidade de bezerras +IndMor = Indice de mortalidade de bezerras IRP = Índice de renovação do plantel - substituição de vacas velhas ou ruins -* 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 . #+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,19 +258,20 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple -* Resumo da evolução +** Resumo da evolução + Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda. 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: :TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv :TABLE_EXPORT_FORMAT: orgtbl-to-csv -:END: +:END: | | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | |---+--------------------+------+------+------+------+------+------| | # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 | @@ -286,7 +289,7 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac |---+--------------------+------+------+------+------+------+------| #+TBLFM:@2$3=remote(Tab3_1, $COV)::@2$4=remote(Tab3_2, $COV)::@2$5=remote(Tab3_3, $COV)::@2$6=remote(Tab3_4, $COV)::@2$7=remote(Tab3_5, $COV)::@2$8=remote(Tab3_6, $COV)::@3$3=remote(Tab3_1, $CON)::@3$4=remote(Tab3_2, $CON)::@3$5=remote(Tab3_3, $CON)::@3$6=remote(Tab3_4, $CON)::@3$7=remote(Tab3_5, $CON)::@3$8=remote(Tab3_6, $CON)::@4$3=remote(Tab3_1, $COB)::@4$4=remote(Tab3_2, $COB)::@4$5=remote(Tab3_3, $COB)::@4$6=remote(Tab3_4, $COB)::@4$7=remote(Tab3_5, $COB)::@4$8=remote(Tab3_6, $COB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6::@5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=remote(Tab3_1, $VEV)::@6$4=remote(Tab3_2, $VEV)::@6$5=remote(Tab3_3, $VEV)::@6$6=remote(Tab3_4, $VEV)::@6$7=remote(Tab3_5, $VEV)::@6$8=remote(Tab3_6, $VEV)::@7$3=remote(Tab3_1, $VEN)::@7$4=remote(Tab3_2, $VEN)::@7$5=remote(Tab3_3, $VEN)::@7$6=remote(Tab3_4, $VEN)::@7$7=remote(Tab3_5, $VEN)::@7$8=remote(Tab3_6, $VEN)::@8$3=remote(Tab3_1, $VEB)::@8$4=remote(Tab3_2, $VEB)::@8$5=remote(Tab3_3, $VEB)::@8$6=remote(Tab3_4, $VEB)::@8$7=remote(Tab3_5, $VEB)::@8$8=remote(Tab3_6, $VEB)::@9$3=@6$3+@7$3+@8$3::@9$4=@6$4+@7$4+@8$4::@9$5=@6$5+@7$5+@8$5::@9$6=@6$6+@7$6+@8$6::@9$7=@6$7+@7$3+@8$7::@9$8=@6$8+@7$8+@8$8 -** 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", - values_drop_na = TRUE ) + library(data.table) + library(tidyr) + library(dplyr) -REv$Ano=as.numeric(REv$Ano) -#View(REv) -#end_src + 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) + + 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))+ - geom_line() -ggsave("ResEvolVit.png", ResEvolVit, path="~/Documentos/GITs/Compos_rebanho/data/", width=7, height=3, units="in") + library (ggplot2) - #+end_src + ResEvolVit <- ggplot(REv, aes(Ano, Quantidade, colour=Categoria)) + + geom_line() - #+RESULTS: Ler data.table Resumo - : Erro: unexpected string constant em "ggsave(ResEvolVit.pdf" ResEvolVit, path="" + ggsave("ResEvolVit.png", ResEvolVit, path="../data/", width=7, height=3, + units="in") -** +#+end_src