R语言 条形图

#R语言条形图

#Create the data for the chart.
H <- c(7,12,28,3,41)
M <- c("Mar","Apr","May","Jun","Jul")

#Give the chart file a name.
png(file="G:\\R学习笔记\\barchart_months_revenue.png")

#Plot the bar chart.
barplot(H,names.arg=M,xlab="Month",ylab="Revenue",col="blue",main="Revenue chart",border="red")

#Save the file.
#dev.off()   判断当前图片输出设备是否有可用的，如果没有那也不用执行dev.off()这句话了
while (!is.null(dev.list())) dev.off()

当执行完上述代码产生以下效果：