# \donttest{
# Load Species*Traits dataframe:
data("fruits_traits", package = "mFD")
# Load Assemblages*Species dataframe:
data("baskets_fruits_weights", package = "mFD")
# Load Traits categories dataframe:
data("fruits_traits_cat", package = "mFD")
# Compute functional distance
sp_dist_fruits <- mFD::funct.dist(sp_tr = fruits_traits,
tr_cat = fruits_traits_cat,
metric = "gower",
scale_euclid = "scale_center",
ordinal_var = "classic",
weight_type = "equal",
stop_if_NA = TRUE)
# Compute functional spaces quality to retrieve species coordinates matrix:
fspaces_quality_fruits <- mFD::quality.fspaces(sp_dist = sp_dist_fruits,
maxdim_pcoa = 10,
deviation_weighting = "absolute",
fdist_scaling = FALSE,
fdendro = "average")
# Retrieve species coordinates matrix:
sp_faxes_coord_fruits <- fspaces_quality_fruits$details_fspaces$sp_pc_coord
# Compute alpha diversity indices:
alpha_fd_indices_fruits <- mFD::alpha.fd.multidim(
sp_faxes_coord = sp_faxes_coord_fruits[, c("PC1", "PC2", "PC3", "PC4")],
asb_sp_w = baskets_fruits_weights,
ind_vect = c("fdis", "fmpd", "fnnd", "feve", "fric", "fdiv",
"fori", "fspe"),
scaling = TRUE,
check_input = TRUE,
details_returned = TRUE)
# Plot all fd alpha indices:
plots_alpha <- mFD::alpha.multidim.plot(
output_alpha_fd_multidim = alpha_fd_indices_fruits,
plot_asb_nm = c("basket_1", "basket_5"),
ind_nm = c("fdis", "fide", "fnnd", "feve",
"fric", "fdiv", "fori",
"fspe"),
faxes = NULL,
faxes_nm = NULL,
range_faxes = c(NA, NA),
color_bg = "grey95",
shape_sp = c(pool = 3, asb1 = 21,
asb2 = 21),
size_sp = c(pool = 0.7, asb1 = 1,
asb2 = 1),
color_sp = c(pool = "grey50",
asb1 = "#1F968BFF",
asb2 = "#DCE319FF"),
color_vert = c(pool = "grey50",
asb1 = "#1F968BFF",
asb2 = "#DCE319FF"),
fill_sp = c(pool = NA,
asb1 = "#1F968BFF",
asb2 = "#DCE319FF"),
fill_vert = c(pool = NA,
asb1 = "#1F968BFF",
asb2 = "#DCE319FF"),
color_ch = c(pool = NA,
asb1 = "#1F968BFF",
asb2 = "#DCE319FF"),
fill_ch = c(pool = "white",
asb1 = "#1F968BFF",
asb2 = "#DCE319FF"),
alpha_ch = c(pool = 1, asb1 = 0.3,
asb2 = 0.3),
shape_centroid_fdis = c(asb1 = 22, asb2 = 24),
shape_centroid_fdiv = c(asb1 = 22, asb2 = 24),
shape_centroid_fspe = 23,
color_centroid_fspe = "black",
size_sp_nm = 3,
color_sp_nm = "black",
plot_sp_nm = NULL,
fontface_sp_nm = "plain",
save_file = FALSE,
check_input = TRUE)
# Check FRic plot:
plots_alpha$fric$patchwork
# }
Run the code above in your browser using DataLab