diff --git a/Evolucao.org b/Evolucao.org index a75d02e..41185a9 100644 --- a/Evolucao.org +++ b/Evolucao.org @@ -7,6 +7,14 @@ #+TAGS: tabelas, org-mode, composição ideal #+share: false #+DRAFT: true +<<<<<<< HEAD +#+SETUPFIL: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup +#+HTML_HEAD: +#+HTML_HEAD: +#+HTML_HEAD: +#+HTML_HEAD: +======= +>>>>>>> 1d4d4f8 (para discutir na reuniao) #+TODO @@ -26,9 +34,15 @@ 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") +<<<<<<< HEAD +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 +======= '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 +>>>>>>> 1d4d4f8 (para discutir na reuniao) Comnpisição ideal em número de animais por categoria: @@ -61,6 +75,52 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k #+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 +<<<<<<< HEAD +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 . +#+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar) +#+NAME:Tab0 +| | Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | observação | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +| | Partos 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 | | | +|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---| +======= 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. @@ -108,6 +168,7 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba | | Bezerras a compras | 1 | 1 | 1 | 1 | 1 | 1 | | | | ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | | | |---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---| +>>>>>>> 1d4d4f8 (para discutir na reuniao) Com a evolução estimada através dos indicadores: . 1 parto por vaca por ano; @@ -117,7 +178,11 @@ Com a evolução estimada através dos indicadores: . Aproveitamento de 40% dos nascidos para repsição Temos o seguinte: >> Iniciamos com 20 vacas +<<<<<<< HEAD +>> Compramos 5 novilhas cobertas +======= >> No segundo ano serão compradas 2 novilhas +>>>>>>> 1d4d4f8 (para discutir na reuniao) #+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1) @@ -126,6 +191,15 @@ Temos o seguinte: |---+-----------------+---------+-----+--------+-------+-------+-----+---------| | # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | +<<<<<<< HEAD +| # | 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 | +#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=remote(Tab0,$TN1)::$VEV=remote(Tab0, $VV1):: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN::$EAB=remote(Tab0, $TE1)::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB +======= | # | NOVILHAS 12<>24 | 1 | 5 | 2 | 0 | 8 | 0 | 3 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | | # | BEZERRAS <12 | 2 | 8 | 0 | 0 | 10 | 10 | 0 | @@ -135,6 +209,7 @@ Temos o seguinte: #+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=remote(Tab0,$TN1)::$VEV=remote(Tab0, $VV1) #+TBLFM: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN #+TBLFM:$EAB=remote(Tab0, $TE1) ::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB +>>>>>>> 1d4d4f8 (para discutir na reuniao) 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. @@ -145,11 +220,19 @@ Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencia #+NAME: Tab3_2 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +<<<<<<< HEAD +| # | 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 | +======= | # | VACAS >24 | 20 | 0 | 5 | 0 | 25 | 0 | 25 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | | # | Novilhas 12<>24 | 3 | 10 | 0 | 0 | 13 | 13 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | | # | Bezerras <12 | 0 | 10 | 1 | 0 | 11 | 11 | 0 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -164,11 +247,19 @@ Na tabela 3.3 podemos observar... #+NAME: Tab3_3 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +<<<<<<< HEAD +| # | 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 | +======= | # | VACAS >24 | 25 | 13 | 0 | 0 | 38 | 0 | 38 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | | # | Novilhas 12<>24 | 0 | 11 | 0 | 0 | 11 | 11 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | | # | Bezerras <12 | 0 | 15 | 1 | 1 | 15 | 15 | 0 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -182,11 +273,19 @@ Na tabela 3.4 ... #+NAME: Tab3_4 | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +<<<<<<< HEAD +| # | 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 | +======= | # | VACAS >24 | 38 | 11 | 0 | 3 | 46 | 0 | 46 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | | # | Novilhas 12<>24 | 0 | 15 | 0 | 0 | 15 | 15 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | | # | Bezerras <12 | 0 | 18 | 1 | 1 | 18 | 18 | 0 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | @@ -205,6 +304,17 @@ na tabela 3.5 :END: | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +<<<<<<< HEAD +| # | 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 | +| | | | | | | | | | +======= | # | VACAS >24 | 46 | 15 | 0 | 3 | 58 | 0 | 58 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | | # | Novilhas 12<>24 | 0 | 18 | 0 | 7 | 11 | 11 | 0 | @@ -213,6 +323,7 @@ na tabela 3.5 | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | +>>>>>>> 1d4d4f8 (para discutir na reuniao) |---+-----------------+---------+-----+--------+-------+-------+-----+---------| #+TBLFM: $EAV=remote(Tab3_4, $EFV)::$TRV=remote(Tab3_4, $TCN)::$COV=remote(Tab0,$VC5)::$VEV=remote(Tab0, $VV5)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_4, $EFN)::$TRN=remote(Tab3_4, $TCB)::$CON=remote(Tab0,$NC5)::$VEN=remote(Tab0, $NV5)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_4, $EFB)::$FRB=$EFV*remote(Tab0, $BA5);%.0f::$COB=remote(Tab0,$BC5)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB @@ -223,15 +334,27 @@ e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a imp #+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6) | | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +<<<<<<< HEAD +| # | 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 | +======= | # | VACAS >24 | 58 | 11 | 0 | 5 | 64 | 0 | 64 | | ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV | | # | Novilhas 12<>24 | 0 | 23 | 0 | 7 | 16 | 16 | 0 | | ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN | | # | Bezerras <12 | 0 | 26 | 1 | 1 | 26 | 26 | 0 | +>>>>>>> 1d4d4f8 (para discutir na reuniao) | ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB | | # | outros | 1 | | | | 1 | | 1 | | ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO | |---+-----------------+---------+-----+--------+-------+-------+-----+---------| +<<<<<<< HEAD +| | | | | | | | | | +======= +>>>>>>> 1d4d4f8 (para discutir na reuniao) #+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 @@ -250,25 +373,50 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac :END: | | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | |---+-----------+------+------+------+------+------+------| +<<<<<<< HEAD +| # | 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 +======= | # | Vacas | 20 | 25 | 38 | 46 | 58 | 64 | | # | Novilhas | 8 | 13 | 11 | 15 | 11 | 16 | | # | Terneiras | 10 | 11 | 15 | 18 | 23 | 26 | |---+-----------+------+------+------+------+------+------| #+TBLFM:@2$3=remote(Tab3_1, $SAV)::@2$4=remote(Tab3_2, $SAV)::@2$5=remote(Tab3_3, $SAV)::@2$6=remote(Tab3_4, $SAV)::@2$7=remote(Tab3_5, $SAV)::@2$8=remote(Tab3_6, $SAV)::@3$3=remote(Tab3_1, $SAN)::@3$4=remote(Tab3_2, $SAN)::@3$5=remote(Tab3_3, $SAN)::@3$6=remote(Tab3_4, $SAN)::@3$7=remote(Tab3_5, $SAN)::@3$8=remote(Tab3_6, $SAN)::@4$3=remote(Tab3_1, $SAB)::@4$4=remote(Tab3_2, $SAB)::@4$5=remote(Tab3_3, $SAB)::@4$6=remote(Tab3_4, $SAB)::@4$7=remote(Tab3_5, $SAB)::@4$8=remote(Tab3_6, $SAB) +>>>>>>> 1d4d4f8 (para discutir na reuniao) * 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 +<<<<<<< HEAD +library (data.table) +library(tidyr) +library(dplyr) +Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE) + str(Evol_exist) +======= getwd() library (data.table) Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE) # str(Evol_exist) +>>>>>>> 1d4d4f8 (para discutir na reuniao) #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) +<<<<<<< HEAD +Evoluc<-Evol_exist1%>% + pivot_longer(!variable, names_to="Categoria", values_to="Cabecas")%>% + dplyr::mutate(Ano=variable) +#View(Evoluc) +str(Evoluc) +======= +>>>>>>> 1d4d4f8 (para discutir na reuniao) #+END_src @@ -276,16 +424,21 @@ str(Evol_exist1) ** Gráfico 1 #+header: :width 8 :height 8 :family Times -#+BEGIN_src R -library (ggplot2) +<<<<<<< HEAD +#+begin_src R :file ..fig/evol1.png :results file graphics + library (ggplot2) + + Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+ + geom_line (aes(color=Categoria))+ + geom_point(aes(color=Categoria)) + + Evoluc +#+end_src + +#+RESULTS: +[[file:..fig/Evol1.png]] -ggplot(Evol_exist1, -aes(x =as.numeric(variable)))+ -geom_line ( aes (y = Vacas),col="red")+ -geom_line (aes(y=Novilhas), col="blue")+ -geom_line (aes(y=Terneiras), col="green") -END_src * TODO - Resolver exportação figura no arquivo html @@ -303,6 +456,7 @@ END_src | # | Novilhas vendidas | | | | | | | | | | | | | | | | | # | Terneiras vendidas | | | | | | | | | | | | | | | +>>>>>>> 1d4d4f8 (para discutir na reuniao) * Figuras (só para testar) Exemplo 2 @@ -312,6 +466,21 @@ Exemplo 2 Exemplo 3 - +<<<<<<< HEAD +#+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]] +>>>>>>> 1d4d4f8 (para discutir na reuniao)