R语言制图与数据可视化

首先要介绍的是画条形图。代码和图形如下：library(RColorBrewer)citysales <- read.csv('citysales.csv')barplot(as.matrix(citysales[,2:4]),beside=TRUE, #beside设置条形图的形状，R语言绘图第一篇介绍到了legend.text = citysales$City, #用城市名做标注args.legend = list(bty = 'n',horiz = TRUE),col = brewer.pal(5,'Set1'),border = 'white',ylim = c(0,100),ylab = 'Sales Revenue (1,000's of USD)',main = 'Sales Figures')box(bty = 'l')#设置边框形状的

下面说的是绘制点图：library(reshape)citysales <- read.csv('citysales.csv')sales <- melt(citysales)## 把数据设置为long formsales$color[sales[,2]=='ProductA'] <- 'red'sales$color[sales[,2]=='ProductB'] <- 'blue'sales$color[sales[,2]=='ProductC'] <- 'violet'dotchart(sales[,3],labels=sales$City,groups=sales[,2],col = sales$color,pch = 19,main = 'Sales Figures',xlab = 'Sales Revenue (1,000's of USD)')

下面说说争议比较大的饼图的画法。下面是代码：png('a.png')browers <- read.table('browsers.txt',header=TRUE)browers <- browers[order(browers[,2]),]pielabels <- sprintf('%s = %3.1f%s',browers[,1],100*browers[,2]/sum(browers[,2]),'%')pie(browers[,2],labels=pielabels,clockwise = TRUE,radius = 1,col = brewer.pal(7,'Set1'),border = 'white',cex = 0.8,main = 'Percentage share of internet browser usage')dev.off()