You need to put them all into one SpatialLines object. To do this you need to extract the Lines objects from each SpatialLines item in your list, then you can extract the individual lines objects from this, then you can use this list to recombine them into a single SpatialLines object:# Get the Lines objects which contain multiple 'lines'll0 <- lapply( SL1 , function(x) `@`(x , "lines") )# Extract the individual 'lines'll1 <- lapply( unlist( ll0 ) , function(y) `@`(y,"Lines") )# Combine them into a single SpatialLines objectSl <- SpatialLines( list( Lines( unlist( ll1 ) , ID = 1 ) ) ) S4类! 这篇关于如何在R中取消列出空间对象并进行整体绘制的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!
10-29 10:50