From 9e5bb546254be0b337ec080a1de3ac3e837d7384 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Tue, 28 Jul 2020 17:05:56 +0200
Subject: [PATCH] New data for Fig S2 - not solved!
---
01_Mesobromion.R | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/01_Mesobromion.R b/01_Mesobromion.R
index 816b33e..98aa7d6 100644
--- a/01_Mesobromion.R
+++ b/01_Mesobromion.R
@@ -902,14 +902,17 @@ ggsave("_data/Mesobromion/PCoA_fuzzy.png", width=6, height=4, dpi=300, last_plot
library(rgdal)
library(sp)
library(sf)
+coords <- read_delim(file = "_data/Mesobromion/Mes2_somecoordinates.csv", delim = ";")
+
env <- read_delim(file = "_data/Mesobromion/env.10perc.txt", delim = "\t")
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 %>%
- left_join(foreign::read.dbf(header) %>%
- as.data.frame() %>%
- dplyr::select(RELEVE_NR, LAT, LON),
+ left_join(coords %>%
+ dplyr::select(RELEVE_NR=MES2_releve_nr.,
+ LON=DD_X_,
+ LAT=DD_Y_),
by="RELEVE_NR") %>%
filter(!is.na(LAT)) %>%
filter(!(LAT==0 | LON==0))
--
GitLab