[R-br] graficos com dois eixos y

[Benilton Carvalho]

o ylab que vc quer (assumindo q vc queira algo multiplataforma, obvio) eh:

expression(Temperatura~group("(", degree*C, ")"))

b

2011/6/1 Ivan Bezerra Allaman <ivanalaman em yahoo.com.br>:
> Enquanto o Walmes não responde, vai quebrando o galho com essa solução
> abaixo.
> lines <- 'meses  temp umidade    rad   chuva
>      Jan     26.49   86.58    795.88  0.36
>      Fev     26.65   88.49    710.24  0.34
>      Mar    27.19   86.16     772.99  0.21
>      Abr    26.28   89.75     574.88  0.67
>      Mai    26.62   89.22    614.02  0.31
>      Jun   26.13   87.83    680.08  0.26
>      Jul    25.83   86.57     675.97  0.15
>      Ago   27.05   83.14    756.44  0.07
>      Set    27.60   83.02    925.57  0.14
>     Out   27.44   85.16    927.71  0.17
>     Nov   26.56   88.18   788.87  0.19
>    Dez  25.87   90.63    703.94  0.33'
> da <- read.table(textConnection(lines), header=TRUE)
> par(mar=c(5,4,4,5))
> plot(da$temp, type="b", pch=15, lwd=1.5,
>      xlab="Meses (Anos 2010)",
>      ylab="Temperatura (ºC)",
>      ylim=c(24,30), xlim=c(1,12),
>      axes=F,
>      main= "A", font.main=2, font.lab=2)
> axis(1, at=1:12,labels=c("Jan.","Fev.","Mar.","Abr.","Maio","Jun.", "Jul.",
> "Ago.", "Set.", "Out.", "Nov.", "Dez."))
> axis(2)
>      par(new=T)
>      plot(da$umidade, type="b", pch=14,axes=F, frame=T, ann=F)
>      axis(4)
>      mtext(text="Umidade (%)", 4, line = 3)
> Allaman
> (S,f,P)
>
> M.Sc Ivan Bezerra Allaman
> Zootecnista
> Doutorando em Produção Animal/Aquicultura - UFLA
> email e msn - ivanalaman em yahoo.com.br
> Tel: (35)3826-6608/9900-2924
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>
>



-- 
Successful people ask better questions, and as a result, they get
better answers. (Tony Robbins)