यह थोड़ा स्क्रिप्ट के लिए कहता है। इसे प्रतिलिपि बनाने के लिए मैं इसे R में पूरा करने की कोशिश करूंगा । यह QGis और Sextante के साथ संभव हो सकता है एक Sextante मॉडल में बैच-एक्ज़ीक्यूशन (फंक्शन पर राइटक्लिक) का उपयोग करके। यहां आप पहले वेक्टर चौराहे के उपकरण का उपयोग कर सकते हैं और बाद में कुछ प्रकार के स्थानिक जुड़ाव का उपयोग कर सकते हैं।
आर में मैं इसे इस तरह की कोशिश करूँगा। आपको कोड को संशोधित करना पड़ सकता है क्योंकि मुझे आपकी डेटा संरचना और चर नहीं पता हैं।
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")
}
मैंने आपके लक्ष्य और आपके डेटासेट की संरचना के बारे में कई धारणाएँ बनाई हैं। सबसे अधिक संभावना है कि आपको इसे आज़माने से पहले अपनी आवश्यकताओं के लिए कोड को सही करना होगा।