用
grid可以实现
<br />
<br />
data.frame( "Family" =c("hAT-Blackjack (ABC)" ,<br />
"hAT-Charlie (ABC)" , <br />
"hAT-Tip100 (ABC)" , <br />
"TcMar-Mariner (ABC)" ,<br />
"TcMar-Tigger (ABC)"),<br />
"Number"=<br />
c(5,11,15,56,21) )->x<br />
<br />
y<-(x[,2]/108)*100<br />
<br />
library(lattice)<br />
library(grid)<br />
<br />
barchart(y~x$Family, data=x)<br />
getNames()->cao<br />
grep("GRID.text",cao,value=TRUE)->zhao<br />
zhao[sapply(zhao, function(xxx) any(as.character(x$Family) %in%grid.get(xxx)$label))]->zhaodao<br />
grid.edit(zhaodao,gp=gpar(col="red"), rot=20, y= unit(-5,"mm"))<br />
<br />
<br />
最后一行可以修改rot和y的值来控制文字的角度和离开X轴的距离。
