`Taxon group` information is only available for `r nknown` taxa, but absent for `r nunknown`. To improve the completeness of this field, we derive additional info from the `Backbone`, and merge it with the data already present in `DT`.
`Taxon group` information is only available for `r nknown` entries, but absent for `r nunknown`. To improve the completeness of this field, we derive additional info from the `Backbone`, and merge it with the data already present in `DT`.
```{r}
table(DT1$`Taxon group`, exclude=NULL)
...
...
@@ -160,7 +161,7 @@ DT1 <- DT1 %>%
table(DT1$`Taxon group`, exclude=NULL)
```
Those taxon for which measures of Basal Area exist, can be safely assumed to belong to vascular plants
Those taxa for which a measuress of Basal Area exists can be safely assumed to belong to vascular plants
```{r}
DT1 <- DT1 %>%
...
...
@@ -172,7 +173,7 @@ DT1 <- DT1 %>%
Cross-complement `Taxon group` information. This means, whenever a taxon is marked to belong to one group, then assign the same taxon to that group throughout the `DT` table.
Cross-complement `Taxon group` information. This means that, whenever a taxon is marked to belong to one group, then assign the same taxon to that group throughout the `DT` table.
Delete all records of fungi, and use lists of genera to fix additional problems. While in the previous round the matching was done on the resolve Genus name, here we match based on the unresolved Genus name.
Delete all records of fungi, and use lists of genera to fix additional problems. While in the previous round the matching was done on the resolved Genus name, here the match is based on the unresolved Genus name.
```{r}
DT1 <- DT1 %>%
dplyr::select(-Genus) %>%
...
...
@@ -299,7 +300,7 @@ Species abundance information varies across datasets and plots. While for the la
\newline \newline
Still, it's not really intuitive that in case `Cover code` belongs to one of the classes above, then the actual abundance value is stored in the `x_` column. This stems from the way this data is stored in `TURBOVEG`.
To make the cover data more user friendly, I simplify the way cover is stored, so that there are only two columns:
`Ab_scale` - to report the type of scale used
`Ab_scale` - to report the type of scale used
`Abundance` - to coalesce the cover\\abundance values previously in the columns `Cover %` and `x_`.
Fix some error. There are some plots where only p\\a information is available (`Cover code`=="x"), but have zeros in the field `Cover %`. Consider this as presence\\absence and transform `Cover %` to 1.
Fix some errors. There are some plots where only p\\a information is available (`Cover code`=="x"), but have zeros in the field `Cover %`. Consider this as presence\\absence and transform `Cover %` to 1.
```{r}
DT1 <- DT1 %>%
mutate(`Cover %`=replace(`Cover %`,
...
...
@@ -323,7 +324,8 @@ DT1 <- DT1 %>%
pull(PlotObservationID))),
values=1))
```
There are also some plots having different cover scales in the same layer. They are not many, and I will reduce their cover value to p\\a.
There are also some plots having different cover scales in the same layer. They are not many, and I will reduce their cover value to p\\a.
Find these plots first:
```{r}
mixed <- DT1 %>%
distinct(PlotObservationID, Ab_scale, Layer) %>%
...
...
@@ -333,8 +335,9 @@ mixed <- DT1 %>%
pull(PlotObservationID) %>%
unique()
length(mixed)
#Transform these plots to p\a and create field Ab_scale to summarize abundance info
```
Transform these plots to p\\a and correct field `Ab_scale`. Note: the column `Abundance` is only created here.
I then transform abundances to relative abundance, on a layer by layer basis. For consistency with the previous version of sPlot, I call the field `Relative cover`
Transform abundances to relative abundance, on a layer by layer basis. For consistency with the previous version of sPlot, this field is called `Relative cover`.
*Watch out* - Even plots with p\\a information are transformed to relative cover.
```{r}
DT1 <- DT1 %>%
left_join(x=.,
...
...
@@ -358,8 +374,17 @@ DT1 <- DT1 %>%
summarize(tot.abundance=sum(Abundance)),
by=c("PlotObservationID", "Layer")) %>%
mutate(Relative.cover=Abundance/tot.abundance)
DT1 %>%
group_by(PlotObservationID, Layer) %>%
summarize(tot.cover=sum(Relative.cover),
num.layers=sum(unique(Layer))) %>%
filter(tot.cover != num.layers)
```
## Clean DT and export
```{r}
DT2 <- DT1 %>%
...
...
@@ -373,10 +398,22 @@ DT2 <- DT1 %>%
The output of the DT table contains `r nrow(DT2)` records, over `r length(unique(DT2$PlotObservationID))` plots. The total number of taxa is `r length(unique(DT2$species_original))` and `r length(unique(DT2$species))`, before and after standardization, respectively. Information on the `Taxon group` is available for `r DT2 %>% filter(taxon_group!="Unknown") %>% distinct(species) %>% nrow()` standardized species.
#Ancillary function to change species names to lower case
firstup <- function(x) {
substr(x, 1, 1) <- toupper(substr(x, 1, 1))
x
...
...
@@ -55,14 +54,12 @@ firstup <- function(x) {
try.species <- try.species %>%
mutate(Species=tolower(Species)) %>%
mutate(Species=firstup(Species)) %>%
mutate(Species=firstup(Species))
try.allinfo <- try.allinfo %>%
mutate(Species=tolower(Species)) %>%
mutate(Species=firstup(Species)) %>%
mutate(Species=firstup(Species))
#calculate statistics of data from TRY
n.indiv <- try.species %>%
group_by(Species) %>%
...
...
@@ -94,11 +91,7 @@ sPlot.species <- DT2 %>%
sPlot.in.TRY <- sPlot.species %>%
filter(species %in% (try.species.names %>%
distinct(Name_short) %>%
pull(Name_short)))
##check match when considering taxa resolved ONLY at genus level
pull(Name_short))) %>%
```
Out of the `r nrow(sPlot.species)` standardizes species names in sPlot 3.0, `r nrow(sPlot.in.TRY)` (`r round(nrow(sPlot.in.TRY)/nrow(sPlot.species)*100,1)`%) also occur in TRY 5.0.
...
...
@@ -141,6 +134,22 @@ knitr::kable(trait.legend,
full_width = F, position = "center")
```
There are some traits with unexpected negative entries:
```{r}
try.species.names %>%
dplyr::select(Species) %>%
bind_cols(try.individuals0 %>%
rename_at(col.from, .funs=function(x) col.to) %>%
dplyr::select(-X1)) %>%
gather(variable, value, -Species) %>%
filter(value<0) %>%
group_by(variable) %>%
summarize(n=n())
```
I asked Jens Kattget for clarifications.
## Calculate species and genus level trait means and sd
The average number of observations per species and genus is `r round(mean(try.species.means$n),1)` and `r round(mean(try.genus.means$n),1)`, respectively. As many as `r sum(try.species.means$n==1)` species have only one observation (`r sum(try.genus.means$n==1)` at the genus level).
Match taxa based on species, if available, or Genus (when rank_correct==Genus)
```{r}
## Match taxa based on species, if available, or Genus (when rank_correct==Genus)
```{r, warning=F}
try.combined.means <- try.genus.means %>%
rename(Taxon_name=Genus) %>%
mutate(Rank_correct="genus") %>%
...
...
@@ -204,8 +213,9 @@ total.matches <- DT2 %>%
filter(!is.na(SLA_mean)) %>%
nrow()
```
The total number of matched taxa (either at species, or genus level) is `r total.matches`.
Calculate summary statistics for species- and genus-level mean traits
### Calculate summary statistics for species- and genus-level mean traits
Calculate CWMs and CWV, as well as plot coverage statistics (proportion of total cover for which trait info exist, and proportion of species for which we have trait info)
Calculate CWMs and CWV, as well as plot coverage statistics (proportion of total cover for which trait info exist, and proportion of species for which we have trait info). To avoid misleading result, CWM is calculated ONLY for plots for which we have some abundance information. All plots where `Ab_scale`=="pa" in **ANY** of the layers are therefore excluded.
```{r, cache=T, cache.lazy=F}
# Merge species data table with traits
CWM0 <- DT2t %>%
# Tag plots where at least one layer only has p\a information
any_pa <- DT2 %>%
distinct(PlotObservationID, Ab_scale) %>%
group_by(PlotObservationID) %>%
summarize(any.pa=any(Ab_scale=="pa")) %>%
filter(any.pa==T) %>%
pull(PlotObservationID)
length(any_pa)
# Exclude plots above and merge species data table with traits
