Appendix.qmd

---
output: html_document
editor_options: 
  chunk_output_type: console
---

# Appendix {#sec-appendix}

The system for designating the soils consists of letters only. This method has been adopted to make for easier insertion of new subgroups, and to make the codes easier to remember.

The following is a list of how each code letter has been used in the soil classification, the level at which it has been used, and the meanings.

```{r}
library(gt)

table_A1_dat <- data.frame('Code' = LETTERS,
                         'Order' = c('Anthropic', 'Brown', '', '', 'Melanic', '', 'Gley',
                         '', '', '', '', 'Allophanic', 'Pumice', 'Granular', 'Organic', 'Pallic',
                         '', 'Recent', 'Semiarid', '', 'Ultic', '', 'Raw', 'Oxidic', '', 'Podzol'),
                         'Group' = c('Acid, Aged', 'Brown', '', 'Densipan', 'Melanic, Albic',
                                     'Firm, Fibric, Fill, Fluvial', 'Gley, groundwater-gley',
                                     'Humic, Hydrothermal', 'Immature, Impeded', 'Argillic', '',
                                     'Allophanic, Laminar, Litter', 'Mesic, Mafic, Mixed',
                                     'Nodular', 'Orthic', 'Pallic, Perch-gley', '',
                                     'Recent, Refuse, Rendzic', 'Sandy', 'Truncated, Tephric',
                                     'Sulphuric, Duric', 'Vertic', '', 'Oxidic, Pan, Rocky, Fragic',
                                     'Yellow', 'Solonetzic'),
                         'Subgroup' = c('Albic, Acid, Aged, Artifact',
                                        'Brown, Buried',
                                        'Calcareous, Concretionary,\n Cemented, Compacted',
                                        'Pedal',
                                        'Melanic, Earthy',
                                        'Fluid',
                                        'Gley, Gleyed, Magnesic, Granular',
                                        'Thick, Humose',
                                        'Immature, Inactive, Ironstone',
                                        'Argillic',
                                        'Alkaline',
                                        'Allophanic, Laminar',
                                        'Mottled, Yellow',
                                        'Nodular, Sodic, Stony',
                                        'Peaty, Orthic',
                                        'Pallic, Placic, Pumice, Perch-gleyed',
                                        'Saline, Ortstein',
                                        'Recent',
                                        'Sphagnic, Sandy, Tephric',
                                        'Typic, Tailings',
                                        'Sulphidic, Humus-pan, Duric',
                                        'Active, Vitric, Vertic',
                                        'Weathered, Welded, Wet',
                                        'Pan, Fragic',
                                        'Yellow, Ultic',
                                        'Podzol, Podzolic, Silt')
                                                               )

table_A1 <- gt(table_A1_dat) |>
  tab_options(
    column_labels.font.weight = 'bold', 
    heading.title.font.weight = 'bold',
    table.align = 'center',
    table.width = '95%'
  ) |>
  tab_style(
    style = cell_text(weight = "bold"),
    locations = cells_body(columns = 1)) |>
  cols_width(Code ~pct(10), Order ~pct(20))

table_A1

```

{{< pagebreak >}}