Vou enviar arquivos do projeto anterior
This commit is contained in:
parent
6b25e89540
commit
6167e02c95
|
|
@ -0,0 +1,4 @@
|
|||
.Rproj.user
|
||||
.Rhistory
|
||||
.RData
|
||||
.Ruserdata
|
||||
|
|
@ -0,0 +1,234 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<style xmlns="http://purl.org/net/xbiblio/csl" class="in-text" version="1.0" demote-non-dropping-particle="sort-only" default-locale="pt-BR">
|
||||
<info>
|
||||
<title>Universidade Federal do Paraná - ABNT (Português - Brasil)</title>
|
||||
<title-short>ABNT-UFPR</title-short>
|
||||
<id>http://www.zotero.org/styles/associacao-brasileira-de-normas-tecnicas-ufpr</id>
|
||||
<link href="http://www.zotero.org/styles/associacao-brasileira-de-normas-tecnicas-ufpr" rel="self"/>
|
||||
<link href="https://forums.zotero.org/discussion/1464/insert-abnt-citation-style/?Focus=67797#Comment_67797" rel="documentation"/>
|
||||
<author>
|
||||
<name>Iuri Gavronski</name>
|
||||
<email>iuri at ufrgs dot br</email>
|
||||
</author>
|
||||
<contributor>
|
||||
<name>Eduardo Bettoni</name>
|
||||
<email>webtur @ ufpr dot br</email>
|
||||
</contributor>
|
||||
<category citation-format="author-date"/>
|
||||
<category field="generic-base"/>
|
||||
<summary>The Brazilian standard style as used in the Universidade Federal do Paraná</summary>
|
||||
<updated>2021-02-15T03:41:57+00:00</updated>
|
||||
<rights license="http://creativecommons.org/licenses/by-sa/3.0/">This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License</rights>
|
||||
</info>
|
||||
<macro name="container-contributors">
|
||||
<choose>
|
||||
<if type="chapter paper-conference" match="any">
|
||||
<text value="In:" suffix=" "/>
|
||||
<names variable="editor translator" delimiter=", " suffix="; ">
|
||||
<name initialize-with=". " delimiter="; "/>
|
||||
<label form="short" prefix=" (" text-case="capitalize-first" suffix=")"/>
|
||||
</names>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="secondary-contributors">
|
||||
<choose>
|
||||
<if type="chapter paper-conference" match="none">
|
||||
<names variable="editor translator" delimiter=", " prefix=" (" suffix=")">
|
||||
<name and="symbol" initialize-with=". " delimiter=", "/>
|
||||
<label form="short" prefix=", " text-case="capitalize-first"/>
|
||||
</names>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="author">
|
||||
<names variable="author">
|
||||
<name name-as-sort-order="all" sort-separator=", " initialize-with=". " delimiter="; " delimiter-precedes-last="always">
|
||||
<name-part name="family" text-case="uppercase"/>
|
||||
<name-part name="given" text-case="uppercase"/>
|
||||
</name>
|
||||
<label form="short" prefix=" (" suffix=")" text-case="uppercase"/>
|
||||
<substitute>
|
||||
<names variable="editor"/>
|
||||
<names variable="translator"/>
|
||||
<text macro="title"/>
|
||||
</substitute>
|
||||
</names>
|
||||
</macro>
|
||||
<macro name="author-short">
|
||||
<names variable="author">
|
||||
<name form="short" name-as-sort-order="all" sort-separator=", " initialize-with=". " delimiter="; " delimiter-precedes-last="always">
|
||||
<name-part name="family" text-case="capitalize-first"/>
|
||||
<name-part name="given" text-case="capitalize-first"/>
|
||||
</name>
|
||||
<substitute>
|
||||
<names variable="editor"/>
|
||||
<names variable="translator"/>
|
||||
<choose>
|
||||
<if type="bill book graphic legal_case legislation motion_picture report song" match="any">
|
||||
<text variable="title" form="short" font-weight="bold"/>
|
||||
</if>
|
||||
<else>
|
||||
<text variable="title" form="short" quotes="true"/>
|
||||
</else>
|
||||
</choose>
|
||||
</substitute>
|
||||
</names>
|
||||
</macro>
|
||||
<macro name="access">
|
||||
<text variable="URL" prefix="Disponível em: <" suffix=">. "/>
|
||||
<date variable="accessed" prefix="Acesso em: ">
|
||||
<date-part name="day" suffix="/"/>
|
||||
<date-part name="month" form="numeric" suffix="/"/>
|
||||
<date-part name="year"/>
|
||||
</date>
|
||||
</macro>
|
||||
<macro name="title">
|
||||
<choose>
|
||||
<if type="bill book graphic legal_case legislation motion_picture report song thesis" match="any">
|
||||
<text variable="title" font-weight="bold"/>
|
||||
</if>
|
||||
<else>
|
||||
<text variable="title" suffix=". "/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="container-title">
|
||||
<choose>
|
||||
<if type="paper-conference" match="any">
|
||||
<text variable="container-title" suffix=". "/>
|
||||
<text value=" Anais... " font-weight="bold"/>
|
||||
</if>
|
||||
<else>
|
||||
<text variable="container-title" font-weight="bold"/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="publisher">
|
||||
<text variable="genre" suffix=", "/>
|
||||
<group delimiter=": ">
|
||||
<text variable="publisher-place"/>
|
||||
<text variable="publisher"/>
|
||||
</group>
|
||||
</macro>
|
||||
<macro name="issued">
|
||||
<group prefix=" " suffix=".">
|
||||
<choose>
|
||||
<if type="article-journal bill book chapter graphic legal_case legislation motion_picture paper-conference report song" match="none">
|
||||
<date variable="issued">
|
||||
<date-part prefix=" " suffix="." name="day"/>
|
||||
<date-part prefix=" " suffix=" " name="month" form="short"/>
|
||||
</date>
|
||||
</if>
|
||||
</choose>
|
||||
<date variable="issued">
|
||||
<date-part name="year"/>
|
||||
</date>
|
||||
</group>
|
||||
</macro>
|
||||
<macro name="issued-year">
|
||||
<date variable="issued">
|
||||
<date-part name="year"/>
|
||||
</date>
|
||||
</macro>
|
||||
<macro name="edition">
|
||||
<choose>
|
||||
<if type="bill book chapter graphic legal_case legislation motion_picture paper-conference report song" match="any">
|
||||
<choose>
|
||||
<if is-numeric="edition">
|
||||
<group delimiter=" ">
|
||||
<number variable="edition" form="ordinal"/>
|
||||
<text term="edition" form="short"/>
|
||||
</group>
|
||||
</if>
|
||||
<else>
|
||||
<text variable="edition" suffix=" ed."/>
|
||||
</else>
|
||||
</choose>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="locators">
|
||||
<choose>
|
||||
<if type="article-journal article-magazine article-newspaper" match="any">
|
||||
<group prefix=", " delimiter=", ">
|
||||
<group>
|
||||
<text variable="volume" prefix="v. "/>
|
||||
<text variable="issue" prefix=", n. "/>
|
||||
</group>
|
||||
<text variable="page" prefix="p. "/>
|
||||
</group>
|
||||
</if>
|
||||
<else-if type="bill book chapter graphic legal_case legislation motion_picture paper-conference report song" match="any">
|
||||
<group prefix=". " delimiter=", ">
|
||||
<text macro="edition"/>
|
||||
<group>
|
||||
<text variable="volume" prefix="v. "/>
|
||||
</group>
|
||||
<group>
|
||||
<text variable="page" prefix="p."/>
|
||||
</group>
|
||||
</group>
|
||||
</else-if>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="citation-locator">
|
||||
<group>
|
||||
<label variable="locator" form="short"/>
|
||||
<text variable="locator" prefix=" "/>
|
||||
</group>
|
||||
</macro>
|
||||
<citation et-al-min="3" et-al-use-first="1" disambiguate-add-year-suffix="true" disambiguate-add-names="true" disambiguate-add-givenname="true" collapse="year">
|
||||
<sort>
|
||||
<key macro="author"/>
|
||||
<key variable="issued"/>
|
||||
</sort>
|
||||
<layout suffix=")" delimiter=" e ">
|
||||
<group>
|
||||
<text suffix=" (" macro="author-short"/>
|
||||
<text macro="issued-year"/>
|
||||
<text prefix=", " macro="citation-locator"/>
|
||||
</group>
|
||||
</layout>
|
||||
</citation>
|
||||
<bibliography hanging-indent="false" et-al-min="6" et-al-use-first="3" entry-spacing="0">
|
||||
<sort>
|
||||
<key macro="author"/>
|
||||
<key variable="issued"/>
|
||||
</sort>
|
||||
<layout suffix=".">
|
||||
<choose>
|
||||
<if type="bill book graphic legal_case legislation motion_picture report song" match="any">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<text macro="title" suffix=". "/>
|
||||
<text macro="edition" suffix=". "/>
|
||||
<text macro="publisher" suffix=", "/>
|
||||
<text macro="issued-year"/>
|
||||
</group>
|
||||
</if>
|
||||
<else-if type="webpage">
|
||||
<group>
|
||||
<text macro="author" suffix="."/>
|
||||
<text macro="title" prefix=" "/>
|
||||
<text macro="access"/>
|
||||
</group>
|
||||
</else-if>
|
||||
<else>
|
||||
<text macro="author" suffix="."/>
|
||||
<text macro="title" prefix=" "/>
|
||||
<text macro="container-contributors"/>
|
||||
<text macro="secondary-contributors"/>
|
||||
<text macro="container-title"/>
|
||||
<text variable="collection-title" prefix=", " suffix="."/>
|
||||
<text macro="locators"/>
|
||||
<text macro="issued" prefix=","/>
|
||||
<group delimiter=". " prefix=". ">
|
||||
<text macro="publisher"/>
|
||||
<text macro="access"/>
|
||||
</group>
|
||||
</else>
|
||||
</choose>
|
||||
</layout>
|
||||
</bibliography>
|
||||
</style>
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1,99 @@
|
|||
@article{Miele2017,
|
||||
abstract = {The interaction between rootstock, scion and environment can induce different responses to the grapevine physiology. Thus, the aim of this study was to determine the rootstock effect on the yield components of Cabernet Sauvignon (CS) grapevine grown in the Serra Ga{\'{u}}cha viticultural region. The experimental design was completely randomized blocks, with 15 treatments, three replicates and ten vines per plot. The results show that all variables evaluated were significantly affected by the year and the rootstock. The CS/Solferino was among other combinations influenced by the year and had higher significant yield/ vine. Indeed, it was higher than that CS/Rupestris du Lot, CS/101-14 Mgt., CS/3309 C, CS/5BB K, CS/161-49 C, CS/1103 P. and CS/Isabel. The number of clusters/bud, per burst bud and per vine and the weight of clusters were affected by the rootstock as well. Pruning weight/vine, yield/pruning weight, leaf area/vine, leaf area index and leaf area/fresh fruit weight are variables related to the physiology of grapevine which were also affected by the rootstock. In general, rootstocks had adapted well to the environment where the experiment was carried out, giving vigor and high yield to Cabernet Sauvignon grapevine, which means that they may be used by grape growers in this region. However, the choice of the right rootstock depends on various aspects, such as those related to the soil characteristics, climate conditions, grape varieties, and even clones, and production purposes.},
|
||||
author = {Miele, Alberto and Rizzon, Luiz Antenor},
|
||||
doi = {10.1590/0100-29452017},
|
||||
file = {:home/casa/Documentos/Mendeley Desktop/Miele, Rizzon - 2017 - Intera{\c{c}}{\~{a}}o entre copa e porta-enxerto 1. efeit. efeito nos componentes de produ{\c{c}}{\~{a}}o da videira Cabernet Sauvignon: efeito nos componentes de produ{\c{c}}{\~{a}}o da videira Cabernet Sauvignon},
|
||||
issn = {01002945},
|
||||
journal = {Revista Brasileira de Fruticultura},
|
||||
keywords = {Grafting,Grape,Production,Vitis vinifera},
|
||||
number = {1},
|
||||
title = {{Intera{\c{c}}{\~{a}}o entre copa e porta-enxerto: 1. efeito nos componentes de produ{\c{c}}{\~{a}}o da videira Cabernet Sauvignon}},
|
||||
volume = {39},
|
||||
year = {2017}
|
||||
}
|
||||
@article{DeSouza2013,
|
||||
abstract = {Fuji' apple trees grown on Inceptisol and Entisol were annually fertilized with doses of N and K2O (0, 50, 100, and 200 kg ha-1, for both) along nine growing seasons. Changes of fruit maturity and quality at harvest and after cold storage in response to N and K2O fertilization were not the same for the two soil types. The increment of N rate applied increased the N content and reduced the starch content and peel red color of the fruit in both soils, regardless of K2O rate. On the Entisol, the increment of N rate increased the fresh mass and reduced the flesh firmness of the fruit, regardless of K2O rate, while in the Inceptisol this response was not consistent. Fruit titratable acidity (TA) reduced with the increment of N rate in both soils, especially at low rates of K2O. For the orchard on Inceptisol, the K and starch contents, TA, fresh mass, and peel red color increased, while the flesh firmness reduced consistently and independently of N rate, with the increment of K2O rate, but not for the orchard on the Entisol. The effects of N and K2O rates on flesh firmness and TA of the fruit were more evident after cold storage than at harvest.},
|
||||
author = {de Souza, Francielle and Argenta, Luiz Carlos and Nava, Gilberto and Ernani, Paulo Roberto and {Do Amarante}, Cassandro Vidal Talamini},
|
||||
doi = {10.1590/S0100-29452013000100035},
|
||||
file = {:home/casa/Documentos/Mendeley Desktop/de Souza et al. - 2013 - Quality of 'Fuji' apples affected by nitrogen and potassium fertilization in two soil types.pdf:pdf},
|
||||
issn = {0100-2945},
|
||||
journal = {Revista Brasileira de Fruticultura},
|
||||
keywords = {Fruit maturity,Malus domestica,Nitrogen,Nutrition,Potassium,Storage},
|
||||
mendeley-groups = {Fruti},
|
||||
number = {1},
|
||||
pages = {305--315},
|
||||
title = {{Quality of 'Fuji' apples affected by nitrogen and potassium fertilization in two soil types}},
|
||||
volume = {35},
|
||||
year = {2013}
|
||||
}
|
||||
@book{CQFSRS,
|
||||
address = {Porto Alegre},
|
||||
annote = {Livro est{\'{a}} na pasta de livros},
|
||||
author = {{CQFS RS/SC}},
|
||||
edition = {10},
|
||||
institution = {COMISS{\~{A}}O DE QU{\'{I}}MICA E FERTILIDADE DO SOLO},
|
||||
mendeley-groups = {projeto tese,Fruti},
|
||||
pages = {400},
|
||||
publisher = {Sociedade Brasileira de Ci{\^{e}}ncia do Solo/ N{\'{u}}cleo Regional Sul},
|
||||
title = {{Manual de aduba{\c{c}}{\~{a}}o e calagem para os estados do Rio Grande do Sul e Santa Catarina.}},
|
||||
year = {2004}
|
||||
}
|
||||
@book{PR2017,
|
||||
author = {CQFS-PR},
|
||||
mendeley-groups = {Fruti},
|
||||
pages = {482},
|
||||
title = {{Manual de aduba{\c{c}}{\~{a}}o e calagem para o estado do Paran{\'{a}}}},
|
||||
year = {2017}
|
||||
}
|
||||
@incollection{GilbertoNava2003,
|
||||
address = {Porto Alegre, RS},
|
||||
author = {{Gilberto Nava} and Basso, Clori and Nuernberg, N{\'{e}}vio and Melo, George Wellington and Nachtigall, Gilmar Ribeiro and Suzuk, Atsuo},
|
||||
booktitle = {Produ{\c{c}}{\~{a}}o Integrada de Ma{\c{c}}{\~{a}}s no Brasil},
|
||||
mendeley-groups = {Fruti},
|
||||
publisher = {EMPBRAPA},
|
||||
title = {{Solos e nutri{\c{c}}{\~{a}}o}},
|
||||
url = {https://sistemasdeproducao.cnptia.embrapa.br/FontesHTML/Maca/ProducaoIntegradaMaca/solos.htm},
|
||||
year = {2003}
|
||||
}
|
||||
@article{Nuernberg2005,
|
||||
author = {Nuernberg, N{\'{e}}vio Jo{\~{a}}o and Dresch-Rech, T{\'{a}}ssio and Basso, Clori},
|
||||
file = {:home/casa/Documentos/Mendeley Desktop/Nuernberg, Dresch-Rech, Basso - 2005 - Usos do gesso agr{\'{i}}cola.pdf:pdf},
|
||||
pages = {36},
|
||||
title = {{Usos do gesso agr{\'{i}}cola}},
|
||||
year = {2005}
|
||||
}
|
||||
|
||||
@article{Danner2009,
|
||||
abstract = {O objetivo deste trabalho foi avaliar o efeito da aplica{\c{c}}{\~{a}}o de diferentes fontes de Ca2+ no solo sobre o teor deste nutriente no solo, nas folhas e nos frutos, e sobre atributos f{\'{i}}sico-qu{\'{i}}micos e conserva{\c{c}}{\~{a}}o p{\'{o}}s-colheita da uva 'V{\^{e}}nus' (Vitis labrusca x V. vinifera). O delineamento foi em blocos ao acaso, com quatro repeti{\c{c}}{\~{o}}es. Utilizaram-se os seguintes tratamentos: T1 - testemunha (sem aplica{\c{c}}{\~{a}}o de Ca2+ no solo); T2 - cloreto de c{\'{a}}lcio; T3 - gesso agr{\'{i}}cola; T4 - Nitrabor{\textregistered}; T5 - cal hidratada, e T6 - borra de celulose. Para todas as fontes, aplicou-se o equivalente a 80 kg de Ca2+ ha-1, parcelados em tr{\^{e}}s aplica{\c{c}}{\~{o}}es, a cada 21 dias, a partir do in{\'{i}}cio da brota{\c{c}}{\~{a}}o da videira. Avaliou-se o teor de macronutrientes no solo, nas folhas e frutos. Na matura{\c{c}}{\~{a}}o, foram coletados quatro cachos por parcela, sendo dois cachos avaliados por ocasi{\~{a}}o da colheita e dois cachos mantidos sob temperatura ambiente e atmosfera modificada, sendo avaliados ap{\'{o}}s cinco dias. Em geral, as fontes de Ca2+ proporcionaram maior teor de Ca2+ no solo, nas folhas e nos frutos. O Nitrabor{\textregistered} e o gesso agr{\'{i}}cola aumentaram o peso m{\'{e}}dio de bagas. As fontes de Ca2+ reduziram a perda de peso, o degrane e a incid{\^{e}}ncia de podrid{\~{o}}es dos frutos em p{\'{o}}s-colheita.This work was conducted to evaluate the effects of different sources of Ca2+, applied in the soil, on the content of this nutrient in the soil, in the leaves, and in the fruits; the physico-chemical attributes and the post-harvest conservation of grapes 'V{\^{e}}nus' (Vitis labrusca x V. vinifera). The experiment was carried out in a random block design, with four replications. It was used the following treatments: T1 - control (without application of Ca2+ in the soil); T2 - calcium chloride; T3 - gypsum; T4 - Nitrabor{\textregistered}; T5 - hydrated lime; and, T6 - cellulose paste. For all sources was applied the equivalent of 80 kg of Ca2+ ha-1, in three applications, every 21 days, starting on the leafing time. It was evaluated the content of nutrients in the soil, leaves and fruits. At maturity, four grape clusters were collected in each parcel, two of them were evaluated in the harvest and the other two ones were kept under ambient temperature and modified atmosphere, being evaluated after five days. In general, the sources of Ca2+ promoted higher content of Ca2+ in the soil, leaves and fruits. Nitrabor{\textregistered} and gypsum increased the average weight of berries. The sources of Ca2+ reduced the loss of weight, the abscission and the incidence of fruits rot in post-harvest.},
|
||||
author = {Danner, Moeses Andrigo and Citadin, Idemir and Sasso, Simone Aparecida Zolet and Zarth, Nelson Alexandre and Mazaro, S{\'{e}}rgio Miguel},
|
||||
doi = {10.1590/s0100-29452009000300035},
|
||||
file = {:home/casa/Documentos/Mendeley Desktop/Danner et al. - 2009 - Fontes de c{\'{a}}lcio aplicadas no solo e sua rela{\c{c}}{\~{a}}o com a qualidade da uva 'V{\^{e}}nus'.pdf:pdf},
|
||||
journal = {Revista Brasileira de Fruticultura},
|
||||
number = {3},
|
||||
pages = {881--889},
|
||||
title = {{Fontes de c{\'{a}}lcio aplicadas no solo e sua rela{\c{c}}{\~{a}}o com a qualidade da uva 'V{\^{e}}nus'}},
|
||||
volume = {31},
|
||||
year = {2009}
|
||||
}
|
||||
@misc{Gandhi2021,
|
||||
author = {Gandhi, Ujaval},
|
||||
mendeley-groups = {agricultura de precis{\~{a}}o},
|
||||
title = {{Creating Heatmaps (QGIS3)}},
|
||||
url = {http://www.qgistutorials.com/en/docs/3/creating_heatmaps.html},
|
||||
urldate = {08/09/2021},
|
||||
year = {2021}
|
||||
}
|
||||
@article{SILVA2008,
|
||||
author = {Silva, Evando Mirra de Paula e},
|
||||
issn = {0009-6725},
|
||||
journal = {Ci{\^{e}}ncia e Cultura},
|
||||
mendeley-groups = {agricultura de precis{\~{a}}o},
|
||||
pages = {13--21},
|
||||
publisher = {scielocec},
|
||||
title = {{A tecnologia, suas estrat{\'{e}}gias, suas trajet{\'{o}}rias}},
|
||||
url = {http://cienciaecultura.bvs.br/scielo.php?script=sci_arttext&pid=S0009-67252008000500004&nrm=iso},
|
||||
volume = {60},
|
||||
year = {2008}
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,317 @@
|
|||
---
|
||||
title: "Org_coleta_kobo"
|
||||
author: "Adenor Vicente Wendling"
|
||||
date: "03/05/2021"
|
||||
output:
|
||||
html_document:
|
||||
toc: true
|
||||
toc_float: true
|
||||
theme: united
|
||||
highlight: zenburn
|
||||
---
|
||||
|
||||
```{r setup, include=FALSE}
|
||||
knitr::opts_chunk$set(echo = TRUE)
|
||||
```
|
||||
|
||||
|
||||
```{r echo=FALSE, message=FALSE}
|
||||
require(dplyr)
|
||||
require(tidyr)
|
||||
```
|
||||
|
||||
|
||||
# 1. Introdução
|
||||
|
||||
Este script tem como objetivo organizar os dados coletados (pontos de GPS) pelo Kobotool para serem usados no Qgis, na elaboração de mapas temáticos. Os dados originais provém do aplicativo kobotols <https://www.kobotoolbox.org/>, coletados para um trabalho de elaboração demapas temáticos da area dos assentamentos de Palmas, PR. Em cada propriedade visitada, foram coletados entre 1 a 5 pontos na área agrícola. Os dados dos pontos estão em uma linha, e sua utilização exige que estejam organizados de forma a que cada ponto (Lat, Long, Alt e número do ponto), esteja em uma coluna. Ou seja, de cada linha, deve ter de 1 a 5 novas colunas.
|
||||
O script foi escrito em duas mãos. Inicialmente o Adenor fez o script, com suas possibilidades, e posteriormente o José escreveu a parte do pivot_longer. Ao final, um mapa com os pontos, para demonstra o resultado.
|
||||
|
||||
# 2. Organizar os dados coletados
|
||||
|
||||
## 2.1. Importar os dados
|
||||
|
||||
```{r}
|
||||
|
||||
#Pontos <- read.csv("training/wrangling/Coleta_Assentamento_SL_1.csv", sep=";") #para rodar com "run"
|
||||
Pontos <- read.csv("data/Coleta_Assentamento_SL_1.csv", sep=",")
|
||||
#colnames(Pontos)
|
||||
```
|
||||
|
||||
## 2.2 Renomear e selecionar colunas de interesse
|
||||
|
||||
Inicialmente será trabalhado com os dados: Nome (esposo e esposa), Area do imóvel, e os pontos de moradia e da coleta dos dados.
|
||||
|
||||
Cada ponto de coleta de solos está em 5 colunas de interesse distintas: Ponto"x", Ponto"x"Lat, Ponto"x"Long, Ponto"x"Alt e ponto"x"GPS.
|
||||
|
||||
```{r echo=FALSE}
|
||||
P_Renomear <- Pontos%>%
|
||||
rename(esposo= "Esposo",
|
||||
esposa = "Esposa",
|
||||
area = "Qual.a.Área.total.da.propriedade.",
|
||||
Apropal= "É.socio.da.APROPAL.",
|
||||
IPFR= "Conhece.o.IFPR",
|
||||
M_La= "X_Local.da.moradia.principal_latitude",
|
||||
M_Lo ="X_Local.da.moradia.principal_longitude",
|
||||
M_Al= "X_Local.da.moradia.principal_altitude",
|
||||
P1_Lat = "X_Ponto.Coleta.area.1_latitude",
|
||||
P1_Long = "X_Ponto.Coleta.area.1_longitude",
|
||||
P1_Alt = "X_Ponto.Coleta.area.1_altitude",
|
||||
P1_num= "Número.do.ponto.1.no.GPS",
|
||||
P1_uso_Atual= "Uso.atual.da.area.1",
|
||||
P1_uso_antes="Uso.anterior.1",
|
||||
P1_Calagem ="Calagem...Quando.foi.a.última.calagem",
|
||||
P2_Lat = "X_Ponto.Coleta.area.2_latitude",
|
||||
P2_Long = "X_Ponto.Coleta.area.2_longitude",
|
||||
P2_Alt = "X_Ponto.Coleta.area.2_altitude",
|
||||
P2_num= "Número.do.ponto.2.no.GPS",
|
||||
P2_uso_Atual= "Uso.atual.da.area.2",
|
||||
P2_uso_antes= "Uso.anterior.area.2",
|
||||
P2_Calagem ="Calagem.area.2..Quando.foi.a.última.calagem",
|
||||
P3_Lat = "X_Ponto.Coleta.area.3_latitude",
|
||||
P3_Long = "X_Ponto.Coleta.area.3_longitude",
|
||||
P3_Alt = "X_Ponto.Coleta.area.3_altitude",
|
||||
P3_num= "Número.do.ponto.3.no.GPS",
|
||||
P3_uso_Atual= "Uso.atual.da.area.3",
|
||||
P3_uso_antes="Uso.anterior.area.3",
|
||||
P3_Calagem ="Calagem.area.3..Quando.foi.a.última.calagem",
|
||||
P4_Unico = "Ponto.Coleta.area.4",
|
||||
P4_Lat = "X_Ponto.Coleta.area.4_latitude",
|
||||
P4_Long = "X_Ponto.Coleta.area.4_longitude",
|
||||
P4_Alt = "X_Ponto.Coleta.area.4_altitude",
|
||||
P4_num= "Número.do.ponto.4.no.GPS",
|
||||
P4_uso_Atual= "Uo.atual.da.area.4",
|
||||
P4_uso_antes="Uso.anterior.area.4",
|
||||
P4_Calagem ="Calagem.area.4..Quando.foi.a.última.calagem",
|
||||
P5_Lat = "X_Ponto.Coleta.area.5_latitude",
|
||||
P5_Long = "X_Ponto.Coleta.area.5_longitude",
|
||||
P5_Alt = "X_Ponto.Coleta.area.5_altitude",
|
||||
P5_num= "Número.do.ponto.5.no.GPS",
|
||||
P5_uso_Atual= "Uso.atual.da.area.5",
|
||||
P5_uso_antes="Uso.anterior.area.5",
|
||||
P5_Calagem="Calagem.area.5..Quando.foi.a.última.calagem",)%>%
|
||||
select( esposo,
|
||||
esposa,
|
||||
area,
|
||||
Apropal,
|
||||
IPFR,
|
||||
M_La,
|
||||
M_Lo,
|
||||
M_Al ,
|
||||
P1_Lat,
|
||||
P1_Long,
|
||||
P1_Alt,
|
||||
P1_num,
|
||||
P1_uso_Atual,
|
||||
P1_uso_antes,
|
||||
P1_Calagem ,
|
||||
P2_Lat,
|
||||
P2_Long,
|
||||
P2_Alt,
|
||||
P2_num,
|
||||
P2_uso_Atual,
|
||||
P2_uso_antes,
|
||||
P2_Calagem,
|
||||
P3_Lat,
|
||||
P3_Long,
|
||||
P3_Alt,
|
||||
P3_num,
|
||||
P3_uso_Atual,
|
||||
P3_uso_antes,
|
||||
P3_Calagem,
|
||||
P4_Lat,
|
||||
P4_Long,
|
||||
P4_Alt,
|
||||
P4_num,
|
||||
P4_uso_Atual,
|
||||
P4_uso_antes,
|
||||
P4_Calagem,
|
||||
P5_Lat,
|
||||
P5_Long,
|
||||
P5_Alt,
|
||||
P5_num,
|
||||
P5_uso_Atual,
|
||||
P5_uso_antes,
|
||||
P5_Calagem,)%>%
|
||||
unite(Ponto_Nome, c("esposo", "esposa"))
|
||||
|
||||
#colnames(P_Renomear)
|
||||
#View(P_Renomear)
|
||||
```
|
||||
|
||||
|
||||
## Organizar tabela
|
||||
|
||||
Como já foi relatado na introduão, os dados dos pontos de 1 a 5 estão na mesma linha e em colunas distintas, por estabelecimento, e é necessário que estejam em linhas separadas, porém na mesma coluna.
|
||||
|
||||
Para isso será utilizado o comando **pivot_longer()** para **Alongar** a tabela.
|
||||
|
||||
Inicialmente a tabela original será dividida em , sendo uma com as colunas com final "Lat", outra com final "Long, outra última com final "Alt"e a última com fianl "num". Feito isso, todas serão alongadas, criando 5 tabelas, cada uma contendo uma das informações relevantes em uma única coluna. Finalmente, as cinco tabelas serão reunidas novamente.
|
||||
|
||||
|
||||
### 2.4.1. divisão da tabela e 5 novas
|
||||
```{r Repartir_Tables}
|
||||
|
||||
Numero <- P_Renomear%>%
|
||||
select("Ponto_Nome",
|
||||
"area",
|
||||
"Apropal",
|
||||
"IPFR",
|
||||
"M_La",
|
||||
"M_Lo",
|
||||
"M_Al",
|
||||
ends_with("num"),
|
||||
ends_with("Atual"),
|
||||
ends_with("antes"),
|
||||
ends_with("calagem")
|
||||
)
|
||||
|
||||
View(Numero)
|
||||
|
||||
Longitudes <- P_Renomear%>%
|
||||
select("Ponto_Nome", ends_with("Long"))
|
||||
#View(Longitudes)
|
||||
|
||||
Altitudes<-P_Renomear%>%
|
||||
select("Ponto_Nome", ends_with("Alt"))
|
||||
|
||||
|
||||
Latitudes<-P_Renomear%>%
|
||||
select("Ponto_Nome", ends_with("Lat"))
|
||||
|
||||
Antes<-P_Renomear%>%
|
||||
select("Ponto_Nome", ends_with("antes"))
|
||||
|
||||
Atual<-P_Renomear%>%
|
||||
select("Ponto_Nome", ends_with("Atual"))
|
||||
|
||||
Calagem<-P_Renomear%>%
|
||||
select("Ponto_Nome", ends_with("Calagem"))
|
||||
|
||||
|
||||
```
|
||||
|
||||
Temos agora 8 tabelas contendo 11 linhas e várais colunas cada. As tabelas são: Unico, Latitudes, Longitudes, Altitudes e Numero.
|
||||
|
||||
|
||||
## Pivot_longer
|
||||
|
||||
### Pivot longer com as especificações
|
||||
Foram utilizadas as mesmas tabelas criadas no chunk "Repartir_Tables", mas com especificações na saída de cada pivot_longer, evitando criação de colunas com nomes iguais.
|
||||
|
||||
```{r}
|
||||
Lat_Longer <- Latitudes%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("Lat"),
|
||||
names_to = "Set",
|
||||
values_to = "Latit"
|
||||
)%>%
|
||||
filter(Latit!= "")
|
||||
#View(Lat_Longer)
|
||||
|
||||
```
|
||||
Nesta primeira tabela foram mantidos os dados de nome, moradia, ifpr, apropal, área. Nas pŕoximas tabelas esses serão eliminados com o comando select, pois, as colunas redundantes podem ser retiradas das próximas tabelas, já que parece que ao deixar padronizadas as linhas em 21 a ordem da coluna indicadora não se modifica e todas as tabelas ficam na mesma ordem
|
||||
|
||||
```{r}
|
||||
Long_Longer <- Longitudes%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("Long"),
|
||||
names_to = "Long",
|
||||
values_to = "Longit"
|
||||
)%>%
|
||||
filter(Longit!= "")%>%
|
||||
select(Longit)
|
||||
|
||||
#View(Long_Longer)
|
||||
```
|
||||
|
||||
|
||||
```{r }
|
||||
Alt_longer <- Altitudes%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("Alt"),
|
||||
names_to = "Alt",
|
||||
values_to = "Altit"
|
||||
)%>%
|
||||
filter(Altit!= "")%>%
|
||||
select( Altit)
|
||||
```
|
||||
|
||||
|
||||
```{r }
|
||||
Antes_longer <- Antes%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("antes"),
|
||||
names_to = "ANT",
|
||||
values_to = "antes"
|
||||
)%>%
|
||||
filter(antes!= "")%>%
|
||||
select(antes)
|
||||
#View(Antes_longer)
|
||||
```
|
||||
|
||||
|
||||
```{r }
|
||||
Atual_longer <- Atual%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("Atual"),
|
||||
names_to = "ATU",
|
||||
values_to = "atual"
|
||||
)%>%
|
||||
filter(atual!= "")%>%
|
||||
select(atual)
|
||||
#View(Atual_longer)
|
||||
```
|
||||
|
||||
|
||||
```{r }
|
||||
Calagem_longer <- Calagem%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("Calagem"),
|
||||
names_to = "CAL",
|
||||
values_to = "calagem"
|
||||
)%>%
|
||||
filter(calagem!= "")%>%
|
||||
select(calagem)
|
||||
|
||||
#View(Calagem_longer)
|
||||
```
|
||||
|
||||
|
||||
```{r }
|
||||
num_longer <- Numero%>%
|
||||
pivot_longer(
|
||||
cols = ends_with("num"),
|
||||
names_to = "P_num",
|
||||
values_to = "Num"
|
||||
)%>%
|
||||
filter(Num!= "")%>%
|
||||
select(Ponto_Nome,area,Apropal,IPFR,M_La,M_Lo,M_Al,Num)
|
||||
#head(num_longer)
|
||||
```
|
||||
|
||||
|
||||
Apresentamos apenas as tabela Lat_Longer.2, já que as outras na sequência apresentam a mesma lógica, contendo apenas uma coluna.
|
||||
|
||||
## 2.6.2. União das tabelas alongadas
|
||||
|
||||
```{r}
|
||||
Pontos_Colun<-cbind(num_longer,
|
||||
Lat_Longer,
|
||||
Long_Longer,
|
||||
Alt_longer,
|
||||
Antes_longer,
|
||||
Atual_longer,
|
||||
Calagem_longer)
|
||||
#head(Pontos_Colun)
|
||||
#View(Pontos_Colun)
|
||||
```
|
||||
|
||||
|
||||
|
||||
# 3. Salvar no Arquivo
|
||||
O arquivo que queremos é um .csv. Por isso, usamos o write.csv.
|
||||
|
||||
```{r}
|
||||
write.csv(Pontos_Colun, file = "data/P_kobo_completa.csv")
|
||||
```
|
||||
|
||||
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">1213.0100097656</MDI>
|
||||
<MDI key="STATISTICS_MEAN">1138.164063965</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">1067.75</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">31.226057034849</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">67.03</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">359.94299316406</MDI>
|
||||
<MDI key="STATISTICS_MEAN">163.51108421026</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">0.050844002515078</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">107.92247158056</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">66.77</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_SIRGAS_2000",DATUM["D_SIRGAS_2000",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,164 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<kml xmlns="http://earth.google.com/kml/2.2">
|
||||
<Document>
|
||||
<name></name>
|
||||
<Style id="sh_red-circle">
|
||||
<IconStyle>
|
||||
<scale>1.3</scale>
|
||||
<Icon>
|
||||
<href>http://maps.google.com/mapfiles/kml/paddle/red-circle.png</href>
|
||||
</Icon>
|
||||
<hotSpot x="32" y="1" xunits="pixels" yunits="pixels"/>
|
||||
</IconStyle>
|
||||
<ListStyle>
|
||||
<ItemIcon>
|
||||
<href>http://maps.google.com/mapfiles/kml/paddle/red-circle-lv.png</href>
|
||||
</ItemIcon>
|
||||
</ListStyle>
|
||||
</Style>
|
||||
<StyleMap id="msn_red-circle">
|
||||
<Pair>
|
||||
<key>normal</key>
|
||||
<styleUrl>#sn_red-circle</styleUrl>
|
||||
</Pair>
|
||||
<Pair>
|
||||
<key>highlight</key>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
</Pair>
|
||||
</StyleMap>
|
||||
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: c15a5f03-e95a-4ee2-b14b-f6f3d6f8589c
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.72319, -26.3391266667
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: 1f998ffe-c1d8-4bc6-8b88-8b53698ca570
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.717811, -26.340811
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: d9a48aa1-cd9a-4a43-abad-952394dcf905
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.71364, -26.3500716667
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: b917e577-6df7-4ec1-ab9c-bb92797ef95c
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.691604, -26.361335
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: 14964408-1509-414a-8432-e9021a982c99
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.7103233333, -26.353295
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: 24775b9f-959e-4450-8281-d59770067e58
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.711275, -26.3562116667
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: 01ff2af7-d9b1-4ce8-8a03-bcfe439964a7
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.7190133333, -26.35797
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: 6c0d6999-18e8-4182-add4-334ab0a4cd4a
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.71437, -26.3687816667
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: ca5b6a83-17f6-41ed-923b-61452a779ac0
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.693993, -26.357443
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: dddb26b1-da3a-4998-859d-58faab207995
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.709177, -26.371554
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
<Placemark>
|
||||
<description>
|
||||
Survey Instance: 37c7fc63-1ff1-491f-8e20-39ffaf661772
|
||||
</description>
|
||||
<styleUrl>#sh_red-circle</styleUrl>
|
||||
<Point>
|
||||
<coordinates>
|
||||
-51.711625, -26.365782
|
||||
</coordinates>
|
||||
</Point>
|
||||
</Placemark>
|
||||
|
||||
</Document>
|
||||
</kml>
|
||||
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_SIRGAS_2000",DATUM["D_SIRGAS_2000",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,20 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">4</MDI>
|
||||
<MDI key="STATISTICS_MEAN">1.7420472785641</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">0</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">1.3314519698346</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">100</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
<PAMRasterBand band="2">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">255</MDI>
|
||||
<MDI key="STATISTICS_MEAN">165.8727929374</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">0</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">121.58856345143</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">100</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">6</MDI>
|
||||
<MDI key="STATISTICS_MEAN">4.2642073778664</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">2</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">0.80337983405266</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">100</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">4</MDI>
|
||||
<MDI key="STATISTICS_MEAN">2.6780887218888</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">2</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">0.46744917964716</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">65.05</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">6</MDI>
|
||||
<MDI key="STATISTICS_MEAN">4.2455835342942</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">2</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">0.81223571918158</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">65.05</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
<PAMDataset>
|
||||
<PAMRasterBand band="1">
|
||||
<Metadata>
|
||||
<MDI key="STATISTICS_MAXIMUM">5</MDI>
|
||||
<MDI key="STATISTICS_MEAN">3.1080141326903</MDI>
|
||||
<MDI key="STATISTICS_MINIMUM">1</MDI>
|
||||
<MDI key="STATISTICS_STDDEV">0.55234470366237</MDI>
|
||||
<MDI key="STATISTICS_VALID_PERCENT">65.05</MDI>
|
||||
</Metadata>
|
||||
</PAMRasterBand>
|
||||
</PAMDataset>
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["WGS 84", DATUM["World Geodetic System 1984", SPHEROID["WGS 84", 6378137.0, 298.257223563, AUTHORITY["EPSG","7030"]], AUTHORITY["EPSG","6326"]], PRIMEM["Greenwich", 0.0, AUTHORITY["EPSG","8901"]], UNIT["degree", 0.017453292519943295], AXIS["Geodetic longitude", EAST], AXIS["Geodetic latitude", NORTH], AUTHORITY["EPSG","4326"]]
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
http://geoinfo.cnps.embrapa.br/geoserver/wfs?format_options=charset%3AUTF-8&typename=geonode%3Aparana_solos_20201105&outputFormat=SHAPE-ZIP&version=1.0.0&service=WFS&request=GetFeature
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_SIRGAS_2000",DATUM["D_SIRGAS_2000",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,11 @@
|
|||
+-----------------------------------------------------------------------------+
|
||||
| Category Information | square|
|
||||
|#|description | meters|
|
||||
|-----------------------------------------------------------------------------|
|
||||
|3| . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .|10,314,092|
|
||||
|0| . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .| 8,176,109|
|
||||
|2| . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .| 4,899,628|
|
||||
|4| . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .| 1706|
|
||||
|-----------------------------------------------------------------------------|
|
||||
|TOTAL |23,391,536|
|
||||
+-----------------------------------------------------------------------------+
|
||||
|
|
@ -0,0 +1 @@
|
|||
UTF-8
|
||||
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
GEOGCS["GCS_SIRGAS_2000",DATUM["D_SIRGAS_2000",SPHEROID["GRS_1980",6378137.0,298.257222101]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,250 @@
|
|||
---
|
||||
title: "MAPEAMENTO DAS CARACTERÍSTICAS CLIMÁTICAS E DE SOLO DO ASSENTAMENTO SÃO LOURENÇO."
|
||||
author: "Adenor Vicente Wendling"
|
||||
date: "22/11/2020"
|
||||
output:
|
||||
word_document:
|
||||
toc: yes
|
||||
reference_odt: my-styles.odt
|
||||
bibliography: Assentamento.bib
|
||||
csl: ABNT_IFPR.csl
|
||||
---
|
||||
|
||||
|
||||
```{r setup, include=FALSE }
|
||||
knitr::opts_chunk$set(echo = TRUE, include=FALSE, message=FALSE)
|
||||
```
|
||||
|
||||
```{r include=FALSE}
|
||||
#install.packages("remedy")#para auxiliar na digitação ex.: ctrl + b -> negrito ctrl + i -> italico ctrl + k -> link ctrl + 1 -> h1 (cabeçalho 1) ctrl + 2 -> h1 (cabeçalho 2) ctrl + r -> insertar chunk de código!
|
||||
#install.packages("kableExtra") # para inserir tabela
|
||||
require(remedy)
|
||||
require(kableExtra)
|
||||
library(plotrix)
|
||||
library(knitr)
|
||||
library(tidyverse)
|
||||
library(readr)
|
||||
```
|
||||
|
||||
<https://liibre.github.io/Latin-R/#1>
|
||||
|
||||
|
||||
<https://www.rosannavanhespen.nl/2016/02/16/writing-your-thesis-with-r-markdown-1-getting-started/>
|
||||
|
||||
|
||||
# 1 INTRODUÇÃO
|
||||
O assentamento São Lourenço foi criado em 1999, quando foram assentadas 58 famílias no local. Mas, como mostra uma reportagem do jornal “TribunaPR (2003)”, ainda no ano de 2003 a maioria dos moradores ainda não havia recebido sua documentação de regularização fundiária dos estabelecimentos, correndo inclusive o risco de perderem suas terras. Segundo relatos nas reuniões, atualmente existem aproximadamente 50 famílias residindo nos assentamentos, mas houve várias trocas de moradores, ou seja; nem todas as famílias inicialmente assentadas estão residindo nos assentamentos.
|
||||
|
||||
|
||||
Estas trocas e abandonos podem provir da falta de opções de atividades que possam gerar renda para as famílias, além da distância da centro urbano e dada dificuldade de adaptação ao novo ambiente.
|
||||
|
||||
|
||||
Durante as conversas rápidas mantidas pelo grupo de servidores do IFPR com os moradores do assentamento, e na busca bibliográfica, não foi identificado nenhuma ação de planejamento coletivo para diagnosticar as opções de atividades que pudessem ser exploradas no local, tampouco um levantamento detalhado das características específicas que pudesse embasar tal diagnóstico.
|
||||
|
||||
|
||||
Não significa, entretanto, que não tenham sido realizadas iniciativas ou fomentados projetos dos mais variados, e por iniciativa de diversas entidades. Aliás, como foi relatado pelos assentados, vários projetos foram iniciados e se mostraram inviáveis, por vários motivos: falta de assistência técnica, falta de recursos financeiros, entre outros, falta de conhecimentos, baixa produtividade, etc.
|
||||
|
||||
|
||||
Para embasar um bom planejamento agropecuário, é necessário adotar boas práticas de planejamento, preferencialmente participativo, e ter um bom conhecimento das condições específicas da área. Entre as características sensíveis para a definição de atividades agropecuárias, podem ser enumeradas: fertilidade do solo, declividades do terreno, classes de aptidão do solo, pluviosidade, ventos predominantes, ocorrência de geadas, temperaturas máximas, mínimas e médias, etc. Muitas destas informações são acessíveis e disponibilizadas pelo IAPAR, IBGE, Exercito, Universidades, geralmente em âmbito municipal. Para conhecer as características específicas dos solos, entretanto, é necessário que se faça uma série de análises de sua fertilidade, , em locais adequadamente selecionados de acordo com a inclinação do terreno, tipo de vegetação, manejo dos últimos anos, etc.
|
||||
|
||||
Para tanto, este trabalho prevê a necessidade de realizar análises básicas de solo de diferentes áreas do assentamento, e a composição de mapas temáticos das características dos solos. Uma das hipóteses é que que existe uma grande heterogeneidade das fertilidades do solo, além da maioria apresentar pH baixo e deficiência de vários minerais.
|
||||
Desta forma, o objetivo deste estudo, é coletar as informações disponíveis em forma digital nos sites especializados, bem como coletar e analisar 150 amostras de solos e a partir destes dados realizar análises e construir mapas temáticos com as características climáticas e do solo do Assentamento São Lourenço, de Palmas, PR.
|
||||
|
||||
# 2 OBJETIVOS
|
||||
|
||||
## 2.1 OBJETIVO GERAL
|
||||
Criar mapas temáticos e criar um banco de dados sobre: fertilidade do solo; ventos predominantes; declividade e curvas de nível da área, através dos softwares livres “Qgis” e “R”.
|
||||
|
||||
## 2.2 OBJETIVOS ESPECÍFICOS
|
||||
- Buscar os dados e mapas disponíveis na internet que abrangem a área do assentamento São Lourenço;
|
||||
- Coletar 150 amostras de solo, georreferenciados (três amostras por morador);
|
||||
- Realizar a análise química e física das amostras do solo no laboratório;
|
||||
- Utilizar os mapas e o banco de dados para embasar futuros planejamentos de atividades agropecuárias para o assentamento.
|
||||
|
||||
# 3 JUSTIFICATIVA
|
||||
No início de 2020 foi submetido o projeto ‘Diagnóstico e planejamento participativo dos assentamentos Paraíso do Sul, Margem do Iratim, São Lourenço, localizados no Município de Palmas/PR” ao edital de seleção de projetos de seleção no âmbito do IFPR. O projeto foi aprovado, porém os cuidados necessários para com a pandemia da COVID19 inviabilizam sua execução total no período atual.
|
||||
|
||||
O projeto aprovado prevê a realização de análises do solo nos estabelecimentos rurais dos assentamentos como parte do diagnóstico, e posterior elaboração de mapas temáticos com esses dados, para subsidiar o planejamento participativo e a priorização de atividades agropecuárias a serem fomentadas.
|
||||
|
||||
|
||||
Tendo em vista a pandemia da COVID as atividades da elaboração do orçamento participativo estão suspensas. Enquanto isso não for possível, será efetuado a coleta, análise, interpretação e elaboração dos mapas temáticos, que posteriormente farão parte do projeto global. Mas, independentemente da realização das atividades de planejamento, que prevê reuniões com participação de público, os dados coletados, analisados e interpretados, serão base para elaboração de documentos, além de subsidiar possíveis orientações de políticas públicas de projetos a serem executados nestes assentamentos.
|
||||
|
||||
# 4 REVISÃO DA LITERATURA
|
||||
Várias alternativas para diminuir os custos ambientais e financeiros, sem comprometer a oferta de alimentos para a população, têm sido testadas nos últimos anos, entre as quais mencionamos: redução e otimização do uso de fertilizantes minerais, especialmente do N (O’BRIEN, GEOGHEGAN, et al., 2016); diminuição da renovação das pastagens para evitar a perda de C orgânico do solo (SCHILS, VERHAGEN, et al., 2005), manejo rotativo racional das pastagens como forma de elevar produtividade e aumentar estoque de C orgânico (CONANT, SIX, et al., 2003, SEÓ, MACHADO FILHO, et al., 2017), SILP (MACEDO, 2009), substituição de adubo químico por orgânico (SANTOS, CASTAGNARA, et al., 2014), o plantio direto (PD), e os sistemas polifíticos (STEINBEISS, BESSLER, et al., 2008).
|
||||
Ao mesmo tempo, cresce rapidamente o uso da tecnologia de informação para análise, interpretação e comunicação das informações, tanto entre pessoas, quanto entre máquinas, e desta forma evitar desperdícios, e alcançar melhores resultados e produtividade, sem comprometer o meio ambiente (CÂMARA, 1996).
|
||||
|
||||
O uso de softwares para o geoprocessamento de imagens de satélites (Gis) vem sendo muito uteis na análise, interpretação e comunicação dos dados na agricultura. Vem sendo amplamente utilizado para elaborar, por exemplo, mapas temáticos de fertilidade de solo, distribuição geográfica dos solos, condições climáticas, entre outros. A importância de conhecer as características do solo vem sendo reconhecido nos últimos anos, tanto para o aumento da produção, quanto para a regulação ambiental (CORTE, SILVA, et al., 2020, SANCHEZ, AHAMED, et al., 2009).
|
||||
No mesmo artigo, (SANCHEZ, AHAMED, et al., 2009) citam vários exemplos da importância e benefícios do uso de ferramentas de GIS para auxiliar na interpretação dos dados dos solos em escala macro. Os autores ainda definem que um mapa digital do solo é essencialmente um banco de dados espacial das características do solo, baseado em estatística tipicamente de paisagem. Para isso, são coletadas amostras de solo a campo, e analisadas em laboratórios. Estes dados são utilizados para predizer a distribuição espacial das características do solo em uma determinada região ou característica conhecida.
|
||||
|
||||
|
||||
Sempre é necessário lembra que a agropecuária é responsável por uma grande quantidade da emissão de gases, além de ter participação na eutrofização das águas, na perda da fertilidade do solo e na perda da diversidade (BUTCHART, WALPOLE, et al., 2010, GERBER, STEINFELD, et al., 2013). Por isso, o uso de tecnologias que possam diminuir esses problemas, sempre será muito desejado pela sociedade. E é isso que os sistemas GIS oferecem.
|
||||
|
||||
|
||||
Vários trabalhos acadêmicos e científicos mostram a utilidade, benefícios e eficiência do uso de softwares de gestão de dados geográficos para a elaboração de mapas temáticos das características dos solo. Um exemplo, é uma trabalho realizado no estado da Paraíba, com o objetivo de mapear as classes de solo de duas microrregiões da Paraíba. No trabalho, apresentado. Uma das conclusões do estudo a identificação da heterogeneidade nos resultados expressos nos mapas, devido à diferença de clima, relevo, vegetação, altitude entre outros fatores (SILVA, NASCIMENTO, et al., 2019).
|
||||
Outro estudo, mais avançado e detalhado, foi realizado na região dos vinhedos (SARMENTO, FLORES, et al., 2008), e mostra a grande capacidade de produção de mapas, com informações de grande importância para a agricultura.
|
||||
|
||||
# 5 METODOLOGIA
|
||||
## 5.1 – Coleta e análise do solo
|
||||
O solo será coletado na profundidade de 0 a 0,20 m, com trado tipo holandês, com 10 subamostras amostra. O solo coletado será seco ao ar livre, destorroado e analisado no laboratório de solos da IFPR em Palmas para determinação de: pH, índice SMP, Ca e Mg, P, K, carbono orgânico total (COT) e matéria orgânica (MO). O método utilizado para avaliação dos atributos químicos está descrito em (EMBRAPA, 2009), e é especificado a seguir. O Ca e Mg serão extraídos pelo método KCl e determinado pelo método de espectrofotometria. A extração de P e K será com solução de Mehlich-1. A determinação da concentração de P será em Spectrophotometer V-1600, segundo (MURPHY, RILEY, 1962) e de K foi em fotômetro de chama. Os teores de COT serão quantificados pelo método de oxidação via úmida, com aquecimento externo, conforme descrito por (YEOMANS, BREMNER, 1988). Os teores de MO serão determinados multiplicando-se os valores de COT por 1.724 (NELSON, SOMMERS, 1982). As análises químicas serão em duplicatas, e amostras com erro e outsiders serão repetidas.
|
||||
|
||||
## 5.2 Análise dos dados
|
||||
s dados das análise dos solo serão analisados e interpretadas com o auxilio do software Qgis. Para uma melhor interpretação, serão importados dados públicos sobre a declividade, inclinação, altitude, tipo de solo, pluviosidade, e interpolados com os resultados das análises do solo. Os dadas serão buscados em “ftp://geoftp.ibge.gov.br/cartas_e_mapas/”, https://bdgex.eb.mil.br/mediador/index.php?modulo=login&acao=entrar, (FOREST, 2020), etc. Com esta interpolação, serão construídos os mapas temáticos, extrapolando os dados dos pontos coletados para toda a área do assentamento.
|
||||
Na figura 1 estão representadas as curvas de nível do assentamento São Lourenço. Os dados para a elaboração deste mapa constam no site do exército, e as delimitações do assentamento em arquivos disponibilizados pelo INCRA. A altitude, conforme identificado na figura 1, varia de 1060 a 1180m, e a área do assentamento é de 15,254 km².
|
||||
Já na figura 2 estão representados os tipos de solos, e a declividade do assentamento São Lourenço, com uma resolução de 1:250.000. esta resolução é muito grande e não permite identificar pequenas variações existentes na área do assentamento, mas possibilita identificar especialmente as características gerais da área.
|
||||
|
||||
# 6 CRONOGRAMA
|
||||
|
||||
Tabela 1 – Descrição das atividades, período de realização e responsável pela realização, do projeto.
|
||||
|O Quê| Quem| Quando |Como |
|
||||
|-:|-:|-:|-:|
|
||||
|Planejar locais de coleta|Adenor|Outubro 2020|Análise mapas|
|
||||
|Informar público alvo|Adenor/Orientador|Outubro 2020|Rádio, rede local informal|
|
||||
|Coleta das amostras|Bolsista/Adenor|Novembro 2020|Recomendações do manual|indicação de dados geográficos|
|
||||
|Análise do solo em laboratório|Bolsistas|Novembro/dez 2020|Conforme manual Embrapa|
|
||||
|Análise dos dados coletados|Equipe|Janeiro/Fev. 2021|Estatística descritiva, interpolação, gradientes|
|
||||
|Produção dos mapas temáticos|Adenor|Março 2021|Uso do Qgis|
|
||||
|Elaboração documentos final, com descrição, analise dos dados e mapas|Equipe|
|
||||
Abril a julho 2021|Para publicar em boletim ou congresso.|
|
||||
|
||||
|
||||
# 7 ORÇAMENTO
|
||||
|
||||
|
||||
```{r, include=TRUE, echo=FALSE}
|
||||
|
||||
Orcamento = data.frame(Descrição = c("Reagentes para análises do solo","Despesas com viagens ao assentamento", "Bolsa estudo", "Impressão material relatório final", "Soma"), Quantidade = c(150,5,12,50, "-"),Preço_unitário = c("R$ 5,00", "R$ 100,00", "R$ 400,00", "R$ 4,00", "-"), Valor_Total=c("R$ 750.00", "R$ 500.00", "R$ 1200.00", "R$ 200,00", 500.00+ 1200.00+200.00+ 750.00))
|
||||
#Orcamento
|
||||
kbl(Orcamento, caption = "Tabela 2 - Orçamento para realização do projeto", booktabs = T) %>%
|
||||
#kable_styling(latex_options = "striped")
|
||||
kable_styling(latex_options = c("striped", "scale_down"))%>%
|
||||
column_spec(1, width = "12cm")
|
||||
```
|
||||
|
||||
|
||||
Os recursos descritos como fonte de origem “Projeto”, são provenientes do convênio/projeto aprovado…… As despesas com a análise do solo serão em parte realizados com utilização dos reagentes oriundos do laboratório de solos, adquiridos com recursos ordinários do IFPR, como contrapartida.
|
||||
Os recursos para a despesa de viagens ao assentamento foram oferecidos como contrapartida do IFPR para a realização do convênio.
|
||||
|
||||
# Características do relevo no assentamento
|
||||
|
||||
## Dados das altitudes
|
||||
O dados das altitudes são provenientes do arquivo raster fornecido pelo site "Topodata". A Partir do arquivo raster `Altitude_SL`, foi recortado a área pertencente ao assentamento, e calculados os indices a seguir para 10 grupos de altitudes.
|
||||
|
||||
|
||||
```{r, echo=FALSE, message=FALSE, include=TRUE, warning=FALSE}
|
||||
|
||||
Alt_estatistica <- read_delim("data/Alt_estatistica.txt", "|", escape_double = FALSE, col_names = FALSE,
|
||||
trim_ws = TRUE, skip = 4)
|
||||
#View(Alt_estatistica)
|
||||
```
|
||||
|
||||
|
||||
|
||||
```{r, echo=FALSE, message=FALSE, include=TRUE}
|
||||
|
||||
Altitude_SL<-Alt_estatistica%>%
|
||||
filter(X3=="from to . . . . . . . . . . . .")%>%
|
||||
select(X2,X4)%>%
|
||||
transmute(
|
||||
De_Ate=X2,
|
||||
Metro_Quad=X4,
|
||||
Ha=X4/10000,
|
||||
Porcentagem=X4/15215421*100,
|
||||
)%>%
|
||||
tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>%
|
||||
mutate(
|
||||
Alt_Menor = as.numeric(De),
|
||||
Alt_Maior = as.numeric(Até)
|
||||
)
|
||||
view(Altitude_SL)
|
||||
```
|
||||
|
||||
Na tabela 2 constam os dados da altitude da área de terra do Assentamento, divididas em 1 grupos, com as altitudes variando de 1067 a 1198 metros acima do nível do mar, e as respectivas porcentagens e área pertencentes ao grupo.
|
||||
|
||||
```{r kable_a_dados, echo=FALSE, include=TRUE}
|
||||
|
||||
kable(Altitude_SL[ ,3:6 ],
|
||||
format = "simple",
|
||||
digits = 1,
|
||||
padding = 2,
|
||||
caption =("Tabela 2 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço"))
|
||||
```
|
||||
|
||||
|
||||
A menor área está em altitude de `r min(Altitude_SL$De_Ate)` metros acima do nível do mar (ANM) com `r min(Altitude_SL$Ha)` hectares de área, ou seja, **`r min(Altitude_SL$Porcentagem)`** porcento da área total.
|
||||
A maior área está em altitude de `r max(Altitude_SL$De_Ate)` ANM, com `r max(Altitude_SL$Ha)`ha de área, ou seja, `r max(Altitude_SL$Porcentagem)` porcento da área total.
|
||||
|
||||
No gráfico 1 apresenta os mesmos dados de altitude, mas de forma mais didática, e a representação permite visualiar que a maior parte das áreas está em altitude que variam de 1100 a 1175 metros.
|
||||
|
||||
```{r, echo=FALSE,message=FALSE}
|
||||
Grafico1 <-ggplot(Altitude_SL, aes(x=Alt_Menor, y=Porcentagem))+
|
||||
geom_col(col="red",fill="blue" )+
|
||||
theme_bw()+
|
||||
theme(axis.text = element_text(
|
||||
size=12,
|
||||
face=3)
|
||||
)+
|
||||
xlab("Altitude (m)")
|
||||
|
||||
Grafico1 +ggtitle("Gráfico 1: Distribuição das terras de acordo com a altitude, no Assentamento São Lourenço")
|
||||
|
||||
```
|
||||
|
||||
## Orientação do terreno
|
||||
|
||||
Os dados de orientação mostram para qual quadrante a área está inclinada. Serão usados os dados do arquivo raster de orientação, disponível no site TOPODATA, e recortado para a área do assentamento.
|
||||
|
||||
|
||||
```{r Orientaçao, include=FALSE, echo=FALSE}
|
||||
Orient_NEst <- read_delim("../data/Orient_NEst.txt",
|
||||
"|", escape_double = FALSE, col_names = FALSE,
|
||||
trim_ws = TRUE, skip = 1)
|
||||
View(Orient_NEst)
|
||||
```
|
||||
|
||||
|
||||
```{r include=FALSE, echo=FALSE}
|
||||
|
||||
Orient_NEst<-Orient_NEst%>%
|
||||
filter(X3=="from to . . . . . . . . . . . . .")%>%
|
||||
select(X2,X4)%>%
|
||||
transmute(
|
||||
De_Ate=X2,
|
||||
Metro_Quad=X4,
|
||||
Ha=X4/10000,
|
||||
Porcentagem=X4/15163779*100,
|
||||
)%>%
|
||||
tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>%
|
||||
mutate(
|
||||
Orient_Menor = as.numeric(De),
|
||||
Orient_Maior = as.numeric(Até)
|
||||
)%>%
|
||||
arrange(Orient_Menor)
|
||||
|
||||
```
|
||||
|
||||
|
||||
|
||||
|
||||
```{r kable_b_dados, echo=FALSE, include=TRUE}
|
||||
|
||||
kable(Orient_NEst[ ,6:4 ],
|
||||
format = "simple",
|
||||
digits = 1,
|
||||
padding = 2,
|
||||
caption = "1 - Quantidade de metros quadrados de área de cada orientação, no assentamento Sâo Lourenço")
|
||||
```
|
||||
|
||||
No gráfico 2 está rerpesentada a orientação das áreas de terras do assentamento, de acordo com a "Rosa dos vendos". A maior porcentagem de terras está voltada para o norte, com 16,6 % da área, seguido pela orientação nordeste e sudeste, com 15% cada, com menor porcentagem aparecem as orientações para o Sul (9.6%), Leste (8.4%) e Sudeste (7.7 %) da área.
|
||||
|
||||
```{r echo=FALSE, include=TRUE}
|
||||
|
||||
OrietNames<-c("N","NW","W","SW","S","SE", "E", "NE")
|
||||
OrientaHa<-Orient_NEst$Ha
|
||||
|
||||
radial.plot(OrientaHa,labels=OrietNames,rp.type="r",label.prop=1.1, main="Gráfico 2: Área (ha) conforme orientação, do assentamento São Lourenço",
|
||||
grid.unit="Ha",poly.col="green",radial.lim=c(0,250),show.grid.labels=1,
|
||||
line.col = "red", lwd=5, grid.col = "blue")
|
||||
|
||||
```
|
||||
|
||||
|
||||
File diff suppressed because one or more lines are too long
Binary file not shown.
|
After Width: | Height: | Size: 14 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 30 KiB |
|
|
@ -0,0 +1,260 @@
|
|||
---
|
||||
title: "Primeiro Relatório"
|
||||
author: "Adenor Vicente Wendling"
|
||||
date: "29/04/2021"
|
||||
output:
|
||||
odt_document:
|
||||
referencia_odt: my_styles2.odt
|
||||
bibliography: ../../../Referencias/library.bib
|
||||
csl: ../ABNT_IFPR.csl
|
||||
always_allow_html: yes
|
||||
abstract: Este relatório parcial apresenta as principais realizações alcançadas no projeto durante o último período. Foram coletadas até o momento 61 amostras de solo, sendo 24 com apoio do kobotools, e as demais pelos próprios agricultores, em função da pandemia, que inviabilizou o deslocamento da equipe para coleta. Além das coletas, foram realizados estudos osbre a geografia do assentamento, especialmente da altitude, inclinação e declividade do terreno. foram elaborados tuturiais para orientar a elaboração de mapas temáticos de localização dos pontos de coleta, do relevo, dos dados com cadastro ambiental rural e da interpretação estatística dos dados geográficos. Apesar das dificuldades que inviabilizaram a coleta de todas as amostras previstas, bem como das atividades presenciais, foram realizadas várias atividades previstas.
|
||||
---
|
||||
|
||||
```{r setup, include=FALSE}
|
||||
knitr::opts_chunk$set(echo = TRUE)
|
||||
```
|
||||
|
||||
|
||||
```{r echo=FALSE, message=FALSE}
|
||||
require(dplyr)
|
||||
require(tidyr)
|
||||
require(ggplot2)
|
||||
require(kableExtra)
|
||||
library(plotrix)
|
||||
library(knitr)
|
||||
library(tidyverse)
|
||||
library(readr)
|
||||
```
|
||||
|
||||
|
||||
# Tuturiais
|
||||
## Coleta e organização dos dados pela ferramenta Kobotools
|
||||
### Introdução
|
||||
|
||||
Este script tem como objetivo organizar os dados coletados (pontos de GPS) pelo Kobotool para serem usados no Qgis, na elaboração de mapas temáticos. Os dados originais provém do aplicativo kobotols <https://www.kobotoolbox.org/>, coletados para um trabalho de elaboração demapas temáticos da area dos assentamentos de Palmas, PR. Em cada propriedade visitada, foram coletados entre 1 a 5 pontos na área agrícola. Os dados dos pontos estão em uma linha, e sua utilização exige que estejam organizados de forma a que cada ponto (Lat, Long, Alt e número do ponto), esteja em uma coluna. Ou seja, de cada linha, deve ter de 1 a 5 novas colunas.
|
||||
O script foi escrito em duas mãos. Inicialmente o Adenor fez o script, com suas possibilidades, e posteriormente o José escreveu a parte do pivot_longer. Ao final, um mapa com os pontos, para demonstra o resultado.
|
||||
No anexo 1 apresentamos o tuturial completo, elaborado captar e organizar os dados deste trabalho, bem como, para servir de base para futuras coletas de dados.
|
||||
|
||||
|
||||
|
||||
O segundo mapa mostra os pontos de coleta de solo, registrados no local através da ferramenta "kobo", disponível em <https://www.kobotoolbox.org/>.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
## Incluir e manipular arquivos de topografia e CAR em projeto Qgis
|
||||
|
||||
### Introdução
|
||||
|
||||
Este documento tem como finalidade mostrar o passo a passo para inserir mapas de declividade, altitude e inclinação dos terrenos de uma área específica. Para fins de exemplo, será utilizado a área do PRV do Caco, localizado em Santa Catarina.
|
||||
Apesar do tuturial ser de outra área, os dados de topografia também foram utilizados para determinar a altitude, inclinação de declividade dos solos no assentamento, conforme ser'apresentado no relatório.
|
||||
|
||||
## Arquivos Camadas com arquivos do CAR
|
||||
|
||||
### Introdução
|
||||
Um projeto deve ser o maos preciso prossível. Por isso, a fonte de dados é importante. Uma das fontes de dados disponibilizadas nos últimos anos, é do CAR - cadastro ambiental rural.
|
||||
Os dados estão disponíveis no endereço <https://www.car.gov.br/publico/municipios/downloads> e estão divididospor estados e municípios.
|
||||
Depois de baixado, os arquivos devem ser descompactados, e armazenados em local específico, para seu uso.
|
||||
|
||||
Os dados:
|
||||
|
||||
Os dados disponibilizados estão divididos em vários grupos, conforme se visualiza na imagem 1.
|
||||
|
||||
.
|
||||
|
||||
## Tuturial em elaboração:
|
||||
### Como elaborar um documento do Rmarkdown em formato .docx, .odt e .pdf.
|
||||
Este tuturial não é um dos objetivos, e não sei se vou conseguiur elaborar o tuturial e o documento no formato adequado, por falta de tempo e conhecimentos de programação para criação de arquivos .csl
|
||||
|
||||
# Estudos sobre o assentamento.
|
||||
## INTRODUÇÃO
|
||||
|
||||
O assentamento São Lourenço foi criado em 1999, quando foram assentadas 58 famílias no local. Mas, como mostra uma reportagem do jornal “TribunaPR (2003)”, ainda no ano de 2003 a maioria dos moradores ainda não havia recebido sua documentação de regularização fundiária dos estabelecimentos, correndo inclusive o risco de perderem suas terras. Segundo relatos nas reuniões, atualmente existem aproximadamente 50 famílias residindo nos assentamentos, mas houve várias trocas de moradores, ou seja; nem todas as famílias inicialmente assentadas estão residindo nos assentamentos.
|
||||
|
||||
|
||||
Estas trocas e abandonos podem provir da falta de opções de atividades que possam gerar renda para as famílias, além da distância da centro urbano e dada dificuldade de adaptação ao novo ambiente.
|
||||
|
||||
|
||||
Durante as conversas rápidas mantidas pelo grupo de servidores do IFPR com os moradores do assentamento, e na busca bibliográfica, não foi identificado nenhuma ação de planejamento coletivo para diagnosticar as opções de atividades que pudessem ser exploradas no local, tampouco um levantamento detalhado das características específicas que pudesse embasar tal diagnóstico.
|
||||
|
||||
|
||||
Não significa, entretanto, que não tenham sido realizadas iniciativas ou fomentados projetos dos mais variados, e por iniciativa de diversas entidades. Aliás, como foi relatado pelos assentados, vários projetos foram iniciados e se mostraram inviáveis, por vários motivos: falta de assistência técnica, falta de recursos financeiros, entre outros, falta de conhecimentos, baixa produtividade, etc.
|
||||
|
||||
|
||||
Para embasar um bom planejamento agropecuário, é necessário adotar boas práticas de planejamento, preferencialmente participativo, e ter um bom conhecimento das condições específicas da área. Entre as características sensíveis para a definição de atividades agropecuárias, podem ser enumeradas: fertilidade do solo, declividades do terreno, classes de aptidão do solo, pluviosidade, ventos predominantes, ocorrência de geadas, temperaturas máximas, mínimas e médias, etc. Muitas destas informações são acessíveis e disponibilizadas pelo IAPAR, IBGE, Exercito, Universidades, geralmente em âmbito municipal. Para conhecer as características específicas dos solos, entretanto, é necessário que se faça uma série de análises de sua fertilidade, , em locais adequadamente selecionados de acordo com a inclinação do terreno, tipo de vegetação, manejo dos últimos anos, etc.
|
||||
|
||||
Para tanto, este trabalho prevê a necessidade de realizar análises básicas de solo de diferentes áreas do assentamento, e a composição de mapas temáticos das características dos solos. Uma das hipóteses é que que existe uma grande heterogeneidade das fertilidades do solo, além da maioria apresentar pH baixo e deficiência de vários minerais.
|
||||
Desta forma, o objetivo deste estudo, é coletar as informações disponíveis em forma digital nos sites especializados, bem como coletar e analisar 150 amostras de solos e a partir destes dados realizar análises e construir mapas temáticos com as características climáticas e do solo do Assentamento São Lourenço, de Palmas, PR.
|
||||
|
||||
## 2 OBJETIVOS
|
||||
|
||||
### 2.1 OBJETIVO GERAL
|
||||
Criar mapas temáticos e criar um banco de dados sobre: fertilidade do solo; ventos predominantes; declividade e curvas de nível da área, através dos softwares livres “Qgis” e “R”.
|
||||
|
||||
### 2.2 OBJETIVOS ESPECÍFICOS
|
||||
- Buscar os dados e mapas disponíveis na internet que abrangem a área do assentamento São Lourenço;
|
||||
- Coletar 150 amostras de solo, georreferenciados (três amostras por morador);
|
||||
- Realizar a análise química e física das amostras do solo no laboratório;
|
||||
- Utilizar os mapas e o banco de dados para embasar futuros planejamentos de atividades agropecuárias para o assentamento.
|
||||
|
||||
## 3 JUSTIFICATIVA
|
||||
No início de 2020 foi submetido o projeto ‘Diagnóstico e planejamento participativo dos assentamentos Paraíso do Sul, Margem do Iratim, São Lourenço, localizados no Município de Palmas/PR” ao edital de seleção de projetos de seleção no âmbito do IFPR. O projeto foi aprovado, porém os cuidados necessários para com a pandemia da COVID19 inviabilizam sua execução total no período atual.
|
||||
|
||||
O projeto aprovado prevê a realização de análises do solo nos estabelecimentos rurais dos assentamentos como parte do diagnóstico, e posterior elaboração de mapas temáticos com esses dados, para subsidiar o planejamento participativo e a priorização de atividades agropecuárias a serem fomentadas.
|
||||
|
||||
|
||||
Tendo em vista a pandemia da COVID as atividades da elaboração do orçamento participativo estão suspensas. Enquanto isso não for possível, será efetuado a coleta, análise, interpretação e elaboração dos mapas temáticos, que posteriormente farão parte do projeto global. Mas, independentemente da realização das atividades de planejamento, que prevê reuniões com participação de público, os dados coletados, analisados e interpretados, serão base para elaboração de documentos, além de subsidiar possíveis orientações de políticas públicas de projetos a serem executados nestes assentamentos.
|
||||
|
||||
## 4 REVISÃO DA LITERATURA
|
||||
Várias alternativas para diminuir os custos ambientais e financeiros, sem comprometer a oferta de alimentos para a população, têm sido testadas nos últimos anos, entre as quais mencionamos: redução e otimização do uso de fertilizantes minerais, especialmente do N (O’BRIEN, GEOGHEGAN, et al., 2016); diminuição da renovação das pastagens para evitar a perda de C orgânico do solo (SCHILS, VERHAGEN, et al., 2005), manejo rotativo racional das pastagens como forma de elevar produtividade e aumentar estoque de C orgânico (CONANT, SIX, et al., 2003, SEÓ, MACHADO FILHO, et al., 2017), SILP (MACEDO, 2009), substituição de adubo químico por orgânico (SANTOS, CASTAGNARA, et al., 2014), o plantio direto (PD), e os sistemas polifíticos (STEINBEISS, BESSLER, et al., 2008).
|
||||
Ao mesmo tempo, cresce rapidamente o uso da tecnologia de informação para análise, interpretação e comunicação das informações, tanto entre pessoas, quanto entre máquinas, e desta forma evitar desperdícios, e alcançar melhores resultados e produtividade, sem comprometer o meio ambiente (CÂMARA, 1996).
|
||||
|
||||
O uso de softwares para o geoprocessamento de imagens de satélites (Gis) vem sendo muito uteis na análise, interpretação e comunicação dos dados na agricultura. Vem sendo amplamente utilizado para elaborar, por exemplo, mapas temáticos de fertilidade de solo, distribuição geográfica dos solos, condições climáticas, entre outros. A importância de conhecer as características do solo vem sendo reconhecido nos últimos anos, tanto para o aumento da produção, quanto para a regulação ambiental @CORTE2020 (CORTE, SILVA, et al., 2020, SANCHEZ, AHAMED, et al., 2009).
|
||||
No mesmo artigo, @Sanchez2009 (SANCHEZ, AHAMED, et al., 2009) citam vários exemplos da importância e benefícios do uso de ferramentas de GIS para auxiliar na interpretação dos dados dos solos em escala macro. Os autores ainda definem que um mapa digital do solo é essencialmente um banco de dados espacial das características do solo, baseado em estatística tipicamente de paisagem. Para isso, são coletadas amostras de solo a campo, e analisadas em laboratórios. Estes dados são utilizados para predizer a distribuição espacial das características do solo em uma determinada região ou característica conhecida.
|
||||
|
||||
|
||||
|
||||
Sempre é necessário lembra que a agropecuária é responsável por uma grande quantidade da emissão de gases, além de ter participação na eutrofização das águas, na perda da fertilidade do solo e na perda da diversidade (BUTCHART, WALPOLE, et al., 2010, GERBER, STEINFELD, et al., 2013). Por isso, o uso de tecnologias que possam diminuir esses problemas, sempre será muito desejado pela sociedade. E é isso que os sistemas GIS oferecem.
|
||||
|
||||
|
||||
Vários trabalhos acadêmicos e científicos mostram a utilidade, benefícios e eficiência do uso de softwares de gestão de dados geográficos para a elaboração de mapas temáticos das características dos solo. Um exemplo, é uma trabalho realizado no estado da Paraíba, com o objetivo de mapear as classes de solo de duas microrregiões da Paraíba. No trabalho, apresentado. Uma das conclusões do estudo a identificação da heterogeneidade nos resultados expressos nos mapas, devido à diferença de clima, relevo, vegetação, altitude entre outros fatores (SILVA, NASCIMENTO, et al., 2019).
|
||||
Outro estudo, mais avançado e detalhado, foi realizado na região dos vinhedos (SARMENTO, FLORES, et al., 2008), e mostra a grande capacidade de produção de mapas, com informações de grande importância para a agricultura.
|
||||
|
||||
# 5 METODOLOGIA
|
||||
## 5.1 – Coleta e análise do solo
|
||||
O solo será coletado na profundidade de 0 a 0,20 m, com trado tipo holandês, com 10 subamostras amostra. O solo coletado será seco ao ar livre, destorroado e analisado no laboratório de solos da IFPR em Palmas para determinação de: pH, índice SMP, Ca e Mg, P, K, carbono orgânico total (COT) e matéria orgânica (MO). O método utilizado para avaliação dos atributos químicos está descrito em (EMBRAPA, 2009), e é especificado a seguir. O Ca e Mg serão extraídos pelo método KCl e determinado pelo método de espectrofotometria. A extração de P e K será com solução de Mehlich-1. A determinação da concentração de P será em Spectrophotometer V-1600, segundo (MURPHY, RILEY, 1962) e de K foi em fotômetro de chama. Os teores de COT serão quantificados pelo método de oxidação via úmida, com aquecimento externo, conforme descrito por (YEOMANS, BREMNER, 1988). Os teores de MO serão determinados multiplicando-se os valores de COT por 1.724 (NELSON, SOMMERS, 1982). As análises químicas serão em duplicatas, e amostras com erro e outsiders serão repetidas.
|
||||
|
||||
## 5.2 Análise dos dados
|
||||
s dados das análise dos solo serão analisados e interpretadas com o auxilio do software Qgis. Para uma melhor interpretação, serão importados dados públicos sobre a declividade, inclinação, altitude, tipo de solo, pluviosidade, e interpolados com os resultados das análises do solo. Os dadas serão buscados em “ftp://geoftp.ibge.gov.br/cartas_e_mapas/”, https://bdgex.eb.mil.br/mediador/index.php?modulo=login&acao=entrar, (FOREST, 2020), etc. Com esta interpolação, serão construídos os mapas temáticos, extrapolando os dados dos pontos coletados para toda a área do assentamento.
|
||||
Na figura 1 estão representadas as curvas de nível do assentamento São Lourenço. Os dados para a elaboração deste mapa constam no site do exército, e as delimitações do assentamento em arquivos disponibilizados pelo INCRA. A altitude, conforme identificado na figura 1, varia de 1060 a 1180m, e a área do assentamento é de 15,254 km².
|
||||
Já na figura 2 estão representados os tipos de solos, e a declividade do assentamento São Lourenço, com uma resolução de 1:250.000. esta resolução é muito grande e não permite identificar pequenas variações existentes na área do assentamento, mas possibilita identificar especialmente as características gerais da área.
|
||||
|
||||
|
||||
# Características do relevo no assentamento
|
||||
|
||||
## Dados das altitudes
|
||||
O dados das altitudes são provenientes do arquivo raster fornecido pelo site "Topodata". A Partir do arquivo raster `Altitude_SL`, foi recortado a área pertencente ao assentamento, e calculados os indices a seguir para 10 grupos de altitudes.
|
||||
|
||||
|
||||
```{r, echo=FALSE, message=FALSE, include=TRUE, warning=FALSE}
|
||||
|
||||
Alt_estatistica <- read_delim("data/Alt_estatistica.txt", "|", escape_double = FALSE, col_names = FALSE,
|
||||
trim_ws = TRUE, skip = 4)
|
||||
```
|
||||
|
||||
|
||||
|
||||
```{r, echo=FALSE, message=FALSE, include=TRUE}
|
||||
|
||||
Altitude_SL<-Alt_estatistica%>%
|
||||
filter(X3=="from to . . . . . . . . . . . .")%>%
|
||||
select(X2,X4)%>%
|
||||
transmute(
|
||||
De_Ate=X2,
|
||||
Metro_Quad=X4,
|
||||
Ha=X4/10000,
|
||||
Porcentagem=X4/15215421*100,
|
||||
)%>%
|
||||
tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>%
|
||||
mutate(
|
||||
Alt_Menor = as.numeric(De),
|
||||
Alt_Maior = as.numeric(Até)
|
||||
)
|
||||
view(Altitude_SL)
|
||||
```
|
||||
|
||||
Na tabela 2 constam os dados da altitude da área de terra do Assentamento, divididas em 1 grupos, com as altitudes variando de 1067 a 1198 metros acima do nível do mar, e as respectivas porcentagens e área pertencentes ao grupo.
|
||||
|
||||
```{r kable_a_dados, echo=FALSE, include=TRUE}
|
||||
|
||||
kable(Altitude_SL[ ,3:6 ],
|
||||
format = "simple",
|
||||
digits = 1,
|
||||
padding = 2,
|
||||
caption =("Tabela 2 - Quantidade de metros quadrados de área de cada altitude, no assentamento Sâo Lourenço"))
|
||||
```
|
||||
|
||||
|
||||
A menor área está em altitude de `r min(Altitude_SL$De)` metros acima do nível do mar (ANM) com `r min(Altitude_SL$Ha)` hectares de área, ou seja, **`r min(Altitude_SL$Porcentagem)`** porcento da área total.
|
||||
A maior área está em altitude de `r max(Altitude_SL$De)` ANM, com `r max(Altitude_SL$Ha)`ha de área, ou seja, `r max(Altitude_SL$Porcentagem)` porcento da área total.
|
||||
|
||||
|
||||
No gráfico 1 apresenta os mesmos dados de altitude, mas de forma mais didática, e a representação permite visualiar que a maior parte das áreas está em altitude que variam de 1100 a 1175 metros.
|
||||
|
||||
```{r, echo=FALSE,message=FALSE}
|
||||
Grafico1 <-ggplot(Altitude_SL, aes(x=Alt_Menor, y=Porcentagem))+
|
||||
geom_col(col="red",fill="blue" )+
|
||||
theme_bw()+
|
||||
theme(axis.text = element_text(
|
||||
size=12,
|
||||
face=3)
|
||||
)+
|
||||
xlab("Altitude (m)")
|
||||
|
||||
Grafico1 +ggtitle("Gráfico 1: Distribuição das terras de acordo com a altitude, no Assentamento São Lourenço")
|
||||
|
||||
```
|
||||
|
||||
## Orientação do terreno
|
||||
|
||||
Os dados de orientação mostram para qual quadrante a área está inclinada. Serão usados os dados do arquivo raster de orientação, disponível no site TOPODATA, e recortado para a área do assentamento.
|
||||
|
||||
|
||||
```{r Orientaçao, include=FALSE, echo=FALSE}
|
||||
Orient_NEst <- read_delim("data/Orient_NEst.txt",
|
||||
"|", escape_double = FALSE, col_names = FALSE,
|
||||
trim_ws = TRUE, skip = 1)
|
||||
View(Orient_NEst)
|
||||
```
|
||||
|
||||
|
||||
```{r include=FALSE, echo=FALSE}
|
||||
|
||||
Orient_NEst<-Orient_NEst%>%
|
||||
filter(X3=="from to . . . . . . . . . . . . .")%>%
|
||||
select(X2,X4)%>%
|
||||
transmute(
|
||||
De_Ate=X2,
|
||||
Metro_Quad=X4,
|
||||
Ha=X4/10000,
|
||||
Porcentagem=X4/15163779*100,
|
||||
)%>%
|
||||
tidyr::separate(De_Ate, into=c("De","Até"), sep="-", remove="TRUE" )%>%
|
||||
mutate(
|
||||
Orient_Menor = as.numeric(De),
|
||||
Orient_Maior = as.numeric(Até)
|
||||
)%>%
|
||||
arrange(Orient_Menor)
|
||||
|
||||
```
|
||||
|
||||
|
||||
|
||||
|
||||
```{r kable_b_dados, echo=FALSE, include=TRUE}
|
||||
|
||||
kable(Orient_NEst[ ,6:4 ],
|
||||
format = "simple",
|
||||
digits = 1,
|
||||
padding = 2,
|
||||
caption = "1 - Quantidade de metros quadrados de área de cada orientação, no assentamento Sâo Lourenço")
|
||||
```
|
||||
|
||||
No gráfico 2 está rerpesentada a orientação das áreas de terras do assentamento, de acordo com a "Rosa dos vendos". A maior porcentagem de terras está voltada para o norte, com 16,6 % da área, seguido pela orientação nordeste e sudeste, com 15% cada, com menor porcentagem aparecem as orientações para o Sul (9.6%), Leste (8.4%) e Sudeste (7.7 %) da área.
|
||||
|
||||
```{r echo=FALSE, include=TRUE}
|
||||
|
||||
OrietNames<-c("N","NW","W","SW","S","SE", "E", "NE")
|
||||
OrientaHa<-Orient_NEst$Ha
|
||||
|
||||
radial.plot(OrientaHa,labels=OrietNames,rp.type="r",label.prop=1.1, main="Gráfico 2: Área (ha) conforme orientação, do assentamento São Lourenço",
|
||||
grid.unit="Ha",poly.col="green",radial.lim=c(0,250),show.grid.labels=1,
|
||||
line.col = "red", lwd=5, grid.col = "blue")
|
||||
|
||||
```
|
||||
|
||||
|
||||
|
||||
# Referências
|
||||
Binary file not shown.
|
|
@ -0,0 +1,416 @@
|
|||
---
|
||||
title: "ResumoExpandido"
|
||||
author: "Adenor Vicente Wendling"
|
||||
date: "16/09/2021"
|
||||
output:
|
||||
html_document: default
|
||||
word_document: default
|
||||
bibliography: Fruti.bib
|
||||
csl: abnt.csl
|
||||
always_allow_html: true
|
||||
---
|
||||
|
||||
```{r include=FALSE}
|
||||
library(dplyr)
|
||||
library(readr)
|
||||
library(kableExtra)
|
||||
library(ggplot2)
|
||||
library(plotrix)
|
||||
```
|
||||
|
||||
#Introdução
|
||||
Este documento rtem como finalidade avaliar a interação entre os resultados das análises de solo e aplicação anterior de calcário, e a coorelação entre pH e MO do solo analisado entre outras correlações.
|
||||
|
||||
|
||||
Esses dados serão utilizados no resumo expandido que será submetido ao XI Contextos e Conceitos.
|
||||
|
||||
O link para acesso é: <https://sageventos.com.br/contextoseconceitos>
|
||||
|
||||
O prazo é até dia 30/09.
|
||||
|
||||
|
||||
# Metodologia
|
||||
## Os dados
|
||||
Os dados são provenientes do projeto de extensão "Dagnóstico...." Foram coletadas 61 amostras, sendo a maioria associeados da APROPAL, e alguns outros interessados em desenvolver atividades agropecuárias e que foram contactados pelo líder Adelar.
|
||||
As coletas foram realizadas em no mínimo 10 pontos por amostras, em áreas consideradas homogêneas. Essas coletas foram misturadas, e uma quanitade de aproximadamente 200 gr foi enviada ao Laboratório de solos do IFPR para análise.
|
||||
As análises foram realizadas de acordo com (@PR2017).
|
||||
Além dos dados das análises químicas, cada amostra veio acompanhada de um questionário, onde constam os seguintes dados: nome do agricultor; data da coleta; safra da última aplicação de calcário, e localização geogràfica (nem de todos, ainda).
|
||||
|
||||
```{r include=FALSE}
|
||||
|
||||
ArqBase <- read_delim("data/Assent_Result_Solo.csv", delim = ",")
|
||||
|
||||
#View(ArqBase)
|
||||
#head(ArqBase)
|
||||
ArqBase$Ca<-as.numeric(ArqBase$Ca)
|
||||
|
||||
```
|
||||
|
||||
```{r}
|
||||
ArqBase%>%
|
||||
kable(format="simple",
|
||||
digits=1,
|
||||
padding = 2,
|
||||
caption = "Tabela 1 - Dados das amostras e resultados das análises químicas das amostras de solos do assentamento São Lourenço e Irati")
|
||||
|
||||
```
|
||||
|
||||
|
||||
# Estatística descritiva
|
||||
## pH
|
||||
```{r}
|
||||
summary(ArqBase$SatAl)
|
||||
,hist(ArqBase$SatAl)
|
||||
sd(ArqBase$SatAl)
|
||||
|
||||
```
|
||||
|
||||
|
||||
O pH médio das 61 análise é de 4,61, e a mediana é de 4,55.
|
||||
|
||||
## Classes de interpretação
|
||||
Para definir as classes de interpretação do pH, foi utilizado p (@PR2017), cujos dados constam no chunk pHClasses.
|
||||
```{r pHClasses}
|
||||
ArqBase1<-ArqBase %>% mutate(ClassepH = case_when(
|
||||
pH <4 ~ "Muito Baixo",
|
||||
pH <4.4 ~ "Baixo",
|
||||
pH <4.9 ~ "Médio",
|
||||
pH <5.5 ~ "Alto",
|
||||
pH <=6.0 ~ "Muito alto",
|
||||
pH >6 ~ "Condição a evitar"))
|
||||
|
||||
```
|
||||
|
||||
|
||||
```{r include=FALSE}
|
||||
pH_Classes<-ArqBase1%>%
|
||||
group_by(
|
||||
ClassepH
|
||||
)%>%
|
||||
summarise(
|
||||
"Amostras por Faixa"=n(),
|
||||
"pH Médio" = mean(pH),
|
||||
"pH Mediana"=median(pH)
|
||||
)
|
||||
|
||||
```
|
||||
|
||||
```{r}
|
||||
pH_Classes%>%
|
||||
kable(format="simple",
|
||||
digits=2,
|
||||
padding = 2,
|
||||
caption = "Tabela 2 - Classe de interpretação do solo, pH médio, mediana e número de amostras correspondentes")
|
||||
```
|
||||
|
||||
Das 61 análises, 44 estão na classe de interpretação médio, baixo ou muito baixo, ou seja, com pH menor que 4,9, e apenas 5 com pH acima de 6.
|
||||
|
||||
### Aplicação anterior de Calcário
|
||||
Uma das questões do formulário pedia para preencher sobre a aplicação anterior de calcário na área. Para isso, foram dadas 5 alternativas: "0 = Não sabe", "1 = na safra passada", "2 = entre 2 a 5 safras passadas", 5 = mais de 5 safras passadas", "0 = nunca".
|
||||
|
||||
|
||||
#### Média de pH por época de calagem
|
||||
```{r include=FALSE}
|
||||
pH_epoca_cal<-ArqBase%>%
|
||||
group_by(
|
||||
"Última Calagem"=FaixapH
|
||||
)%>%
|
||||
summarise(
|
||||
"Num amostras" = n(),
|
||||
"Média pH" = mean(pH),
|
||||
"Média V%"=mean(Sat_Base)*100,
|
||||
"Média CTCpH7"=mean(CTCpH7)
|
||||
)
|
||||
#head(pH_epoca_cal)
|
||||
```
|
||||
|
||||
|
||||
```{r}
|
||||
pH_epoca_cal %>%
|
||||
kbl( digits=2,
|
||||
padding = 2,
|
||||
caption = "Tabela 3 - pH, V%, CTCpH7 e numero de amostras de acordo com a época da última calagem nas amostras coletadas nos assentamentos São Lourenço e Margem do Iratir, Palmas, PR") %>%
|
||||
kable_classic(full_width = F, html_font = "Cambria")
|
||||
|
||||
```
|
||||
|
||||
|
||||
Das 61 amostras, 22 nunca receberam calcário, e apresentam pH médio de 4,53.
|
||||
As demais, que receberam calcário, e tem pH médio de 4,58
|
||||
|
||||
Parece que há um aumneto da saturação de base nos solos onde foi aplicado calcário na safra passada ou até 5 safras.
|
||||
|
||||
Já nos solos onde o calcário foi aplicado há mais de 5 safras, apresenta pH semelhante aquelas onde não foi aplicado calçario.
|
||||
|
||||
Isso já dá uma baita discussão.....
|
||||
|
||||
Vamos ver se tem relação com a necessidade de calagem.
|
||||
|
||||
Vou calcular a necessidade de calagem considerando o V% adequado de 80, pela fórmula
|
||||
|
||||
|
||||
$NC(t ha^{⁻1}) = \[(V2 - V1) * CTCph7]/ PRNT$
|
||||
|
||||
```{r}
|
||||
ArqBase1<-ArqBase1%>%
|
||||
mutate(NC=(0.8 - Sat_Base)*CTCpH7)
|
||||
|
||||
|
||||
NC_Calagem<-ArqBase1%>%
|
||||
group_by(
|
||||
pHCartesiano
|
||||
)%>%
|
||||
summarise(
|
||||
Média = mean(NC),
|
||||
Mediana=median(NC),
|
||||
Faixas = n()
|
||||
)
|
||||
#View(ArqBase)
|
||||
NC_Calagem
|
||||
|
||||
|
||||
|
||||
```
|
||||
|
||||
E aqui está a grande diferença.
|
||||
|
||||
Nas áreas/amostras onde foi aplicado calcário nos últimos 5 anos, a necessidade é de 12 a 13 t/ha.
|
||||
|
||||
Nas áreas onde não foi aplicado calcário, ou onde a aplicação foi há mais de 5 anos, a necessidade é de 17 a 18 t, ambos para atingir uma saturação de 80%
|
||||
|
||||
|
||||
|
||||
## Gŕafico da NC
|
||||
```{r }
|
||||
ggplot(ArqBase1, aes(y = NC, x =as.factor(FaixapH) )) +
|
||||
geom_boxplot()+
|
||||
labs(x= "Aplicação anterior de calcário", y= "Necessidade de Calcário (t ha-1)")
|
||||
|
||||
|
||||
ggplot(ArqBase1, aes(y = NC, x =Cultura_A )) +
|
||||
geom_boxplot()
|
||||
```
|
||||
|
||||
## Gráfico da Saturação de bases
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = Sat_Base, x =as.factor(FaixapH) )) +
|
||||
geom_boxplot()
|
||||
```
|
||||
|
||||
## Gráfico dos níveis de fósforo de acordo com a última aplicação de calcário
|
||||
Este gráfico, ou esses dados só tem valor, se acreditarmos que, ao aplicar calcário, também foi aplicado fósforo, já que ambos são recomendados para correção do solo.
|
||||
No entanto, nada impede que tenha sido aplicado fósforo em outra época, que não junto à aplicação do calcário.
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = Fosforo, x =as.factor(FaixapH) )) +
|
||||
geom_boxplot()
|
||||
```
|
||||
|
||||
No gráfico, com 10 outlayers altos, fica evidente que nestas áreas houve alguma adição de fósforo, elevando esse níveis.
|
||||
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = Fosforo, x =Cultura_A )) +
|
||||
geom_boxplot()
|
||||
```
|
||||
|
||||
|
||||
### Matéria Orgânica
|
||||
|
||||
```{r}
|
||||
summary(ArqBase1$MO)
|
||||
hist(ArqBase1$MO)
|
||||
```
|
||||
|
||||
A média geral de matéria organica no solo das amostra é de 8%, com variação de 0 a 18,7%.
|
||||
|
||||
|
||||
#### Classe de Interpretação de Matéria Orgânica
|
||||
|
||||
```{r}
|
||||
ArqBase1<-ArqBase1 %>% mutate(ClasseMO = case_when(
|
||||
MO <0.7 ~ "Muito Baixo",
|
||||
MO <1.49 ~ "Baixo",
|
||||
MO <2.49 ~ "Médio",
|
||||
MO <3.49 ~ "Alto",
|
||||
MO >3.5 ~ "Muito alto"))
|
||||
|
||||
MO_Classes<-ArqBase1%>%
|
||||
group_by(
|
||||
ClasseMO
|
||||
)%>%
|
||||
summarise(
|
||||
Media = mean(MO),
|
||||
Mediana=median(MO),
|
||||
n=n()
|
||||
)
|
||||
MO_Classes
|
||||
```
|
||||
|
||||
A maioria das amostras (53) apresentou Matéria orgânica Muito alta. Isso se deve ao fato de estarmos numa altitude superior a 1000 m, com baixa interperização da materia orgânica. Outro fator que pode contribuir para isso, é que essas áreas não são cultivadas há muito anos (não temos essa informação, apenas especulação)
|
||||
|
||||
## Gráfico do nível de Mo por classe (só para treinar gráficos)
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = MO, x =ClasseMO )) +
|
||||
geom_boxplot()
|
||||
```
|
||||
|
||||
## Gráfico de níveis de MO conforme cultura_A
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = MO, x =Cultura_A )) +
|
||||
geom_boxplot()
|
||||
```
|
||||
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = MO, x =Cultura_A )) +
|
||||
geom_point()
|
||||
```
|
||||
|
||||
### Fósforo
|
||||
```{r}
|
||||
summary(ArqBase1$Fosforo)
|
||||
hist(ArqBase1$Fosforo)
|
||||
```
|
||||
Observa-se no histograma, que há outleyers. Verifiquei na listagem, e observei que há duas análises com resultado = 0, e 5 com resultado acima de 78. Vou excluir esses para verificar os dados depois disso
|
||||
|
||||
```{r}
|
||||
fosforo<-ArqBase1%>%
|
||||
filter(Fosforo<78& Fosforo>0)
|
||||
|
||||
hist(fosforo$Fosforo)
|
||||
summary(fosforo$Fosforo)
|
||||
```
|
||||
|
||||
Depois de tirado os outlayers, temos média de 7 mg k-1 de Fósforo.
|
||||
|
||||
#### Classes de interpretação geral.
|
||||
Para as classes de interpretação do fósforo, o Manual do Paraná diferencia entre quantidade de argila e cultura.
|
||||
Em relação à argila, todas as amostras possuem mais de 50% de argila.
|
||||
Emr elação à cultura, serão apresentadas aqui a classificação para culturas em geral, e a classificação para olerícolas (estas duas categorias atendem ao que é cultivado pelos assentados).
|
||||
##### Classe de interpretação para culturas em geral
|
||||
```{r}
|
||||
ArqBase1<-ArqBase1 %>% mutate(ClasseP_Geral = case_when(
|
||||
Fosforo <3 ~ "Muito Baixo",
|
||||
Fosforo <6.99 ~ "Baixo",
|
||||
Fosforo <9.99 ~ "Médio",
|
||||
Fosforo <12 ~ "Alto",
|
||||
Fosforo <60 ~ "Muito alto",
|
||||
Fosforo > 60 ~"Condição a evitar"))
|
||||
|
||||
P_G_Classes<-ArqBase1%>%
|
||||
group_by(
|
||||
ClasseP_Geral
|
||||
)%>%
|
||||
summarise(
|
||||
Media = mean(Fosforo),
|
||||
Mediana=median(Fosforo),
|
||||
n=n()
|
||||
)
|
||||
P_G_Classes
|
||||
medioouMenor<-21+4+19
|
||||
AltoouMaior<-2+6+9
|
||||
```
|
||||
Para a categoria de culturas em geral, temos 44 amostras. As outras 17 amostras estão nas classes Alto, muito alto ou condição a evitar.
|
||||
|
||||
##### Classe de interpretação para olerícolas
|
||||
```{r}
|
||||
ArqBase1<-ArqBase1 %>% mutate(ClasseP_ole = case_when(
|
||||
Fosforo <8.0 ~ "Muito Baixo",
|
||||
Fosforo <20.99 ~ "Baixo",
|
||||
Fosforo <49.99 ~ "Médio",
|
||||
Fosforo <99.9 ~ "Alto",
|
||||
Fosforo <300 ~ "Muito alto",
|
||||
Fosforo < 1000 ~"Condição a evitar"))
|
||||
|
||||
P_ole_Classes<-ArqBase1%>%
|
||||
group_by(
|
||||
ClasseP_ole
|
||||
)%>%
|
||||
summarise(
|
||||
Media = mean(Fosforo),
|
||||
Mediana=median(Fosforo),
|
||||
n=n()
|
||||
)
|
||||
P_ole_Classes
|
||||
medioouMenor<-41+5+9
|
||||
AltoouMaior<-2+4
|
||||
```
|
||||
|
||||
No caso das classes do P pára olerícolas, temos 55 médias, baixas ou muito baixas, e apenas 2 na classe alto, e 4 na classe muito alto.
|
||||
|
||||
Lembro que foram nestes cálculos considera-se todas as amostras.
|
||||
|
||||
## Coreelações
|
||||
```{r}
|
||||
cor.test(ArqBase1$"MO",ArqBase$pH)
|
||||
|
||||
cor.test(ArqBase$Fosforo,ArqBase$pH)
|
||||
|
||||
```
|
||||
Não há correlação entre Materia orgânica e pH.
|
||||
|
||||
Não há correlação entre Fósforo e pH
|
||||
|
||||
# Estatística ANOVA
|
||||
```{r}
|
||||
AOV_pH <- aov( FaixapH~ pH, data = ArqBase1)
|
||||
coef(AOV_pH)
|
||||
summary(AOV_pH)
|
||||
```
|
||||
|
||||
```{r}
|
||||
AOV_CTC <- aov( FaixapH~ CTCefet, data = ArqBase1)
|
||||
coef(AOV_CTC)
|
||||
summary(AOV_CTC)
|
||||
```
|
||||
|
||||
```{r}
|
||||
AOV_Ncal <- aov( FaixapH~ NC, data = ArqBase1)
|
||||
coef(AOV_Ncal)
|
||||
summary(AOV_Ncal)
|
||||
```
|
||||
|
||||
|
||||
|
||||
|
||||
# Com ou sem calcário
|
||||
Para testar se a aplicação de calcário alterou o pH ou CTC, vou agrupar em dois grupos
|
||||
1 - área que recebeu calcário nos últimos anos
|
||||
2 - Anrea que não recebeu calcário
|
||||
|
||||
```{r pH_SimNao}
|
||||
ArqBase1<-ArqBase %>% mutate(pHCartesiano = case_when(
|
||||
FaixapH <=0 ~"sem calcário",
|
||||
FaixapH >0 ~ "com calcário"))
|
||||
|
||||
```
|
||||
|
||||
```{r}
|
||||
t.test( pH ~pHCartesiano, data=ArqBase1)
|
||||
|
||||
t.test(CTCpH7~ pHCartesiano, data=ArqBase1)
|
||||
|
||||
t.test(NC~ pHCartesiano, data=ArqBase1)
|
||||
|
||||
t.test(H_Al~ pHCartesiano, data=ArqBase1)
|
||||
|
||||
t.test(Sat_Base ~ pHCartesiano, data=ArqBase1)
|
||||
|
||||
t.test(SatAl ~ pHCartesiano, data=ArqBase1)
|
||||
|
||||
|
||||
```
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
```{r}
|
||||
ggplot(ArqBase1, aes(y = NC, x =pHCartesiano )) +
|
||||
geom_boxplot()+
|
||||
labs(x= "", y='Necessidade de Calcário (t/ha)')
|
||||
|
||||
labs(title =expression(Blah[1][d]))
|
||||
```
|
||||
|
||||
```
|
||||
|
||||
# Referências
|
||||
|
|
@ -0,0 +1,53 @@
|
|||
---
|
||||
title: "A Minimal Book Example"
|
||||
author: "Yihui Xie"
|
||||
date: "`r Sys.Date()`"
|
||||
site: bookdown::bookdown_site
|
||||
documentclass: book
|
||||
bibliography: [book.bib, packages.bib]
|
||||
biblio-style: apalike
|
||||
link-citations: yes
|
||||
description: "This is a minimal example of using
|
||||
the bookdown package to write a book."
|
||||
---
|
||||
---
|
||||
title: "A Minimal Book Example"
|
||||
author: "Yihui Xie"
|
||||
date: "`r Sys.Date()`"
|
||||
site: bookdown::bookdown_site
|
||||
documentclass: book
|
||||
bibliography: [book.bib, packages.bib]
|
||||
biblio-style: apalike
|
||||
link-citations: yes
|
||||
description: "This is a minimal example of using
|
||||
the bookdown package to write a book."
|
||||
---
|
||||
|
||||
<!--chapter:end:index.Rmd-->
|
||||
|
||||
|
||||
# 1 INTRODUÇÃO
|
||||
|
||||
Placeholder
|
||||
|
||||
|
||||
## 2.1 OBJETIVO GERAL
|
||||
## 2.2 OBJETIVOS ESPECÍFICOS
|
||||
## 5.1 – Coleta e análise do solo
|
||||
## 5.2 Análise dos dados
|
||||
|
||||
<!--chapter:end:RelatorioProjetoAssentamento.Rmd-->
|
||||
|
||||
---
|
||||
title: "Untitled"
|
||||
author: "Adenor Wendling"
|
||||
date: "22/11/2020"
|
||||
output: html_document
|
||||
bibliography: library.bib
|
||||
---
|
||||
# testando
|
||||
|
||||
Adenor [Wendling2016]
|
||||
|
||||
<!--chapter:end:teste1.Rmd-->
|
||||
|
||||
|
|
@ -0,0 +1,642 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<style xmlns="http://purl.org/net/xbiblio/csl" version="1.0" class="in-text" demote-non-dropping-particle="never" default-locale="pt-BR">
|
||||
<!--Em caso de sobrenome composto, este nao sera desmontado para a montagem da citacao ou bibliografia como no caso de L. Van Der Pijl-->
|
||||
<info>
|
||||
<title>Associação Brasileira de Normas Técnicas (Português - Brasil)</title>
|
||||
<title-short>ABNT</title-short>
|
||||
<id>http://www.zotero.org/styles/associacao-brasileira-de-normas-tecnicas</id>
|
||||
<link href="http://www.zotero.org/styles/associacao-brasileira-de-normas-tecnicas" rel="self"/>
|
||||
<link href="https://forums.zotero.org/discussion/22148/how-to-apply-disambiguation-in-citation-just-when-works-of-different-authors-are-in-the-same-year/?Focus=147094#Comment_147094" rel="documentation"/>
|
||||
<author>
|
||||
<name>Juliana Geyna Régis</name>
|
||||
<email>juliana.regis@ipea.gov.br</email>
|
||||
</author>
|
||||
<contributor>
|
||||
<name>Lucas Mation</name>
|
||||
<email>lucas.mation@ipea.gov.br</email>
|
||||
</contributor>
|
||||
<contributor>
|
||||
<name>Eduardo Michelotti Bettoni</name>
|
||||
<email>webtur@ufpr.br</email>
|
||||
</contributor>
|
||||
<contributor>
|
||||
<name>Paulo Augusto Nascimento</name>
|
||||
<email>paulo.nascimento@ipea.gov.br</email>
|
||||
</contributor>
|
||||
<contributor>
|
||||
<name>Iuri Gavronski</name>
|
||||
<email>iuri at ufrgs dot br</email>
|
||||
</contributor>
|
||||
<contributor>
|
||||
<name>José Antonio Meira da Rocha</name>
|
||||
<email>joseantoniorocha@gmail.com</email>
|
||||
<uri>http://meiradarocha.jor.br</uri>
|
||||
</contributor>
|
||||
<contributor>
|
||||
<name>Mario José</name>
|
||||
<email>gnumario [at-mark] gmail [dot-mark] com</email>
|
||||
</contributor>
|
||||
<category citation-format="author-date"/>
|
||||
<category field="generic-base"/>
|
||||
<summary>The Brazilian Standard Style in accordance with ABNT-NBR 10520.2002 and ABNT-NBR 6023.2002</summary>
|
||||
<updated>2021-06-13T18:06:23+00:00</updated>
|
||||
<rights license="http://creativecommons.org/licenses/by-sa/3.0/">This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License</rights>
|
||||
</info>
|
||||
<locale xml:lang="pt-BR">
|
||||
<terms>
|
||||
<!--Abreviacoes meses "Forma Curta"-->
|
||||
<term name="month-01" form="short">jan.</term>
|
||||
<term name="month-02" form="short">fev.</term>
|
||||
<term name="month-03" form="short">mar.</term>
|
||||
<term name="month-04" form="short">abr.</term>
|
||||
<term name="month-05" form="short">maio</term>
|
||||
<term name="month-06" form="short">jun.</term>
|
||||
<term name="month-07" form="short">jul.</term>
|
||||
<term name="month-08" form="short">ago.</term>
|
||||
<term name="month-09" form="short">set.</term>
|
||||
<term name="month-10" form="short">out.</term>
|
||||
<term name="month-11" form="short">nov.</term>
|
||||
<term name="month-12" form="short">dez.</term>
|
||||
<!--Os termos abaixo serao utilizados quando houverem nomes de editores. Apos a citacao dos nomes, eles irao aparecer entre parenteses.-->
|
||||
<term name="editor" form="short">
|
||||
<single>ed</single>
|
||||
<multiple>eds</multiple>
|
||||
</term>
|
||||
<term name="container-author" form="short">
|
||||
<single>ed</single>
|
||||
<multiple>eds</multiple>
|
||||
</term>
|
||||
<term name="collection-editor" form="short">
|
||||
<single>ed</single>
|
||||
<multiple>eds</multiple>
|
||||
</term>
|
||||
</terms>
|
||||
</locale>
|
||||
<!--A macro 'container-contribuitor' e responsavel por mostrar os nomes dos editores, serao apresentados SOBRENOME, INICIAIS PRENOMES
|
||||
tendo as inicias separadas por ponto.-->
|
||||
<macro name="container-contributors">
|
||||
<choose>
|
||||
<if type="chapter">
|
||||
<names variable="container-author" delimiter=", ">
|
||||
<name name-as-sort-order="all" sort-separator=", " initialize-with=". " delimiter="; " delimiter-precedes-last="always">
|
||||
<name-part name="family" text-case="uppercase"/>
|
||||
<name-part name="given" text-case="uppercase"/>
|
||||
</name>
|
||||
<label form="short" prefix=" (" suffix=".). " text-case="capitalize-first"/>
|
||||
<substitute>
|
||||
<names variable="editor"/>
|
||||
<names variable="collection-editor"/>
|
||||
</substitute>
|
||||
</names>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'secundary-contribuitor' e responsavel por mostrar os nomes dos organizadores, serao apresentados SOBRENOME, INICIAIS PRENOMES
|
||||
tendo as inicias separadas por ponto.-->
|
||||
<macro name="secondary-contributors">
|
||||
<choose>
|
||||
<if type="chapter" match="none">
|
||||
<names variable="editor" delimiter="; " prefix=" (" suffix=")">
|
||||
<name initialize-with=". " delimiter=", "/>
|
||||
<label form="short" prefix=", " text-case="capitalize-first" suffix="."/>
|
||||
</names>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'translator' e responsavel por mostrar os nomes dos tradutores, serao apresentados SOBRENOME, INICIAIS PRENOMES
|
||||
tendo as inicias separadas por ponto. -->
|
||||
<macro name="translator">
|
||||
<names variable="translator" delimiter="; ">
|
||||
<name delimiter="; " sort-separator=" " delimiter-precedes-last="always" prefix="Tradução: ">
|
||||
<name-part name="given" text-case="capitalize-first"/>
|
||||
<name-part name="family" text-case="capitalize-first"/>
|
||||
</name>
|
||||
</names>
|
||||
</macro>
|
||||
<!--A macro 'author' e responsavel por mostrar os nomes dos autores na bibliografia, serao no formato SOBRENOME, INICIAIS PRENOMES, tendo
|
||||
as inicias separadas por ponto. Quando houver mais de tres autores, somente o primeiro sera mostrado e no lugar dos outros
|
||||
aparecera a expess o 'et. al.'. Na regra da ABNT essa expressao deve aparecer em fonte normal-->
|
||||
<macro name="author">
|
||||
<names variable="author">
|
||||
<name name-as-sort-order="all" sort-separator=", " initialize-with=". " delimiter="; " delimiter-precedes-last="always">
|
||||
<name-part name="family" text-case="uppercase"/>
|
||||
<name-part name="given" text-case="uppercase"/>
|
||||
</name>
|
||||
<label form="short" prefix=" (" suffix=".)" text-case="uppercase"/>
|
||||
<substitute>
|
||||
<names variable="editor"/>
|
||||
<names variable="translator"/>
|
||||
<text macro="title"/>
|
||||
</substitute>
|
||||
</names>
|
||||
</macro>
|
||||
<!--A macro 'author-short' e responsavel por mostrar os nomes dos autores na citacao (no meio do texto). Nela aparecera apenas o ultimo nome
|
||||
do autor. Na regra da ABNT o sobrenome deve aparecer com todas as letras em caixa alta-->
|
||||
<macro name="author-short">
|
||||
<names variable="author">
|
||||
<name form="short" name-as-sort-order="all" sort-separator=", " initialize-with=". " delimiter="; " delimiter-precedes-last="never">
|
||||
<name-part name="family" text-case="uppercase"/>
|
||||
<name-part name="given" text-case="uppercase"/>
|
||||
</name>
|
||||
<substitute>
|
||||
<names variable="editor"/>
|
||||
<names variable="translator"/>
|
||||
<choose>
|
||||
<if type="book">
|
||||
<text variable="title" form="short"/>
|
||||
</if>
|
||||
<else>
|
||||
<text variable="title" form="short" quotes="true"/>
|
||||
</else>
|
||||
</choose>
|
||||
</substitute>
|
||||
</names>
|
||||
</macro>
|
||||
<!--A macro 'access' e utilizada em arquivos de paginas da web. Ela e responsavel por mostrar a URL do site pesquisado e a data do acesso-->
|
||||
<macro name="access">
|
||||
<text variable="URL" prefix="Disponível em: <" suffix=">"/>
|
||||
<date variable="accessed" prefix=". Acesso em: ">
|
||||
<date-part name="day" suffix=" "/>
|
||||
<date-part name="month" form="short" suffix=". " text-case="lowercase"/>
|
||||
<date-part name="year"/>
|
||||
</date>
|
||||
</macro>
|
||||
<!--A macro 'title' e responsavel por mostrar o titulo principal do arquivo. Em todos os tipos ele aparecera em negrito logo apos os nomes dos
|
||||
autores, exceto em arquivos do tipo 'artigo de jornal, artigo de revista, artigo de periodico', nesses arquivos eles irao aparecer em fonte normal.-->
|
||||
<macro name="title">
|
||||
<choose>
|
||||
<if type="chapter bill" match="any">
|
||||
<text variable="title"/>
|
||||
</if>
|
||||
<else-if type="book thesis" match="any">
|
||||
<text variable="title" font-weight="bold"/>
|
||||
</else-if>
|
||||
<else-if type="article-newspaper article-magazine article-journal" match="any">
|
||||
<text variable="title"/>
|
||||
</else-if>
|
||||
<else>
|
||||
<text variable="title" font-weight="bold"/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<!-- Titulo dos Anais-->
|
||||
<macro name="container-title">
|
||||
<choose>
|
||||
<if type="paper-conference" match="any">
|
||||
<text variable="container-title" suffix=". "/>
|
||||
<text value="Anais" font-weight="bold"/>
|
||||
<text value="..."/>
|
||||
</if>
|
||||
<else>
|
||||
<text variable="container-title" font-weight="bold"/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'publisher' e responsavel por mostrar o nome da editora responsavel pela publicacao-->
|
||||
<macro name="publisher">
|
||||
<choose>
|
||||
<if match="any" variable="publisher-place publisher">
|
||||
<choose>
|
||||
<if variable="publisher-place">
|
||||
<text variable="publisher-place" suffix=": "/>
|
||||
</if>
|
||||
<else-if type="entry-encyclopedia"/>
|
||||
<else>
|
||||
<text value="[s.l.] "/>
|
||||
</else>
|
||||
</choose>
|
||||
<choose>
|
||||
<if variable="publisher">
|
||||
<text variable="publisher" suffix=", "/>
|
||||
<text macro="issued"/>
|
||||
</if>
|
||||
<else>
|
||||
<text value="[s.n.]"/>
|
||||
</else>
|
||||
</choose>
|
||||
</if>
|
||||
<else>
|
||||
<text value="[s.l: s.n.]"/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'event' sera utilizada em arquivos do tipo Evento/Conferencia. Ela e responsavel por mostrar o nome da conferencia, que tera formatacao
|
||||
em caixa alta. Utiliza-se antes do nome da conferencia a expressao "In". Segundo a regra da ABNT ela deve ser em fonte normal-->
|
||||
<macro name="event">
|
||||
<choose>
|
||||
<if variable="event">
|
||||
<choose>
|
||||
<if variable="genre" match="none">
|
||||
<text term="in" text-case="capitalize-first" suffix=": "/>
|
||||
<text variable="event" text-case="uppercase"/>
|
||||
</if>
|
||||
<else>
|
||||
<group delimiter=" ">
|
||||
<text variable="genre" text-case="capitalize-first"/>
|
||||
<text term="presented at"/>
|
||||
<text variable="event"/>
|
||||
</group>
|
||||
</else>
|
||||
</choose>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'issued' e utilizada quando devemos mostrar a data completa exemplo: 03 mar. 2011.-->
|
||||
<macro name="issued">
|
||||
<choose>
|
||||
<if variable="issued" match="any">
|
||||
<group>
|
||||
<choose>
|
||||
<if type="book chapter" match="none">
|
||||
<date variable="issued">
|
||||
<date-part name="day" suffix=" "/>
|
||||
<date-part name="month" form="short" suffix=" "/>
|
||||
</date>
|
||||
</if>
|
||||
</choose>
|
||||
<date variable="issued">
|
||||
<date-part name="year"/>
|
||||
</date>
|
||||
</group>
|
||||
</if>
|
||||
<else>
|
||||
<text value="[s.d.]"/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'issued' e utilizada quando desejamos que apareca apenas o ano-->
|
||||
<macro name="issued-year">
|
||||
<choose>
|
||||
<if variable="issued" match="any">
|
||||
<date variable="issued">
|
||||
<date-part name="year"/>
|
||||
</date>
|
||||
</if>
|
||||
<else>
|
||||
<text value="[s.d.]"/>
|
||||
</else>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'edition' e responsavel por mostrar o numero da edicao.-->
|
||||
<macro name="edition">
|
||||
<choose>
|
||||
<!--Se for capitulo de livro aparecera somente o numero-->
|
||||
<if type="book chapter" match="any">
|
||||
<choose>
|
||||
<if is-numeric="edition">
|
||||
<group delimiter=" ">
|
||||
<number variable="edition" form="numeric" suffix="."/>
|
||||
<text term="edition" form="short" suffix="."/>
|
||||
</group>
|
||||
</if>
|
||||
<else>
|
||||
<!--Se for outro tipo de documento aparera o numero e depois a descricao "ed."-->
|
||||
<text variable="edition" suffix=" ed."/>
|
||||
</else>
|
||||
</choose>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<!--A macro 'locators'tem como funcao mostrar os dados complementares do arquivo (paginas, secao, volume, etc)-->
|
||||
<macro name="locators">
|
||||
<choose>
|
||||
<!--Se for projeto de lei mostrara o dia, mes "forma curta", ano, secao "Sec." e pagina "p."-->
|
||||
<if type="bill">
|
||||
<group prefix=". " delimiter=", ">
|
||||
<date variable="issued">
|
||||
<date-part name="day"/>
|
||||
<date-part prefix=" " name="month" form="short"/>
|
||||
<date-part prefix=" " name="year"/>
|
||||
</date>
|
||||
<text variable="section" prefix="Sec. "/>
|
||||
<text variable="page" prefix="p. " suffix="."/>
|
||||
</group>
|
||||
</if>
|
||||
<!--Se for artigos de jornal, revista, etc. Aparecera o volume "v.", edicao "n." e a pagina do artigo "p."-->
|
||||
<else-if match="any" type="article-journal article-magazine article-newspaper">
|
||||
<group delimiter=", ">
|
||||
<group delimiter=", ">
|
||||
<text variable="volume" prefix="v. "/>
|
||||
<text variable="issue" prefix="n. "/>
|
||||
</group>
|
||||
<text variable="page" prefix="p. "/>
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Se for capitulo de livro aparecera o volume "v." e a pagina "p."-->
|
||||
<else-if match="any" type="book chapter">
|
||||
<group delimiter=", ">
|
||||
<group>
|
||||
<text variable="volume" prefix="v. "/>
|
||||
<text variable="page" prefix="p. "/>
|
||||
</group>
|
||||
</group>
|
||||
</else-if>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="collection-title">
|
||||
<text variable="collection-title"/>
|
||||
<text variable="collection-number" prefix=" "/>
|
||||
</macro>
|
||||
<macro name="genre">
|
||||
<text variable="genre"/>
|
||||
</macro>
|
||||
<macro name="citation-locator">
|
||||
<group>
|
||||
<label variable="locator" form="short"/>
|
||||
<text variable="locator" prefix=" "/>
|
||||
</group>
|
||||
</macro>
|
||||
<macro name="place">
|
||||
<choose>
|
||||
<if match="any" variable="publisher-place">
|
||||
<text variable="publisher-place"/>
|
||||
</if>
|
||||
</choose>
|
||||
</macro>
|
||||
<macro name="archive">
|
||||
<group>
|
||||
<text variable="archive" prefix=" "/>
|
||||
</group>
|
||||
</macro>
|
||||
<!--Citacao-->
|
||||
<!--et al. aparece a partir de 04 autores-->
|
||||
<citation et-al-min="4" et-al-use-first="1" collapse="year" disambiguate-add-year-suffix="true">
|
||||
<sort>
|
||||
<key macro="author"/>
|
||||
<!--Puxa o autor primeiro-->
|
||||
<key variable="issued"/>
|
||||
<!--Depois o ano-->
|
||||
</sort>
|
||||
<layout prefix="(" suffix=")" delimiter="; ">
|
||||
<!--Entre parenteses separando os autores com ponto-e-virgula-->
|
||||
<group>
|
||||
<text suffix=", " macro="author-short"/>
|
||||
<!--Seperando os autores das datas usando virgula-->
|
||||
<text macro="issued-year"/>
|
||||
<text prefix=", " macro="citation-locator"/>
|
||||
</group>
|
||||
</layout>
|
||||
</citation>
|
||||
<!--Bibliografia-->
|
||||
<!--et al. aparece a partir de 04 autores-->
|
||||
<bibliography hanging-indent="false" et-al-min="4" et-al-use-first="1" entry-spacing="1">
|
||||
<sort>
|
||||
<key macro="author"/>
|
||||
<!--Puxa o autor primeiro-->
|
||||
<key variable="issued"/>
|
||||
<!--Depois o ano-->
|
||||
</sort>
|
||||
<layout>
|
||||
<choose>
|
||||
<!--Projeto de lei-->
|
||||
<if type="bill">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--autor-->
|
||||
<text variable="number" suffix=". "/>
|
||||
<!--Numero da lei-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text variable="references" font-weight="bold"/>
|
||||
<!--Historico em negrito-->
|
||||
<text variable="note"/>
|
||||
<!--Campo 'extra' caso queira colocar alguma observacao-->
|
||||
<text macro="locators" suffix=". "/>
|
||||
<!--Dados complementares "secao, pagina"-->
|
||||
</group>
|
||||
</if>
|
||||
<!--Mapa-->
|
||||
<else-if type="map">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--autor-->
|
||||
<text macro="title" suffix=", "/>
|
||||
<!--Titulo-->
|
||||
<text macro="issued" suffix=". "/>
|
||||
<!--data-->
|
||||
<text variable="note" suffix=". "/>
|
||||
<!--Campo 'extra' caso queira colocar alguma observacao-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Livro-->
|
||||
<else-if type="book">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text macro="translator" suffix=". "/>
|
||||
<!--Traducao-->
|
||||
<text macro="edition" suffix=". "/>
|
||||
<!--Edicao-->
|
||||
<text macro="publisher" suffix=". "/>
|
||||
<!--Local, data, etc-->
|
||||
<text macro="locators"/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Conferencia-->
|
||||
<else-if type="chapter">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text macro="secondary-contributors" suffix=". "/>
|
||||
<text term="in" text-case="capitalize-first" suffix=": "/>
|
||||
<!--In:-->
|
||||
<text macro="container-contributors" suffix=". "/>
|
||||
<!--Nomes de editores-->
|
||||
<text macro="container-title" suffix=". "/>
|
||||
<!--Titulo da conferencia-->
|
||||
<text variable="collection-title" suffix=". "/>
|
||||
<text macro="translator" suffix=". "/>
|
||||
<!--Traducao-->
|
||||
<text macro="edition" suffix=". "/>
|
||||
<!--Edicao-->
|
||||
<text macro="publisher" suffix=". "/>
|
||||
<!--Local, data, etc-->
|
||||
<text macro="locators" suffix=". "/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Artigo de revista, jornal, etc-->
|
||||
<else-if type="article-newspaper article-magazine article-journal" match="any">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo do artigo-->
|
||||
<text macro="container-title" suffix=", "/>
|
||||
<!--Titulo da publicacao-->
|
||||
<text variable="collection-title" suffix=". "/>
|
||||
<!--Titulo da serie-->
|
||||
<text macro="edition" suffix=", "/>
|
||||
<!--Edicao-->
|
||||
<text macro="locators" suffix=", "/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
<text macro="issued" suffix=". "/>
|
||||
<!--Data-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Tese-->
|
||||
<else-if type="thesis">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text macro="genre" suffix="—"/>
|
||||
<!--Tipo-->
|
||||
<text macro="publisher" suffix="."/>
|
||||
<!--Local, data, etc-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!-- Nao ha norma ABNT para manuscritos -->
|
||||
<else-if type="manuscript">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text macro="edition" suffix=". "/>
|
||||
<!--Edicao-->
|
||||
<text macro="place" suffix=", "/>
|
||||
<text macro="issued" suffix=". "/>
|
||||
<!--Data-->
|
||||
<text macro="access" suffix=". "/>
|
||||
<!--URL, data do acesso-->
|
||||
<text macro="archive" suffix=". "/>
|
||||
<!--Arquive-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Pagina da WEB-->
|
||||
<else-if type="webpage">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text macro="genre" suffix=". "/>
|
||||
<text macro="access" suffix=". "/>
|
||||
<!--URL, data do acesso-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Relatorio-->
|
||||
<else-if type="report">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title"/>
|
||||
<!--Titulo-->
|
||||
<text macro="container-contributors"/>
|
||||
<!--Nomes de editores-->
|
||||
<text macro="secondary-contributors"/>
|
||||
<text macro="container-title"/>
|
||||
<!--Titulo da publicacao-->
|
||||
<text variable="collection-title" prefix=": "/>
|
||||
<text macro="locators"/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
<text macro="event"/>
|
||||
<!--Nome do evento, conferencia-->
|
||||
<text macro="publisher" prefix=". " suffix=". "/>
|
||||
<!--Local, data, etc-->
|
||||
<text macro="access" suffix="."/>
|
||||
<!--URL, data do acesso-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Texto para Discussao (Verbete de Dicionario)-->
|
||||
<else-if type="entry-dictionary">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title"/>
|
||||
<!--Titulo-->
|
||||
<text macro="container-contributors"/>
|
||||
<!--Nomes de editores-->
|
||||
<text macro="secondary-contributors"/>
|
||||
<text macro="container-title"/>
|
||||
<!--Titulo da publicacao-->
|
||||
<text variable="collection-title" prefix=": " suffix=". "/>
|
||||
<text macro="locators"/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
<text macro="event"/>
|
||||
<!--Nome do evento, conferencia-->
|
||||
<text macro="publisher" prefix=". " suffix=". "/>
|
||||
<!--Local, data, etc-->
|
||||
<text macro="collection-title" prefix="(Texto para discussao, n. " suffix=")."/>
|
||||
<text macro="access"/>
|
||||
<!--URL, data do acesso-->
|
||||
</group>
|
||||
</else-if>
|
||||
<!--Nota Tecnica (Verbete de Enciclopedia)-->
|
||||
<else-if type="entry-encyclopedia">
|
||||
<group>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title"/>
|
||||
<!--Titulo-->
|
||||
<text variable="publisher-place" prefix=". " suffix=": "/>
|
||||
<!--Local-->
|
||||
<text variable="publisher" suffix=", "/>
|
||||
<!--Editor-->
|
||||
<text macro="issued" prefix=", " suffix=". (Nota técnica)."/>
|
||||
<!--Data-->
|
||||
</group>
|
||||
</else-if>
|
||||
<else-if type="paper-conference">
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title" suffix=". "/>
|
||||
<!--Titulo-->
|
||||
<text macro="container-contributors"/>
|
||||
<!--Nomes de editore-->
|
||||
<text macro="secondary-contributors"/>
|
||||
<text macro="container-title"/>
|
||||
<!--Titulo da publicacao-->
|
||||
<text variable="collection-title" prefix=": " suffix="."/>
|
||||
<text macro="locators"/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
<group delimiter=". " prefix=". " suffix=". ">
|
||||
<text macro="event"/>
|
||||
<!--Nome do evento, conferencia-->
|
||||
</group>
|
||||
<text variable="publisher-place" suffix=": "/>
|
||||
<!--Local-->
|
||||
<text variable="publisher" suffix=", "/>
|
||||
<!--Editor-->
|
||||
<text macro="issued" suffix=". "/>
|
||||
<!--Data-->
|
||||
<text macro="access"/>
|
||||
<!--URL, data do acesso-->
|
||||
</else-if>
|
||||
<else>
|
||||
<text macro="author" suffix=". "/>
|
||||
<!--Autor-->
|
||||
<text macro="title"/>
|
||||
<!--Titulo-->
|
||||
<text macro="container-contributors"/>
|
||||
<!--Nomes de editore-->
|
||||
<text macro="secondary-contributors"/>
|
||||
<text macro="container-title"/>
|
||||
<!--Titulo da publicacao-->
|
||||
<text variable="collection-title" prefix=": " suffix="."/>
|
||||
<text macro="locators"/>
|
||||
<!--Dados complementares "pagina, volume"-->
|
||||
<group delimiter=". " prefix=". " suffix=". ">
|
||||
<text macro="event"/>
|
||||
<!--Nome do evento, conferencia-->
|
||||
</group>
|
||||
<text variable="publisher-place"/>
|
||||
<!--Local-->
|
||||
<text variable="publisher" suffix=", "/>
|
||||
<!--Editor-->
|
||||
<text macro="issued" prefix=", " suffix=". "/>
|
||||
<!--Data-->
|
||||
<text macro="access"/>
|
||||
<!--URL, data do acesso-->
|
||||
</else>
|
||||
</choose>
|
||||
</layout>
|
||||
</bibliography>
|
||||
</style>
|
||||
Loading…
Reference in New Issue