[R] Alphabetic labels on multi-plot graphics

[Eduardo de Oliveira Horta]

Thanks,

I wasn't even aware that 'letters' was there.

Best regards

On Tue, Jan 11, 2011 at 6:08 PM, David Winsemius <dwinsemius at comcast.net> wrote:
>
> On Jan 11, 2011, at 2:06 PM, Eduardo de Oliveira Horta wrote:
>
>> Is there a way to achieve
>>
>> lbl=c("a", "b", "c", "d")
>>
>> opar <- par(mfrow=c(2,2), ann=FALSE)
>> for (t in 1:4){
>>  plot(seq(from=1,to=2*pi,length=100),
>> sin(t*seq(from=1,to=2*pi,length=100)), type="l")
>>  title(main=paste("(", lbl[t], ")", sep=""))
>> }
>> par(opar)
>
> opar <- par(mfrow=c(2,2), ann=FALSE)
>  for (t in 1:4){
>  plot(seq(from=1,to=2*pi,length=100),
>  sin(t*seq(from=1,to=2*pi,length=100)), type="l")
>  title(main=bquote("("*.(letters[t])*")") )
>  }
> par(opar)
>
>> without having to use an object like 'lbl'?
>
> (You obviously need something from which to construct the titles.)
>
>>
>> More generally: is it possible to iteratively (as in a loop) add
>> alphabetic titles to multi-plot graphics when the range over which 't'
>> above varies is of an arbitrary length? It is important that
>> ann=FALSE, because I don't want the axes labels.
>>
>> Thanks in advance, and best regards.
>>
>> Eduardo Horta
>>
>> ______________________________________________
>
> David Winsemius, MD
> West Hartford, CT
>
>