jitter.lab(RSEIS)
jitter.lab()所属R语言包:RSEIS
Jitter a set of labels
抖动一组标签
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Jitter a set of labels so they do not overlap
一组标签抖动,使他们不重叠
用法----------Usage----------
jitter.lab(x, w)
参数----------Arguments----------
参数:x
X-positions
X位置
参数:w
widths of the labels
标签的宽度
Details
详细信息----------Details----------
New label positions are computed such that they do not overlap. They are shifted up or down. Works only on horizontal labels.
新的标签位置计算,他们不重叠。它们被向上或向下移动。仅工作水平的标签。
值----------Value----------
vector of integer shifts.
向量的整数轮班。
(作者)----------Author(s)----------
Jonathan M. Lees<jonathan.lees@unc.edu>
Jake Anderson<ajakef@gmail.com>
参见----------See Also----------
textrect
textrect
实例----------Examples----------
APAL = c('tan2','red2','lightpink3','chocolate4','blue3','thistle4','lightcyan4',
'orangered1','purple4','darkred','dodgerblue1','gold3','chartreuse','sienna4',
'aquamarine3','mistyrose4','sienna1','darkkhaki','darkgoldenrod4','magenta4',
'pink3','orangered','darkslategray4','red3','goldenrod3','palegreen4','deepskyblue3',
'turquoise3','seagreen4','springgreen4','gold4','lightsalmon4','limegreen','orchid4',
'darkseagreen4','chartreuse3','goldenrod4','salmon2','deeppink3','forestgreen',
'lightskyblue4','mediumorchid3','deepskyblue2','chocolate2','violetred4','blue1',
'honeydew4','darkgreen','royalblue1','lightseagreen')
s=sort(sample.int(100,25))
plot(c(1,110),c(0,8),col='white') #### set up plot area[###设置绘图区]
PplusPHASE=c( "P-up","P","Pdiff","PKP","PKiKP","PcP","pP","pPdiff","pPKP","pPKiKP","sP","sPdiff","sPKP","sPKiKP")
SplusPHASE = c("S-up","S","Sdiff","SKS","sS","sSdiff","sSKS","pS","pSdiff","pSKS")
basic1 = c("ScP", "SKP", "PKKP", "SKKP", "PP", "PKPPKP")
basicPHASE = c(PplusPHASE,SplusPHASE, basic1)
PHS = basicPHASE[1:25]
x = s
y = rep(0, length(x))
RMAT = textrect(x,y, PHS, xpd=TRUE, add=FALSE, font=1, cex=.8 )
newjitx = jitter.lab(RMAT[,1] , RMAT[,3]-RMAT[,1])
y = y+newjitx*(RMAT[,4]-RMAT[,2])
MCOL = length(PHS)
PASTCOL = APAL[1:MCOL]
RMAT = textrect(x,y, PHS, xpd=TRUE, add=TRUE, textcol=PASTCOL, font=1, cex=.8 )
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|