Skip to content
Snippets Groups Projects
Commit 9e5bb546 authored by Francesco Sabatini's avatar Francesco Sabatini
Browse files

New data for Fig S2 - not solved!

parent 414a4f21
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 7 additions and 4 deletions
01_Mesobromion.R
+ 7
− 4
View file @ 9e5bb546
...@@ -902,14 +902,17 @@ ggsave("_data/Mesobromion/PCoA_fuzzy.png", width=6, height=4, dpi=300, last_plot ...@@ -902,14 +902,17 @@ ggsave("_data/Mesobromion/PCoA_fuzzy.png", width=6, height=4, dpi=300, last_plot
library(rgdal) library(rgdal)
library(sp) library(sp)
library(sf) library(sf)
coords <- read_delim(file = "_data/Mesobromion/Mes2_somecoordinates.csv", delim = ";")
env <- read_delim(file = "_data/Mesobromion/env.10perc.txt", delim = "\t") env <- read_delim(file = "_data/Mesobromion/env.10perc.txt", delim = "\t")
env0 <- read_delim("_data/Mesobromion/GVRD_MES2_site.csv", delim = ",") env0 <- read_delim("_data/Mesobromion/GVRD_MES2_site.csv", delim = ",")
header <- "/data/sPlot/users/Francesco/Project_11/Germany/_data/tvhabita.dbf" #header <- "/data/sPlot/users/Francesco/Project_11/Germany/_data/tvhabita.dbf"
env.all <- env0 %>% env.all <- env0 %>%
left_join(foreign::read.dbf(header) %>% left_join(coords %>%
as.data.frame() %>% dplyr::select(RELEVE_NR=MES2_releve_nr.,
dplyr::select(RELEVE_NR, LAT, LON), LON=DD_X_,
LAT=DD_Y_),
by="RELEVE_NR") %>% by="RELEVE_NR") %>%
filter(!is.na(LAT)) %>% filter(!is.na(LAT)) %>%
filter(!(LAT==0 | LON==0)) filter(!(LAT==0 | LON==0))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment