এটি একটি ছোট স্ক্রিপ্ট জন্য কল। এটিকে পুনরুত্পাদনযোগ্য করে তোলার জন্য আমি এটি আর- তে সম্পন্ন করার চেষ্টা করব । সিক্সেন্টে মডেল ব্যাচ-এক্সিকিউশন (ফাংশনটিতে রাইটক্লিক) ব্যবহার করে কিউজিস এবং সেক্সটেন্টের মাধ্যমে এটিও সম্ভব হওয়া উচিত। এখানে আপনি প্রথমে ভেক্টর ছেদ করার সরঞ্জামটি ব্যবহার করতে পারেন এবং তারপরে কিছু ধরণের স্থানিক যোগ দিতে পারেন।
আর-তে আমি এটির মতো চেষ্টা করব। আপনার কোডটি পরিবর্তন করতে হতে পারে কারণ আমি আপনার ডেটা কাঠামো এবং ভেরিয়েবলগুলি জানি না।
library(raster);library(rgdal);library(sp) # Load in required packages
vegetation <- readOGR("H:/Examplefolder", # To load a vegetation polygon shape here
"vegi") # called vegi.shp
setwd(harddriveD) # Now, switch to the directory containing your species shapes
# and use the following code
species_files <- grep( ".shp", # to extract all shape names
dir(),
ignore.case=T,
value=T)
# Now read in your speciesfiles in a loop
for(name in species_files){ # and do a vegetation data
# overlay with your basename
spec_name <- strsplit(name,split=".shp")[[1]] # to get only the load in
# your species name shape.
spec_shp <- readOGR(".",spec_name) # I assume that you have point data. Otherwise change the code.
ov <- over(spec_shp,vegetation) # Make a overlay with your vegetation data,
# returns a dataframe of the overlaying vegetation shape attributes,
# which are within your species shape.
# This dataframe has the same number of rows as your input species shape.
cd <- coordinates(spec_shp); # Therefore you could just append the needed information to your species shape.
proj <- proj4string(spec_shp) # save coordinates and proj.
# Append your vegetation data to your species shape
spec_shp$Vegetation <- ov$ShrubSpecies # Or whatever you want to get.
spp <- SpatialPointsDataFrame( # In the end export your shape again.
coords=cd, # I would advise you to use a different folder.
data=as.data.frame(spec_shp), # In case you have polygons instead of Point data
proj4string=CRS(proj) ) # use the SpatialPolygonDataFrame function. -> help ?SpatialPolygonDataFrame
writeOGR(spp, #Should result in a new shape
"foldername", # which has your species name.
spec_name,
driver="ESRI Shapefile")
}
আমি আপনার লক্ষ্য এবং আপনার ডেটাসেটের গঠন সম্পর্কে অনেক অনুমান করেছি। সম্ভবত কোডটি চেষ্টা করার আগে আপনার প্রয়োজনের সাথে সংশোধন করতে হবে।