# 手把手: 如何用R作Polar图等

• 用R作如下的各国Gini系数的Polar barChart:

library(ggplot2)

Gini<- ggplot(GiniData, aes(x=paste(GiniIndex,Country),y=GiniIndex,fill=GiniIndex%/%10))

Gini<- Gini +geom_bar(stat="identity",position="dodge")+coord_polar()

Gini<- Gina + scale_fill_continuous(high="darkred",low="darkgreen")

Gini<- Gini + theme(

panel.background=element_rect(fill="white",colour = "white",size=0),

axis.text=element_blank(),

axis.title=element_blank(),

legend.title=element_blank())

x <-c(1:dim(GiniData)[1])

Gini +geom_text(

aes(

x=x,

label=paste(GiniData\$GiniIndex,GiniData\$Country),

angle=270-x/134*360,

hjust=1), #hjust控制标签的对齐方式

y=GiniData\$GiniIndex+3,

size=3,

vjust=0) 有关颜色变化的代码，用黄色的底纹标示了出来。

• 把中国的Gini系数标出来的Polarbar Chart：

Gini<- ggplot(GiniData, aes(x=paste(GiniIndex,Country),y=GiniIndex,

fill=(sign(GiniIndex-41.60)+sign(Country=="Coted'lvoire")*2)*sign(Country!="China")))

Gini<- Gini + geom_bar(stat="identity",position="dodge")+coord_polar()

Gini<- Gini + scale_fill_continuous(high="darkred",low="darkgreen")

Gini<- Gini + theme(

panel.background=element_rect(fill="white",colour = "white", size=0),

axis.text=element_blank(),

axis.title=element_blank(),

legend.title=element_blank())

x <-c(1:dim(GiniData)[1])

Gini +geom_text(

aes(

x=x,

label=paste(GiniData\$GiniIndex,GiniData\$Country),

angle=270-x/134*360,

hjust=1), #hjust控制标签的对齐方式

y=GiniData\$GiniIndex+3,

size=3,

vjust=0)

• 以最大值最小值为顶的箱图：

x <- matrix(c(36,97,33,89,45,99,51,93,47,88),2,5)

boxplot(x,medlty="blank",

#medlty="blank"就是把四分位盒式图(箱图)的须须去掉

names=c("A","B","C","D","E"),

col="pink", boxwex=0.35)

abline(h=71,col="navy", lwd=2, lty=5)

• 表示数据在最大最小之间位置的线型图：

X <- matrix(c(36,88,97,33,86,89,45,77,99,51,90,93,47,65,88),3,5)

Y <-c(1:5)

plot(c(X[1,],X[3,],X[2,]),c(Y,Y,Y),

pch = c(rep(19,10),rep(4,5)),

cex = 1.5,

col = c(rep("seagreen",10),

rep("magenta",5)),

lwd = 2,

xlab = "成绩",ylab= "科目",

yaxt = "n") #y轴的坐标标签去掉

#设置y轴的坐标标签

axis(2,at = c(1:5), labels = c("A","B","C","D","E"))

arrows(c(X[2,],X[2,]),c(Y,Y),

c(X[1,],X[3,]), c(Y,Y),

col = "springgreen",

lwd = 2,

length = 0.15,

angle = 20,

)

4034 篇文章170 人订阅

0 条评论

## 相关文章

584130

### Spark|有向无环图（DAG）检测

01 — Spark背景介绍 Apache Spark 是专为大规模数据处理而设计的快速通用的计算引擎。Spark 是一种与 Hadoop 相似的开源集群计算环...

60280

### 音视频编码相关名词详解

PAR - pixel aspect ratio(像素宽高比)大多数情况为1:1,就是一个正方形像素，否则为长方形像素

14820

84670

25930

51660

14930

### 运筹学教学 | 十分钟快速掌握最大流算法（附C++代码及算例）

—“运筹教科书到底能给你啥？” —“算法和实现离教科书有多远？” —“问题解决能力到底从哪来？” 今天刚起床就接到了BOSS的 提·问·三·连 小编表示 收到直...

61350