transform char to factor in taits

01b_MesobromionCluster.R

@@ -80,7 +80,8 @@ Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY
   
   traits <- traits %>% 
     column_to_rownames("species0") %>% 
-    rename_all(.funs=~gsub(pattern=".mean$", replacement="", x=.))  #%>% 
+    rename_all(.funs=~gsub(pattern=".mean$", replacement="", x=.))  %>% 
+    mutate_if(~is.character(.), .funs=~as.factor(.))
 #temporary    ### Use only a subset of traits
     #dplyr::select(LeafArea:Disp.unit.leng)