Catch crop diversity increases rhizosphere carbon input and soil microbial biomass
- NormanGentsch
- JensBoy
- Juan DanielKennedy Batalla
- DianaHeuermann
- Nicolausvon Wirén
- DörteSchweneker
- UlfFeuerstein
- JonasGroß
- BernahrdBauer
- BarbaraReinhold-Hurek
- ThomasHurek
- FabricioCamacho Céspedes
- GeorgGuggenberger
Abstract
Introduction
Material and methods
Results
Plant biomass and net ecosystem exchange
The NEE decreased significantly with increasing catch crop diversity (Fig. 1), suggesting increasing -C uptake from the atmosphere.
Discussion
NEE is linked to plant diversity
... The NEE in our study showed a remarkably strong negative gradient from mustard to mix 4 to mix 12 (Fig. 1), which suggested higher photosynthetic -C fixation rates with increasing catch crop diversity.
Conclusion
References
Table 1. Representation of the p-values
library(tidyverse)
library(lme4)
library(emmeans)
library(multcomp)
library(knitr)
data <- read.csv2("data.csv", as.is=T)
data$NEE <- as.numeric(data$NEE)
lm_NEE <- lmer(NEE ~ cc_variant + (1|Date), data=data)
df_NEE <- cld(emmeans(lm_NEE, specs ="cc_variant"), Letters=letters, sort=FALSE)
# summary table for
sum.lm <- glht(lm_NEE, linfct = mcp(cc_variant = "Tukey"))
#summary(sum.lm)$test$pvalue
glht.table <- function(x) {
pq <- summary(x)$test
mtests <- cbind(pq$coefficients, pq$sigma, pq$tstat, pq$pvalues)
colnames(mtests) <- c("Estimate", "Std Error", "z value", "p value")
return(mtests)
}
df.summary <- data.frame(glht.table(sum.lm))
table1 <- df.summary
colnames(table1) <- c("Estimate","Std.Error","z.value","p.value")
rownames(table1) <- c("Mix12 - Fallow","Mix4 - Fallow","Mustard - Fallow","Mix4 - Mix12","Mustard - Mix12","Mustard - Mix4")
table1