概要
この
W3C-unspecified 統計図表は
Rで作成されました。
library("mlbench")
library("alphahull")
library("igraph")
data(BostonHousing)
x <- cbind(BostonHousing$lstat, BostonHousing$medv)
x <- unique(x)
svg("scagnosticsBase.svg", width=10, height=3)
par(mfrow=c(1,3), mar=c(0,0,2,0))
hull <- chull(x)
shape <- ashape(x, alpha=5)
hull <- c(hull, hull[1])
plot(x, main="Convex hull", axes=F, pch=19, cex=0.5)
lines(x[hull, ])
box()
plot(x, main="Alpha shape", axes=F, pch=19, cex=0.5)
plot(shape, add=T, wpoints=F)
box()
graph <- graph.adjacency(as.matrix(dist(x)), weighted=TRUE)
mst <- as.undirected(minimum.spanning.tree(graph))
idx <- get.edges(mst, E(mst))
plot(x, main="Minimal spanning tree", axes=F, pch=19, cex=0.5)
for (i in seq(nrow(idx))) {
ft <- idx[i,]
lines(x[ft,1], x[ft,2])
}
box()
dev.off()
ライセンス
この作品の著作権者である私は、この作品を以下のライセンスで提供します。
- あなたは以下の条件に従う場合に限り、自由に
- 共有 – 本作品を複製、頒布、展示、実演できます。
- 再構成 – 二次的著作物を作成できます。
- あなたの従うべき条件は以下の通りです。
- 表示 – あなたは適切なクレジットを表示し、ライセンスへのリンクを提供し、変更があったらその旨を示さなければなりません。これらは合理的であればどのような方法で行っても構いませんが、許諾者があなたやあなたの利用行為を支持していると示唆するような方法は除きます。
- 継承 – もしあなたがこの作品をリミックスしたり、改変したり、加工した場合には、あなたはあなたの貢献部分を元の作品とこれと同一または互換性があるライセンスの下に頒布しなければなりません。
https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue