On 06/12/2012 11:49 PM, Stuart Rosen wrote:
For labelling a plot, I am trying to rotate a character string using
text() so that characters are upright and reading down, for example, ...
L
i
k
e
t
h
i
s
.
It appears that par crt does not work with text. Does anyone have any
other suggestions.
-Original Message-
From: r-help-boun...@r-project.org [mailto:r-help-bounces@r-
project.org] On Behalf Of Jim Lemon
Sent: Wednesday, June 13, 2012 5:02 AM
To: s.ro...@ucl.ac.uk
Cc: r-help@r-project.org
Subject: Re: [R] Rotating characters in text
On 06/12/2012 11:49 PM, Stuart Rosen
For labelling a plot, I am trying to rotate a character string using
text() so that characters are upright and reading down, for example, ...
L
i
k
e
t
h
i
s
.
It appears that par crt does not work with text. Does anyone have any
other suggestions. Thanks!
Yours - Stuart Rosen
On Jun 12, 2012, at 9:49 AM, Stuart Rosen wrote:
For labelling a plot, I am trying to rotate a character string using
text() so that characters are upright and reading down, for
example, ...
L
i
k
e
t
h
i
s
.
It appears that par crt does not work with text. Does anyone have
any other
If you insert `\n` between each letter, then it should do what you
want with a single call to text or mtext. To expand on David's
example:
plot(1:10)
text(5,5, paste( strsplit(txvec, ''), collapse='\n') )
On Tue, Jun 12, 2012 at 10:16 AM, David Winsemius
dwinsem...@comcast.net wrote:
On Jun
Try this,
rotate = function(x) paste(strsplit(x,)[[1]],collapse=\n)
t - this is a text
plot.new()
text(1/2,1/2,t)
par(lheight=0.8)
text(1/2,1/2,rotate(t))
HTH,
b.
On 13 June 2012 01:49, Stuart Rosen s.ro...@ucl.ac.uk wrote:
For labelling a plot, I am trying to rotate a character string
On Jun 12, 2012, at 4:02 PM, Greg Snow wrote:
If you insert `\n` between each letter, then it should do what you
want with a single call to text or mtext. To expand on David's
example:
plot(1:10)
text(5,5, paste( strsplit(txvec, ''), collapse='\n') )
In fact it could be made even easier:
Hello,
(You forgot to unlist() the result of strsplit.)
Another way, saving some space between characters is to use strheight().
rotate90 - function(x, y, label){
label - unlist(strsplit(label, ''))
y - y - (seq_along(label) - 1)*strheight(label)
list(x=x, y=y,
8 matches
Mail list logo