回复 第1楼 的 alick101:
<br />
library(grid)<br />
'MVEAILRSTLGARTTVMAALSYLSVLCFVPLLVDRDDEFVYFHAKQGLVIWMWGVLALFALHVPVLGKWIFGFSSMGVLVFSLLGLVSVVFQRAWKLPVVSWVADRI'->todo<br />
#i代表膜内,<br />
#o代表膜外,<br />
matrix(c('1-14','gray','15-34','red','35-46','green','47-65','red','65-68','gray','69-91','red','92-107','green'), ncol=2,byrow=T)->mat<br />
rep(mat[,2],0-sapply(mat[,1],function(xxx) eval(parse(text=xxx[1]))))->inter.col<br />
head(seq(0,1,length.out=nchar(todo)+2)[-1],nchar(todo))->wei<br />
png('try.png', width=1200, height=400, type='cairo')<br />
grid.newpage()<br />
pushViewport(viewport())<br />
grid.rect(x=wei,width=1/nchar(todo),height=0.1,default='npc',gp=gpar(col=inter.col,fill=inter.col))<br />
grid.text(x=wei,label=unlist(strsplit(todo,NULL)),gp=gpar(fontface='bold'))<br />
dev.off()</p>
<p>
</p>
47-65是红色,65-68是黑色,改成:
47-65是红色,66-68是黑色