R - Language
# Generate 25 Random number in the interval 0-30
data <- runif(25, 0, 30)
#Create a filename to save the plot
png(height=800,width=1500,filename="./figure.png")
#Make barplot
barplot(data,width=100,axes=FALSE,col=rgb(0,128,128,255,maxColorValue=255),space=0.08,border=NA,xlim=c(0,2800))
#Save image
dev.off()
https://cdnjs.cloudflare.com/ajax/libs/d3/3.5.5/d3.min.js