Сначала создайте данные для диаграммы
H <- c(1.964138757, 1.729143013, 1.713273714, 1.706771799, 1.67977205)
M <- c("SP105", "SP30", "SP244", "SP31", "SP147")
Во-вторых, дайте имя файлу диаграммы
png(file = "Bargraph.jpeg", width = 500, height = 300)
В-третьих, построить гистограмму
barplot(H,names.arg=M,ylab="Degree ", col= rainbow(5), las=2, border = 0, cex.lab=1, cex.axis=1, font=1,col.axis="black")
title(xlab="Service Providers", line=4, cex.lab=1)
Наконец, сохраните файл
dev.off()
Выход:
![enter image description here](https://i.stack.imgur.com/GlYt1.png)