Это chart было создано с помощью 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()

Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:

Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 3.0 Unported.

Вы можете свободно:

• делиться произведением – копировать, распространять и передавать данное произведение
• создавать производные – переделывать данное произведение

При соблюдении следующих условий:

• атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
• распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue