[Soiltexture-commits] r61 - pkg/soiltexture pkg/soiltexture/R pkg/soiltexture/inst/doc pkg/soiltexture/man pkg/soiltexture/tests www
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Nov 15 10:20:38 CET 2011
Author: jmoeys
Date: 2011-11-15 10:20:38 +0100 (Tue, 15 Nov 2011)
New Revision: 61
Modified:
pkg/soiltexture/DESCRIPTION
pkg/soiltexture/R/soiltexture.R
pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw
pkg/soiltexture/inst/doc/soiltexture_vignette.bib
pkg/soiltexture/man/TT.plot.Rd
pkg/soiltexture/tests/TT.plot.R
www/index.html
Log:
Added German TGL 85 texture triangle (+ minor changes)
Modified: pkg/soiltexture/DESCRIPTION
===================================================================
--- pkg/soiltexture/DESCRIPTION 2011-11-12 10:20:00 UTC (rev 60)
+++ pkg/soiltexture/DESCRIPTION 2011-11-15 09:20:38 UTC (rev 61)
@@ -1,5 +1,5 @@
Package: soiltexture
-Version: 1.2.5
+Version: 1.2.6
Date: 2011-11-09
Title: Functions for soil texture plot, classification and transformation
Author: Julien MOEYS <jules_m78-soiltexture at yahoo.fr>, contributions from Wei Shangguan.
@@ -14,7 +14,7 @@
using soil textures data from different soil texture classification or different particle
size systems. Several texture triangles are predefined: USDA; FAO (which is also the
triangle for the soil map of Europe); Aisne (France); GEPPA (France); German triangles
- "Bodenkundliche Kartieranleitung 1994" and "Standortserkundungsanweisung SEA 1974"; Soil
+ "Bodenkundliche Kartieranleitung 1994", "SEA 1974" and "TGL 1985"; Soil
Survey of England and Wales; Australian triangle; Belgian triangle; Canadian triangle;
ISSS triangle; Romanian triangle; Polish triangle.
License: AGPL (>=3)
Modified: pkg/soiltexture/R/soiltexture.R
===================================================================
--- pkg/soiltexture/R/soiltexture.R 2011-11-12 10:20:00 UTC (rev 60)
+++ pkg/soiltexture/R/soiltexture.R 2011-11-15 09:20:38 UTC (rev 61)
@@ -1090,7 +1090,7 @@
# by Rosca Bogdan, Romanian Academy
# Iasi Branch, Geography team
#
- main = "SRTS 2003",
+ main = "SRTS 2003",
#
# The list below specify the CSS coordinates of the different POINTS
# that are used to draw soil texture classes. One points can be
@@ -1147,7 +1147,7 @@
text.sum = 100
), #
#
- DE.SEA74.TT = list( # GDR Forest soils TRIANGLE PARAMETERS :
+ "DE.SEA74.TT" = list( # GDR Forest soils TRIANGLE PARAMETERS :
#
main = "Standortserkundungsanweisung SEA 1974 (DE)",
#
@@ -1199,6 +1199,61 @@
unit.tx = quote(bold('%')),
#
text.sum = 100
+ ), #
+ #
+ "DE.TGL85.TT" = list( # GDR Arable soils TRIANGLE PARAMETERS :
+ #
+ main = "TGL 24300-05, landwirtschaftliche Böden (DE)",
+ #
+ # The list below specify the CSS coordinates of the different POINTS
+ # that are used to draw soil texture classes. One points can be
+ # used by several classes. Definitions follow the GDR Standard for arable soils
+ # (TGL 24300-05:1985-06; Aufnahme landwirtschaftlich genutzter Standorte):
+ # P01 P02 P03 P04 P05 P06 P07 P08 P09 P10 P11 P12 P13
+ # P14 P15 P16 P17 P18 P19 P20 P21 P22 P23 P24 P25 P26
+ "tt.points" = data.frame(
+ "CLAY" = c( 1.000, 0.500, 0.500, 0.500, 0.300, 0.300, 0.300, 0.300, 0.180, 0.180, 0.180, 0.080, 0.080,
+ 0.000, 0.000, 0.140, 0.110, 0.080, 0.050, 0.000, 0.000, 0.000, 0.050, 0.085, 0.000, 0.050),
+ "SILT" = c( 0.000, 0.500, 0.300, 0.000, 0.700, 0.500, 0.200, 0.000, 0.820, 0.500, 0.000, 0.920, 0.720,
+ 0.800, 1.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.150, 0.300, 0.300, 0.300, 0.500, 0.500),
+ "SAND" = c( 0.000, 0.000, 0.200, 0.500, 0.000, 0.200, 0.500, 0.700, 0.000, 0.320, 0.820, 0.000, 0.200,
+ 0.200, 0.000, 0.860, 0.890, 0.920, 0.950, 1.000, 0.850, 0.700, 0.650, 0.615, 0.500, 0.450)
+ ), #
+ #
+ # Abreviations; Names of the texture cl; Points marking the class limits (points specified above)
+ "tt.polygons" = list(
+ "rS" = list( "name" = "reiner Sand", "points" = c(19, 20, 21 ) ),
+ "l''S" = list( "name" = "sehr schwach lehmiger Sand", "points" = c(18, 19, 21, 22 ) ),
+ "l'S" = list( "name" = "schwach lehmiger Sand", "points" = c(17, 18, 22, 23 ) ),
+ #"lS" = list( "name" = "stark lehmiger Sand", "points" = c(17, 18, 20, 16 ) ),
+ "lS" = list( "name" = "stark lehmiger Sand", "points" = c(16, 17, 23, 24 ) ),
+ "uS" = list( "name" = "schluffiger Sand", "points" = c(24, 23, 22, 25, 26 ) ),
+ "U" = list( "name" = "Schluff", "points" = c(13, 14, 15, 12 ) ),
+ "lU" = list( "name" = "lehmiger Schluff", "points" = c(10, 26, 25, 14, 13, 12, 09 ) ),
+ "sL" = list( "name" = "sandiger Lehm", "points" = c(11, 16, 24, 26, 10 ) ),
+ "L" = list( "name" = "Lehm", "points" = c(08, 11, 10, 06, 07 ) ),
+ "UL" = list( "name" = "Schlufflehm", "points" = c(06, 10, 09, 05 ) ),
+ "uT" = list( "name" = "schluffiger Ton", "points" = c(03, 06, 05, 02 ) ),
+ "lT" = list( "name" = "lehmiger Ton", "points" = c(04, 07, 06, 03 ) ),
+ "sT" = list( "name" = "sandiger Ton", "points" = c(04, 08, 07 ) ),
+ "T" = list( "name" = "Ton", "points" = c(01, 04, 03, 02 ) )
+ #
+ ), #
+ #
+ # Triangle specific parameters for triangle geometry / appearance
+ # See general parameters above for detailed description of them
+ blr.clock = c(F,T,NA),
+ tlr.an = c(45,90,45),
+ #
+ blr.tx = c("CLAY","SILT","SAND"),
+ #
+ base.css.ps.lim = c(0,2,63,2000),
+ tri.css.ps.lim = c(0,2,63,2000),
+ #
+ unit.ps = quote(bold(mu) * bold('m')),
+ unit.tx = quote(bold('%')),
+ #
+ text.sum = 100
) #
#
# +-------------------------------------------------------------------------+
Modified: pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw
===================================================================
--- pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw 2011-11-12 10:20:00 UTC (rev 60)
+++ pkg/soiltexture/inst/doc/soiltexture_vignette.Rnw 2011-11-15 09:20:38 UTC (rev 61)
@@ -1004,7 +1004,7 @@
soil texture classification for forest soils}
To display a German 'Standortserkundungsanweisung' (SEA 1974)
-texture triangle for forest soils, type:
+texture triangle for forest soils\cite{SEA1974}, type:
@@ -1037,7 +1037,7 @@
Many thanks to Rainer Petzold (Staatsbetrieb Sachsenforst) for
-providing the code of the SEA 1974 triangle.
+providing the code of this triangle.
The original isosceles version of the triangle can be obtained by typing:
@@ -1057,6 +1057,63 @@
% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
+\subsection{The German 'landwirtschaftliche Böden' (TGL 24300-05, 1985) %
+ soil texture classification for arable soils}
+
+To display a German TGL 1985 texture triangle for arable soils\cite{TGL1985},
+type:
+
+
+
+<<echo=TRUE,fig=TRUE,include=TRUE>>=
+TT.plot( class.sys = "DE.TGL85.TT" )
+@
+
+
+
+<<echo=FALSE,results=hide,quiet=TRUE>>=
+plLim <- TT.get("DE.TGL85.TT")[["base.css.ps.lim"]][3]
+@
+
+The TGL 1985 soil texture classification has been built
+considering a silt - sand limit of
+\Sexpr{plLim}$\mu$meters.\\
+
+
+See the table for soil texture classes symbols:
+
+
+<<echo=FALSE,results=tex>>=
+tex.tbl <- TT.classes.tbl( class.sys = "DE.TGL85.TT" )
+xtable(
+ x = tex.tbl[,-3], #
+ caption = "Texture classes of the German TGL 1985 system / triangle",
+ label = NULL
+) #
+@
+
+
+Many thanks to Rainer Petzold (Staatsbetrieb Sachsenforst) for
+providing the code of this triangle.
+
+
+The original isosceles version of the triangle can be obtained by typing:
+
+
+<<echo=TRUE,fig=TRUE,include=TRUE>>=
+TT.plot(
+ class.sys = "DE.TGL85.TT",
+ blr.clock = rep(T,3),
+ tlr.an = rep(60,3),
+ blr.tx = c("SAND","CLAY","SILT"),
+) #
+@
+
+\clearpage % otherwise the table may 'eats' next triangle
+
+
+
+% +~~~~~~~~~~~~~~~~~~~~~~~~~~~~+
\subsection{UK Soil Survey of England and Wales texture
classification}
Modified: pkg/soiltexture/inst/doc/soiltexture_vignette.bib
===================================================================
--- pkg/soiltexture/inst/doc/soiltexture_vignette.bib 2011-11-12 10:20:00 UTC (rev 60)
+++ pkg/soiltexture/inst/doc/soiltexture_vignette.bib 2011-11-15 09:20:38 UTC (rev 61)
@@ -398,3 +398,24 @@
timestamp = {2010.06.07}
}
+ at TECHREPORT{SEA1974,
+ author = {{VEB FORSTPROJEKTIERUNG POTSDAM}},
+ title = {Standortserkundungsanweisung SEA74 - A/B},
+ institution = {VEB FORSTPROJEKTIERUNG POTSDAM},
+ year = {1974},
+ month = {},
+ note = {},
+ timestamp = {2011.11.15}
+}
+
+ at TECHREPORT{TGL1985,
+ author = {{TGL 24300-05_1985-06}},
+ title = {Aufnahme landwirtschaftlich genutzter Standorte - K\"{o}rnungsarten und Skelettgehalt},
+ institution = {Bauhaus-Universität, Weimar},
+ year = {1985},
+ month = {},
+ note = {},
+ timestamp = {2011.11.15}
+}
+
+
Modified: pkg/soiltexture/man/TT.plot.Rd
===================================================================
--- pkg/soiltexture/man/TT.plot.Rd 2011-11-12 10:20:00 UTC (rev 60)
+++ pkg/soiltexture/man/TT.plot.Rd 2011-11-15 09:20:38 UTC (rev 61)
@@ -417,7 +417,11 @@
TT.plot( class.sys = "AU.TT" ) # Australian
TT.plot( class.sys = "ISSS.TT" ) # ISSS
TT.plot( class.sys = "ROM.TT" ) # Romanian
+TT.plot( class.sys = "PL.TT" ) # Polish
+TT.plot( class.sys = "DE.SEA74.TT" ) # German SEA 1974
+TT.plot( class.sys = "DE.TGL85.TT" ) # German TGL 1985
+
# ::: Test all the languages:
TT.plot( class.sys = "USDA.TT", lang = "en" ) # English, default
@@ -428,4 +432,5 @@
TT.plot( class.sys = "USDA.TT", lang = "nl" ) # Dutch
TT.plot( class.sys = "USDA.TT", lang = "fl" ) # Dutch (Belgian) / Flemmish
TT.plot( class.sys = "USDA.TT", lang = "se" ) # Swedish
-TT.plot( class.sys = "USDA.TT", lang = "ro" ) # Romanian }
+TT.plot( class.sys = "USDA.TT", lang = "ro" ) # Romanian
+TT.plot( class.sys = "USDA.TT", lang = "pl" ) # Polish }
Modified: pkg/soiltexture/tests/TT.plot.R
===================================================================
--- pkg/soiltexture/tests/TT.plot.R 2011-11-12 10:20:00 UTC (rev 60)
+++ pkg/soiltexture/tests/TT.plot.R 2011-11-15 09:20:38 UTC (rev 61)
@@ -67,7 +67,11 @@
TT.plot( class.sys = "AU.TT" ) # Australian
TT.plot( class.sys = "ISSS.TT" ) # ISSS
TT.plot( class.sys = "ROM.TT" ) # Romanian
+TT.plot( class.sys = "PL.TT" ) # Polish
+TT.plot( class.sys = "DE.SEA74.TT" ) # German SEA 1974
+TT.plot( class.sys = "DE.TGL85.TT" ) # German TGL 1985
+
# ::: Test all the languages:
TT.plot( class.sys = "USDA.TT", lang = "en" ) # English, default
@@ -79,3 +83,5 @@
TT.plot( class.sys = "USDA.TT", lang = "fl" ) # Dutch (Belgian) / Flemmish
TT.plot( class.sys = "USDA.TT", lang = "se" ) # Swedish
TT.plot( class.sys = "USDA.TT", lang = "ro" ) # Romanian
+TT.plot( class.sys = "USDA.TT", lang = "pl" ) # Polish
+
Modified: www/index.html
===================================================================
--- www/index.html 2011-11-12 10:20:00 UTC (rev 60)
+++ www/index.html 2011-11-15 09:20:38 UTC (rev 61)
@@ -88,7 +88,7 @@
<ul>
<li><strong class="spip">Create</strong> clear, readable <strong class="spip">soil texture triangles graphics</strong> (also called <a href="http://en.wikipedia.org/wiki/Ternary_plot" class="spip_out">ternary
plots</a> or soil texture diagrams), with proper axis labels, either
-"neutral", or with one of the <span style="font-weight: bold;">13</span><strong class="spip"> soil texture
+"neutral", or with one of the <span style="font-weight: bold;">14</span><strong class="spip"> soil texture
classification systems actually pre-defined</strong>:
</li>
</ul>
@@ -101,7 +101,7 @@
</li>
<li>GEPPA (France); <br>
</li>
-<li>German triangle (Bodenkundliche Kartieranleitung 1994); <br></li><li>German triangle (Standortserkundungsanweisung SEA 1974) for forest soils (<font color="#ff3333">new 2011/10/11</font>);<br></li>
+<li>German triangle (Bodenkundliche Kartieranleitung 1994); <br></li><li>German triangle (Standortserkundungsanweisung SEA 1974) for forest soils (<font color="#ff3333">new 2011/10/11</font>);</li><li>German triangle (TGL 24300-05, landwirtschaftliche Böden, 1985) for arable soils (<font color="#ff3333">new 2011/10/15</font>);</li>
<li>Soil Survey of England and Wales (UK); <br>
</li>
<li>Australian triangle; <br>
@@ -112,13 +112,13 @@
</li>
<li>ISSS triangle (<font color="#ff3333">new 2010/05/13</font>); <br></li>
<li>Romanian texture triangle (<span style="color: red;">new
-2010-06-09</span>);</li><li>Polish triangle (Systematyka gleb Polski, 1989, for non-alluvial soils).</li>
+2010-06-09</span>);</li><li>Polish triangle (Systematyka gleb Polski, 1989, for non-alluvial soils -- <font color="#ff3333">new</font>).</li>
</ul>
<p style="margin-left: 40px;" class="spip">Many thanks to Wei
Shangguan, from the School of geography of Beijing normal
university for providing the code of ISSS the triangle, to Rosca
Bogdan (from Romanian Academy, Iasi Branch, Geography team) for
-providing the code for the Romanian triangle, to Wiktor Zelazny for providing the code for the Polish triangle (and the polish language translation of triangle labels) and to Rainer Petzold (Staatsbetrieb Sachsenforst) for providing the code of the German SEA 1974 triangle.<br>
+providing the code for the Romanian triangle, to Wiktor Zelazny for providing the code for the Polish triangle (and the polish language translation of triangle labels) and to Rainer Petzold (Staatsbetrieb Sachsenforst) for providing the code of the German SEA 1974 and TGL 1985 triangles.<br>
</p>
<ul>
<li><strong class="spip">Implement new texture triangles or create
More information about the Soiltexture-commits
mailing list