diff crea_carte_G.R @ 1:e94a25eed489 draft

planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/Ecoregionalization_workflow commit 459ba1277acd7d8d4a02f90dbd7ff444bf8eac92
author ecology
date Wed, 24 Jan 2024 15:53:32 +0000
parents 0f6542d0986e
children
line wrap: on
line diff
--- a/crea_carte_G.R	Wed Oct 18 09:59:06 2023 +0000
+++ b/crea_carte_G.R	Wed Jan 24 15:53:32 2024 +0000
@@ -15,7 +15,7 @@
     data <- args[1]
 }
 
-clus <- read.table(data, header=TRUE, na.strings = "na")
+clus <- read.table(data, sep="\t" ,header=TRUE, na.strings = "na")
 
 #tmap method
 
@@ -26,7 +26,7 @@
   summarize()
 
 map <- tm_shape(grouped_data) + 
-  tm_dots(col = "cluster", palette = "Accent", size = 0.1, title = "écorégions")+
+  tm_dots(col = "cluster", palette = "Accent", n=256, size = 0.1, title = "ecoregions")+
   tm_scale_bar(position = c("right","top"))+
   tm_compass(position = c("right","top"))+
   tm_layout(frame = FALSE,legend.position = c("left","bottom"))+