misc/CACCHI/compil_data_perso.R

In cesco-lab/Vigie-Chiro_scripts: Predict Distribution Of Chiropter

library(readxl)

#DirD="./chiros/"
#ListD=list.files(DirD,pattern="Saisie")
DataOld=read_xlsx("C:/Users/yvesb/Documents/chiros/donnees_capture_YB180417.xlsx")
StationsOld=read_xlsx("C:/Users/yvesb/Documents/chiros/donnees_capture_YB180417.xlsx",sheet = 2)
ListDnew=c("C:/Users/yvesb/Documents/chiros/Saisie_donnees_capture_2018_yb.xlsx"
        ,"C:/Users/yvesb/Documents/chiros/Saisie_donnees_capture_2019_yb.xlsx"
        ,"C:/Users/yvesb/Documents/chiros/Saisie_donnees_capture_2021_yb.xlsx"
        ,"C:/Users/yvesb/Documents/chiros/Saisie_donnees_capture_2022_yb.xlsx"
        ,"C:/Users/yvesb/Documents/chiros/Saisie_donnees_capture_2020_yb+21complements.xlsx")

Data02=merge(DataOld,StationsOld,by.x=c("Date","N° filet")
             ,by.y=c("Date","Numéro_filet"))

DataN2=data.frame()
for (i in 1:length(ListDnew))
{
  DataNi=read_xlsx(ListDnew[i])
  StationsNi=read_xlsx(ListDnew[i],sheet = 2,skip=1)
  DataNi2=merge(DataNi,StationsNi,by.x="N° station",by.y="...1")
  DataN2=rbind(DataN2,DataNi2)
}

DataAll=rbindlist(list(Data02,DataN2),use.names=T,fill=T)
DataAll$espece=paste0(toupper(substr(DataAll$Taxon, 1, 1))
                      , tolower(substr(DataAll$Taxon, 2
                                       , nchar(DataAll$Taxon))))

fwrite(DataAll,"C:/Users/yvesb/Documents/chiros/DataAllCapture.csv",sep=";")