diff --git a/EvolucaoVitruvio.R b/EvolucaoVitruvio.R new file mode 100644 index 0000000..b274f93 --- /dev/null +++ b/EvolucaoVitruvio.R @@ -0,0 +1,26 @@ +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 new file mode 100644 index 0000000..cb1b600 --- /dev/null +++ b/EvolucaoVitruvio.html @@ -0,0 +1,1324 @@ + + + + + + +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
+	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/EvolucaoVitruvio.html~ b/EvolucaoVitruvio.html~ new file mode 100644 index 0000000..8ab678a --- /dev/null +++ b/EvolucaoVitruvio.html~ @@ -0,0 +1,1520 @@ + + + + + + +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ção1047.61060.6
Vacas secas29.5212.1
Bezerras ate 12 meses314.30.754.5
Novilhas até 18 meses314.31.59.1
Novilhas até 24 meses314.32.2513.6
Outros animais 0.000.0
Total21100.016.5100.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 Existentes20------ a calcular
Novilhas exist.05------ a calcular
Bezerras existentes0------ a calcular
Novilhas >- vacas000000NÃO ALTERAR
% Bezerras -> novilhas0.40.40.40.40.40.4% SNascidos
Vacas a vender0006149 
Novilhas a vender000078 
Bezerras a vender000000 
Vacas a comprar000000 
Novilhas a comprar200000 
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 >242000020020
NOVILHAS 12<>245020770
BEZERRAS <120800880
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 >242070027027
Novilhas 12<>240800880
Bezerras <120110011110
outros1   1 1
+ +

+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 >242780035035
Novilhas 12<>240110011110
Bezerras <120140014140
outros1   1 1
+

+Comentários sobre a tabela 6 +

+
+
+ +
+

6.4. Ano 4

+
+ + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Table 7: Composição do rebanho na fazenda VITRUVIO (ANO 4)
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >2435110640040
Novilhas 12<>240140014140
Bezerras <120160016160
outros1   1 1
+ +

+Comentários da tabela 7 +

+
+
+
+

6.5. Ano 5

+
+

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

+ + + +++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CATEGORIAEXTTANTTIRCOMPRAVENDASALDOTICEXTTFIN
VACAS >24401401440040
Novilhas 12<>2401607990
Bezerras <120160016160
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 >244090940040
Novilhas 12<>2401608880
Bezerras <120160016160
outros1   1 1
+
+
+
+ + + +
+

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 entradas200000
Terneiras entradas000000
Total entradas200020
Vacas saídas0006149
Novilhas saídas000078
Terneiras saídas000000
Total saídas00061417
       
+
+
+ +
+

7.2. Animais existentes

+
+

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

+ + + +++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Ano200420052006200720082009
Vacas202735404040
Novilhas78111498
Terneiras81114161616
Total354660706364
       
+
+
+
+ + +
+

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.0.1. Importação dos dados dos animais existentes

+
+
+
  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)
+
+
+
+ +
+Classes ‘data.table’ and 'data.frame':	5 obs. of  7 variables:
+ $ Ano : chr  "Vacas" "Novilhas" "Terneiras" "Total" ...
+ $ 2004: int  20 7 8 35 NA
+ $ 2005: int  27 8 11 46 NA
+ $ 2006: int  35 11 14 60 NA
+ $ 2007: int  40 14 16 70 NA
+ $ 2008: int  40 9 16 63 NA
+ $ 2009: int  40 8 16 64 NA
+ - attr(*, ".internal.selfref")=<externalptr>
+Classes ‘data.table’ and 'data.frame':	6 obs. of  6 variables:
+ $ variable : Factor w/ 6 levels "2004","2005",..: 1 2 3 4 5 6
+ $ V1       : int  NA NA NA NA NA NA
+ $ Novilhas : int  7 8 11 14 9 8
+ $ Terneiras: int  8 11 14 16 16 16
+ $ Total    : int  35 46 60 70 63 64
+ $ Vacas    : int  20 27 35 40 40 40
+ - attr(*, ".internal.selfref")=<externalptr> 
+ - attr(*, "sorted")= chr "variable"
+tibble [30 × 4] (S3: tbl_df/tbl/data.frame)
+ $ variable : Factor w/ 6 levels "2004","2005",..: 1 1 1 1 1 2 2 2 2 2 ...
+ $ Categoria: chr [1:30] "V1" "Novilhas" "Terneiras" "Total" ...
+ $ Cabecas  : int [1:30] NA 7 8 35 20 NA 8 11 46 27 ...
+ $ Ano      : Factor w/ 6 levels "2004","2005",..: 1 1 1 1 1 2 2 2 2 2 ...
+
+
+
+ + +
+

