Berikut ini ada script sederhana, idenya dari HDI Report oleh UNDP, yang disitu ada grafik yang unik-unik, kemudian coba saya tuangkan ke Rscript seperti dibawah ini. Script ini bisa rekan-rekan kembangkan untuk melihat gap dua nilai atau kalau nilai kedua lebih kecil daripada nilai pertama.
data <- c(50,70,20,40,65,96,59.5,78.3)
barplot(data,col=c('darkorange','grey45'),border='white',axes=F,
ylim=c(0,100),xlab=' ',cex.axis=2) -> data.bp
axis(2,col='orange',cex=2)
axis(1,at=c(data.bp[1]+0.6,data.bp[3]+0.6,data.bp[5]+0.6,
data.bp[7]+0.6),labels=c('GROUP A','GROUP B','GROUP C','GROUP D'),
col='white')
for (i in c(1,3,5,7)) {
segments(data.bp[i]-0.5,data[i],data.bp[i+1]+0.5,data[i],lwd=3)
segments(data.bp[i]-0.5,data[i+1],data.bp[i+1]+0.5,data[i+1],lwd=3)
arrows(data.bp[i]+0.5,data[i],data.bp[i]+0.5,data[i+1],code=3,lwd=2)
text(data.bp[i],data[i]+((data[i+1]-data[i])/2),data[i+1]-data[i],cex=2)
}
title('Barplot with gap - R - enciety')
Grafik yang dihasilkan adalah sebagai berikut :
Salam,
Unung Istopo H
