0

クラスター化されたポイントのきれいな図を作成しようとしています。ポイントのテッセレーション間にディバイド チェーンを作成するパッケージはありますか? 理想的には、 でのプロットに適していggplotます。

コード例を次に示します。

#DivideLineExample
library(spatstat)

W=owin(c(0,1),c(0,1))          # Set up the Window
p<-runifpoint(42, win=W)       # Get random points

ll=cbind(p$x,p$y)              # get lat/long for each point
zclust=kmeans(ll,centers=4)    # Cluster the points spatially into 4 clusters

K<-pp<-D<-list()
plot(W,main="Clustered Points")
for (i in 1:4){                   # this breaks up the points into separate ppp objects for each cluster
  K[[i]]=ll[zclust$cluster==i,]   
  pp[[i]]=as.ppp(K[[i]],W)
  plot(pp[[i]],col=i,add=TRUE,cex=1.5,pch=16)
  D[[i]]=dirichlet(pp[[i]])       # This performs the Dirichlet Tessellation and plots
  plot(D[[i]],col=i,add=TRUE)
}

これは次のように出力されます: http://imgur.com/CCXeOEB

分割のないポイントのクラスター

私が探しているのはこれです： http://imgur.com/7nmtXjo

分割チェーンを持つポイントのクラスター

私はアルゴリズムが存在することを知っています。

アイデア/代替案はありますか？

4

2 に答える 2

0

たとえば、kirkpatrick データ構造のようなポリゴン テストのポイントを試すことができます。ポリゴンを水平または垂直に分割する方がはるかに簡単です。ソース: http://www.personal.kent.edu/~rmuhamma/Compgeometry/MyCG/Voronoi/DivConqVor/divConqVor.htm

于 2016-02-25T19:05:42.080 に答える