Salang Pan wrote:
> hi，
>
> Is it possible to draw a string text in a rectangle according the width of
> this rectangle? that is, the fontsize of this string text can be adjusted
> according the width of the rectangle.
> How to set the cex parameter in text function?
>
> text (x, y = NULL, labels = seq(along = x), adj = NULL,
> pos = NULL, offset = 0.5, vfont = NULL,
> cex = 1, col = NULL, font = NULL, xpd = NULL, ...)
>
> thanks!
The grid framework might be helpful.
For standard graphics, you can optimze the strwidth():
plot(1:10)
rect(1,1,9,9)
cex <- optimize(function(x)
abs(strwidth("Hello World", cex=x)-8),
interval=c(1, 10))$minimum
text(5,5, "Hello World", cex=cex)
Uwe Ligges
>
>
>
>
>
> =====================================================
> Salang
> [EMAIL PROTECTED]
>
> Tel: 021-64363311-123
> Shanghai Center for Bioinformatics Technology
> Floor 12th,100# QinZhou Road
> Shanghai,China,200235
>
>
>
> ------------------------------------------------------------------------
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
