library(tidyverse)
library(baad.data)
Show a few lines and only some interesting variables
baaddata <- baad_data()$data
baaddry <- baad_data()$dictionary
some_vars <- c(
"d.bh",
"family",
"latitude",
"longitude",
"m.so",
"species",
"vegetation"
)
some_vars_data <- baaddata[1:10, some_vars]
knitr::kable(some_vars_data)
| 0.408 |
Pinaceae |
45 |
143 |
566.0 |
Abies sachalinensis |
BorF |
| 0.352 |
Pinaceae |
45 |
143 |
455.7 |
Abies sachalinensis |
BorF |
| 0.300 |
Pinaceae |
45 |
143 |
274.9 |
Abies sachalinensis |
BorF |
| 0.240 |
Pinaceae |
45 |
143 |
184.0 |
Abies sachalinensis |
BorF |
| 0.142 |
Pinaceae |
45 |
143 |
62.4 |
Abies sachalinensis |
BorF |
| 0.402 |
Pinaceae |
45 |
143 |
595.3 |
Abies sachalinensis |
BorF |
| 0.376 |
Pinaceae |
45 |
143 |
577.1 |
Abies sachalinensis |
BorF |
| 0.318 |
Pinaceae |
45 |
143 |
311.6 |
Abies sachalinensis |
BorF |
| 0.312 |
Pinaceae |
45 |
143 |
333.0 |
Abies sachalinensis |
BorF |
| 0.306 |
Pinaceae |
45 |
143 |
327.8 |
Abies sachalinensis |
BorF |
Look up description of variable names
some_vars_dictionary <- baaddry %>%
filter(variable %in% some_vars) %>%
select(variable, description) %>%
# Truncate description to fit it on screen
mutate(description = stringr::str_trunc(description, 90)) %>%
arrange(variable)
knitr::kable(some_vars_dictionary)
| d.bh |
diameter of stem at breast height |
| family |
family |
| latitude |
latitude of location where sampled (-90 to 90 deg South to North) |
| longitude |
longitude of location where sampled (-180 to 180 West to East) |
| m.so |
mass of all above-ground structures (=m.lf + m.st) |
| species |
latin name of species (genus species) |
| vegetation |
vegetation type where sampled if grown in field (leave blank for plantations / glasshou… |