主要是函数上下界引起的。
<br />
a <- read.table(text = "<br />
Profile_A Profile_B Profile_C Profile_D<br />
1 125 80 24 57<br />
2 98 63 23 108<br />
3 59 47 80 107<br />
4 89 81 84 54<br />
5 60 74 90 81<br />
6 90 60 60 68<br />
7 102 65 68 75<br />
8 113 95 47 35<br />
9 66 83 75 81<br />
10 80 78 57 68<br />
11 96 63 56 96<br />
12 92 57 59 83<br />
13 81 98 68 54<br />
14 59 75 65 68<br />
15 86 71 59 69<br />
16 80 75 74 84<br />
17 78 107 51 71<br />
18 53 95 63 69<br />
19 83 83 69 36<br />
", header = TRUE)<br />
</p>
笨方法函数修改为如下即可:
(修改下界让,零值显示,上界修改后可以让相同值相等。此处修改下界)
<br />
stars(rbind(c(1,1,1,1)*max(a),a[,1:4],c(0,0,0,0)), full = TRUE, scale = TRUE, len = 1, labels = c("满值",row.names(x),"0值"), locations = NULL,draw.segment=TRUE)<br />
</p>
更笨的发法:安装ggplot2包reshape包
<br />
x<-cbind(rownames(a),a)<br />
md<-melt(x,id=(c("rownames(a)")))<br />
colnames(md)[1]<-"id"<br />
ggplot(md,aes(x=variable,y=value,fill=variable))+<br />
geom_bar(stat="identity",width = 1)+ coord_polar(theta = "x")+facet_wrap(~id,ncol=4)<br />
</p>