R语言制图与数据可视化

1、下载R语言安装包，百度搜索：R-3.0.3 for Windows (32/64 bit)”。下载完成后打开安装，按照系统的默认选项安装完成。

2、首先要介绍的是画条形图。代码和图形如下：

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")#设置边框形状的

3、下面说的是绘制点图：

library(reshape)

citysales <- read.csv("citysales.csv")

sales <- melt(citysales)

## 把数据设置为long form

sales$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)")

4、下面说说争议比较大的饼图的画法。下面是代码：

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()