8.0.2. Gráfico da evolução do rebanho

+
+ +
+

8.1. Gráfico 1

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

evol1.png +

+
+
+
+ +
+

8.2.

+
+
+ +
+

9. TODO - Resolver exportação figura no arquivo html

+
+
+
+

9.1. Animais vendidos

+
+ + + +++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Vacas vendidas               
Novilhas vendidas               
Terneiras vendidas              
+
+
+
+ + +
+

10. Figuras (só para testar)

+
+

+Exemplo 2 +

+

+https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457851 +

+ + +

+Exemplo 3 - +#+beginexport html +<div id="subtittle" style="float: center; text-aling:center;"> +<p> +<font size="1"> Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio.</font> +</p> +<p> +<a href="http://multifarm.top"> +<img src= "https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848" width = "250"/> +</a> +</p> +</div> +#+endexport> +

+ + +

+https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848 +

+
+
+
+
+

Date: 08-31-2023

+

Author: Adenor Wendling

+

Validate

+
+ + diff --git a/EvolucaoVitruvio.org b/EvolucaoVitruvio.org index 48fc7ec..36de0e8 100644 --- a/EvolucaoVitruvio.org +++ b/EvolucaoVitruvio.org @@ -61,13 +61,13 @@ Os dados da tabela 2 refletem a composição de um rebanho com finalidade de pro #+NAME: C_ideal | | Categoria de animais | Cabeças | %cab% | UGM | %UGM | |---+-----------------------+---------+-------+------+-------| -| # | Vacas em lactação | 10 | 47.6 | 10 | 60.6 | +| # | Vacas em lactação | 18 | 51.4 | 18 | 76.9 | | # | 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 | +| # | Bezerras ate 12 meses | 10 | 32.3 | 2.5 | 2.8 | +| # | 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 | 21 | 100.0 | 16.5 | 100.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 @@ -95,28 +95,28 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba | | Partos/vaca/ano | 1 | 1 | 1 | 1 | 1 | 1 | | | ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | | |---+------------------------+-------+-------+-------+-------+-------+--------+--------------| -| | Vacas Existentes | 20 | - | - | - | - | - | - a calcular | +| | Vacas Existentes | 00 | - | - | - | - | - | - a calcular | | ^ | | VE1 | | | | | | | -| | Novilhas exist. | 05 | - | - | - | - | - | - a calcular | +| | 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.4 | 0.4 | 0.4 | 0.4 | % S_Nascidos | +| | % 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 | 6 | 14 | 9 | | +| | Vacas a vender | 0 | 0 | 0 | 0 | 5 | 4 | | | ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | | -| | Novilhas a vender | 0 | 0 | 0 | 0 | 7 | 8 | | +| | Novilhas a vender | 0 | 0 | 0 | 0 | 0 | 0 | | | ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | | -| | Bezerras a vender | 0 | 0 | 0 | 0 | 0 | 0 | | +| | Bezerras a vender | 0 | 4 | 10 | 12 | 15 | 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 | 2 | 0 | 0 | 0 | 0 | 0 | | +| | 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 | | @@ -140,11 +140,11 @@ Temos o seguinte: #+NAME: Tab3_1 | | Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | +| # | VACAS >24 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | NOVILHAS 12<>24 | 5 | 0 | 2 | 0 | 7 | 7 | 0 | +| # | NOVILHAS 12<>24 | 0 | 0 | 20 | 0 | 20 | 20 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | BEZERRAS <12 | 0 | 8 | 0 | 0 | 8 | 8 | 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 | @@ -160,13 +160,13 @@ Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias #+NAME: Tab3_2 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 20 | 7 | 0 | 0 | 27 | 0 | 27 | +| # | VACAS >24 | 0 | 20 | 0 | 0 | 20 | 0 | 20 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 8 | 0 | 0 | 8 | 8 | 0 | +| # | Novilhas 12<>24 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 11 | 0 | 0 | 11 | 11 | 0 | +| # | Bezerras <12 | 0 | 8 | 0 | 4 | 4 | 4 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | -| # | outros | 1 | | | | 1 | | 1 | +| # | outros | | | | | | | | | ^ | | 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 @@ -179,13 +179,13 @@ Na tabela 3.3 podemos observar... #+NAME: Tab3_3 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 27 | 8 | 0 | 0 | 35 | 0 | 35 | +| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 11 | 0 | 0 | 11 | 11 | 0 | +| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 14 | 0 | 0 | 14 | 14 | 0 | +| # | Bezerras <12 | 0 | 15 | 0 | 10 | 5 | 5 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | -| # | outros | 1 | | | | 1 | | 1 | +| # | 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 @@ -197,13 +197,13 @@ Comentários sobre a tabela 6 #+NAME: Tab3_4 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 35 | 11 | 0 | 6 | 40 | 0 | 40 | +| # | VACAS >24 | 20 | 4 | 0 | 0 | 24 | 0 | 24 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 14 | 0 | 0 | 14 | 14 | 0 | +| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 16 | 0 | 0 | 16 | 16 | 0 | +| # | Bezerras <12 | 0 | 17 | 0 | 12 | 5 | 5 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | -| # | outros | 1 | | | | 1 | | 1 | +| # | 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 @@ -219,11 +219,11 @@ Comentários sobre a tabela 6 :END: | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 40 | 14 | 0 | 14 | 40 | 0 | 40 | +| # | VACAS >24 | 24 | 5 | 0 | 5 | 24 | 0 | 24 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 16 | 0 | 7 | 9 | 9 | 0 | +| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 16 | 0 | 0 | 16 | 16 | 0 | +| # | Bezerras <12 | 0 | 17 | 0 | 12 | 5 | 5 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -241,13 +241,13 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple #+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6) | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| -| # | VACAS >24 | 40 | 9 | 0 | 9 | 40 | 0 | 40 | +| # | VACAS >24 | 24 | 5 | 0 | 4 | 25 | 0 | 25 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | -| # | Novilhas 12<>24 | 0 | 16 | 0 | 8 | 8 | 8 | 0 | +| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | -| # | Bezerras <12 | 0 | 16 | 0 | 0 | 16 | 16 | 0 | +| # | Bezerras <12 | 0 | 18 | 0 | 14 | 4 | 4 | 0 | | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | -| # | outros | 1 | | | | 1 | | 1 | +| # | outros | 1 | | | | | | | | ^ | | 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 @@ -264,16 +264,16 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac | | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | |---+--------------------+------+------+------+------+------+------| | # | Vacas entradas | 0 | 0 | 0 | 0 | 0 | 0 | -| # | Novilhas entradas | 2 | 0 | 0 | 0 | 0 | 0 | +| # | Novilhas entradas | 20 | 0 | 0 | 0 | 0 | 0 | | # | Terneiras entradas | 0 | 0 | 0 | 0 | 0 | 0 | |---+--------------------+------+------+------+------+------+------| -| # | Total entradas | 2 | 0 | 0 | 0 | 2 | 0 | +| # | Total entradas | 20 | 0 | 0 | 0 | 20 | 0 | |---+--------------------+------+------+------+------+------+------| -| # | Vacas saídas | 0 | 0 | 0 | 6 | 14 | 9 | -| # | Novilhas saídas | 0 | 0 | 0 | 0 | 7 | 8 | -| # | Terneiras saídas | 0 | 0 | 0 | 0 | 0 | 0 | +| # | Vacas saídas | 0 | 0 | 0 | 0 | 5 | 4 | +| # | Novilhas saídas | 0 | 0 | 0 | 0 | 0 | 0 | +| # | Terneiras saídas | 0 | 4 | 10 | 12 | 12 | 14 | |---+--------------------+------+------+------+------+------+------| -| # | Total saídas | 0 | 0 | 0 | 6 | 14 | 17 | +| # | Total saídas | 0 | 4 | 10 | 12 | 17 | 18 | |---+--------------------+------+------+------+------+------+------| | | | | | | | | | #+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$3+@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 @@ -285,131 +285,55 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac :TABLE_EXPORT_FILE: data/Tabela4.csv :TABLE_EXPORT_FORMAT: orgtbl-to-csv :END: -| | 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 | -| # | | | | | | | | -#+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 - +| | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | +|---+-----------+------+------+-------+------+------+-------| +| # | Vacas | 0 | 20 | 20 | 24 | 24 | 25 | +| # | Novilhas | 20 | 0 | 4 | 5 | 5 | 5 | +| # | Terneiras | 0 | 4 | 5 | 5 | 5 | 4 | +|---+-----------+------+------+-------+------+------+-------| +| # | T_cab | 20 | 24 | 29 | 34 | 34 | 34 | +| # | T_UGMs | 20. | 21. | 25.25 | 30.5 | 31.5 | 31.75 | +| # | | | | | | | | +#+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,@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)) * 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 -#+begin_src R - library (data.table) - library(tidyr) -library(dplyr) - library (ggplot2) -#+end_src - -#+RESULTS: - +** Gráfico resumo +#+NAME: Ler data.table Resumo #+begin_src R - 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) - -#+end_src + 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 ) -#+RESULTS: -#+begin_example -Classes ‘data.table’ and 'data.frame': 5 obs. of 7 variables: - $ Ano : chr "Vacas" "Novilhas" "Terneiras" "Total" ... - $ 2004: int 20 7 8 35 NA - $ 2005: int 27 8 11 46 NA - $ 2006: int 35 11 14 60 NA - $ 2007: int 40 14 16 70 NA - $ 2008: int 40 9 16 63 NA - $ 2009: int 40 8 16 64 NA - - attr(*, ".internal.selfref")= -Classes ‘data.table’ and 'data.frame': 6 obs. of 6 variables: - $ variable : Factor w/ 6 levels "2004","2005",..: 1 2 3 4 5 6 - $ V1 : int NA NA NA NA NA NA - $ Novilhas : int 7 8 11 14 9 8 - $ Terneiras: int 8 11 14 16 16 16 - $ Total : int 35 46 60 70 63 64 - $ Vacas : int 20 27 35 40 40 40 - - attr(*, ".internal.selfref")= - - attr(*, "sorted")= chr "variable" -tibble [30 × 4] (S3: tbl_df/tbl/data.frame) - $ variable : Factor w/ 6 levels "2004","2005",..: 1 1 1 1 1 2 2 2 2 2 ... - $ Categoria: chr [1:30] "V1" "Novilhas" "Terneiras" "Total" ... - $ Cabecas : int [1:30] NA 7 8 35 20 NA 8 11 46 27 ... - $ Ano : Factor w/ 6 levels "2004","2005",..: 1 1 1 1 1 2 2 2 2 2 ... -#+end_example +REv$Ano=as.numeric(REv$Ano) +View(REv) +#end_src +#+NAME: grafico resumo +#+begin_src R + library (ggplot2) -*** Gráfico da evolução do rebanho +test1<-ggplot(REv, aes(Ano, + Quantidade, + colour=Categoria))+ + geom_line() +test1 + #+end_src -** Gráfico 1 -#+header: :width 8 :height 8 :family Times -#+begin_src R :file ..fig/evol1.png :results file graphics - - 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 - - - -#+end_src - -#+RESULTS: -[[file:~/fig/Evoluc11.png]] + #+RESULTS: Ler data.table Resumo + : tibble [36 × 3] (S3: tbl_df/tbl/data.frame) + : $ Categoria : chr [1:36] "Vacas" "Vacas" "Vacas" "Vacas" ... + : $ Ano : num [1:36] 2004 2005 2006 2007 2008 ... + : $ Quantidade: num [1:36] 0 20 20 24 24 25 20 0 4 5 ... + : Warning message: + : Removed 6 rows containing missing values + : (`geom_line()`). ** - -* TODO - Resolver exportação figura no arquivo html - - - - - -** Animais vendidos -| # | Vacas vendidas | | | | | | | | | | | | | | | | -| # | Novilhas vendidas | | | | | | | | | | | | | | | | -| # | Terneiras vendidas | | | | | | | | | | | | | | | - - -* 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 - -#+begin_export html -
-

- Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio. -

-

- - - -

-
-#+end_export> - - -#+Caption: Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio. -#+ATTR_HTML: width 200 px :aling center -[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848]] diff --git a/data/ResumoEvolucaoVitruvio.csv b/data/ResumoEvolucaoVitruvio.csv new file mode 100644 index 0000000..1fb9a7a --- /dev/null +++ b/data/ResumoEvolucaoVitruvio.csv @@ -0,0 +1,7 @@ +Categoria,2004,2005,2006,2007,2008,2009 +Vacas,0,20,20,24,24,25 +Novilhas,20,0,4,5,5,5 +Terneiras,0,4,5,5,5,4 +T_cab,20,24,29,34,34,34 +T_UGMs,20.,21.,25.25,30.5,31.5,31.75 +,,,,,, diff --git a/data/ResumoEvolucaoVitruvio.csv~ b/data/ResumoEvolucaoVitruvio.csv~ new file mode 100644 index 0000000..99126a8 --- /dev/null +++ b/data/ResumoEvolucaoVitruvio.csv~ @@ -0,0 +1,7 @@ +Categ,2004,2005,2006,2007,2008,2009 +Vacas,0,20,20,24,24,25 +Novilhas,20,0,4,5,5,5 +Terneiras,0,4,5,5,5,4 +T_cab,20,24,29,34,34,34 +T_UGMs,20.,21.,25.25,30.5,31.5,31.75 +,,,,,, diff --git a/data/Tabela3.csv b/data/Tabela3.csv new file mode 100644 index 0000000..41b8a4e --- /dev/null +++ b/data/Tabela3.csv @@ -0,0 +1,10 @@ +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 +,,,,,, diff --git a/fig/Evoluc1.png b/fig/Evoluc1.png new file mode 100644 index 0000000..35c9232 Binary files /dev/null and b/fig/Evoluc1.png differ