Berikut ini script yang dapat kita gunakan :

# Mengambil data dari enciety Data Manajemen
read.csv("http://www.enciety.com/edm/manajemen/data/AKB%20dan%20AHH%20Kab%20Kota%201999%20-%202001%20-%202003%20Jawa%20Timur.csv") -> data.AKB.AHH
require(gregmisc)
# Misal untuk analisis tahun 2003
x <- data.frame(data.AKB.AHH[1:37,c(2,5,8)],row.names=1)
as.matrix(x) -> x
rc <- rainbow(nrow(x), start=0, end=.3)
cc <- rainbow(ncol(x), start=0, end=.3)
hv <- heatmap.2(x, col = cm.colors(256), scale="column", RowSideColors = rc, ColSideColors = cc, margin=c(5,10), xlab = "Angka Kematian Bayi        Angka HarapanHidup", ylab= "", main = "Angka Kematian Bayi & Angka Harapan Hidup 2003", tracecol="black", density="density")
str(hv)  # the two re-ordering index vectors

Hasil Analisisnya sebagai berikut :

Salam,

Unung Istopo H