exclude STATSGO

ncss-tech · Sep 26, 2023 · c002a60 · c002a60
1 parent febd3d0
commit c002a60
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/invesintens-SSURGO.R b/invesintens-SSURGO.R
@@ -4,7 +4,7 @@ library(soilDB)
 # total number of map units
 SDA_query("SELECT COUNT(mukey) as n FROM mapunit")
 
-
+# exclude STATSGO
 .sql <- "
 SELECT CASE WHEN invesintens IS NULL THEN 'missing' ELSE invesintens END, 
 CAST(
@@ -14,6 +14,8 @@ CAST(
   AS numeric
 ) / (SELECT COUNT(mukey) FROM mapunit) AS prop
 FROM mapunit
+INNER JOIN legend ON mapunit.lkey = legend.lkey
+WHERE areasymbol != 'US'
 GROUP BY invesintens 
 ORDER BY prop DESC ;"