ART DATA Dengan R (Cincin Saturnus)

Assalamualaikum Wr Wb
Pada post kali ini saya mau share tentang cara membuat visualisasi seperti Cincin Saturnus. Visualisasi tentunya sangat penting dikarenakan semua hal walaupun bagus tetapi tidak bisa di interprretasikan dan di visualisasi dengan baik maka tidak akan bagus. Oleh karena itu visualisasi perlu dipelajari dan dipahami agar tidak seperti itu itu saja penyajian yang kita bisa. Disini saya menggunakan R studio, lupa versi berapa. Dalam visualisasi  kali ini tidak menggunakan package tambahan sehingga tidak perlu repot - repot install package. Baiklah berikut syntax atau source codenya di bawah ini

# generate pairs of a-b values
a = seq(-50, 50, by = 1)
b = -(x^2)

# set graphic parameters
op = par(bg = 'black', mar = rep(0.5, 4))

# Plot 
plot(b, a, type = 'n')
lines(b, a, lwd = 2*runif(1), col = hsv(0.08, 1, 1, alpha = runif(1, 0.5, 0.9)))
for (i in seq(10, 2500, 10))
{
  lines(b-i, a, lwd = 2*runif(1), col = hsv(0.08, 1, 1, alpha = runif(1, 0.5, 0.9)))
}
for (i in seq(500, 600, 10))
{
  lines(b-i, a, lwd = 2*runif(1), col = hsv(0, 1, 1, alpha = runif(1, 0.5, 0.9)))
}
for (i in seq(2000, 2300, 10))
{
  lines(b-i, a, lwd = 2*runif(1), col = hsv(0, 1, 1, alpha = runif(1, 0.5, 0.9)))
}
for (i in seq(100, 150, 10))
{
  lines(b-i, a, lwd = 2*runif(1), col = hsv(0, 1, 1, alpha = runif(1, 0.5, 0.9)))
}

# signature
legend("bottomright", legend="Jimmy Pujoseno", bty = "n", text.col="gray70")

Ikuti saja syntax di atas maka hasilnya akan seperti ini

Mungkin sekian dulu untuk post kali ini wassalam