<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: 'Calibri'; COLOR: #000000">
<DIV>
<DIV><FONT color=#9b00d3 face=Arial>Tentei rodar o vosso exemplo e deu problema
logo quando chamei a biblioteca, alguém sabe o que é?</FONT></DIV>
<DIV> </DIV>
<DIV>> library(repmis) # reads text data directly from dropbox - no need to
download any file</DIV>
<DIV>Error : .onLoad falhou em loadNamespace() para 'rJava', detalhes:</DIV>
<DIV> chamada: fun(libname, pkgname)</DIV>
<DIV> erro: No CurrentVersion entry in Software/JavaSoft registry! Try
re-installing Java and make sure R and Java have matching architectures.</DIV>
<DIV>Erro: package or namespace load failed for ‘repmis’</DIV>
<DIV
style="FONT-SIZE: small; FONT-FAMILY: 'Calibri'; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; TEXT-DECORATION: none; DISPLAY: inline"></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-SIZE: small; FONT-FAMILY: 'Calibri'; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; TEXT-DECORATION: none; DISPLAY: inline">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: helveticaneue, helvetica neue, helvetica, arial, lucida grande, sans-serif; COLOR: #000; BACKGROUND-COLOR: #fff">
<DIV><SPAN>Caros Izidro Pi, Luis Iván e Jônatan,</SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; FONT-FAMILY: helveticaneue, 'Helvetica Neue', helvetica, arial, 'Lucida Grande', sans-serif; COLOR: rgb(0,0,0); FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN><BR></SPAN></DIV>
<DIV
style="FONT-SIZE: 16px; FONT-FAMILY: helveticaneue, 'Helvetica Neue', helvetica, arial, 'Lucida Grande', sans-serif; COLOR: rgb(0,0,0); FONT-STYLE: normal; BACKGROUND-COLOR: transparent"><SPAN>Obrigado
pelas suas respostas. Analisei cada uma delas e todas foram úteis, mas o Jônatan
foi um passo adiante e antecipou a reposta para a próxima pergunta que eu ia
fazer na lista - como combinar dois gráficos mantendo um mesmo eixo x.
</SPAN></DIV>
<DIV></DIV>
<DIV> </DIV>
<DIV>Saudações,<BR>--<BR>Thiago V. dos Santos<BR>PhD student<BR>Land and
Atmospheric Science<BR>University of
Minnesota<BR>http://www.laas.umn.edu/CurrentStudents/MeettheStudents/ThiagodosSantos/index.htm<BR>Phone:
(612) 323 9898</DIV>
<DIV class=qtdSeparateBR><BR><BR></DIV>
<DIV class=yahoo_quoted style="DISPLAY: block">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: helveticaneue, 'Helvetica Neue', helvetica, arial, 'Lucida Grande', sans-serif">
<DIV
style="FONT-SIZE: 12pt; FONT-FAMILY: helveticaneue, 'Helvetica Neue', helvetica, arial, 'Lucida Grande', sans-serif">
<DIV dir=ltr><FONT size=2 face=Arial>On Thursday, September 11, 2014 8:13 AM,
Jônatan <jdtatsch@gmail.com> wrote:<BR></FONT></DIV><BR><BR>
<DIV class=y_msg_container>
<DIV id=yiv6293530324>
<DIV>
<DIV dir=ltr>
<DIV>Segue algumas alternativas:</DIV>
<DIV> </DIV>
<DIV>library(repmis) # reads text data directly from dropbox - no need to
download any file</DIV>
<DIV># read data</DIV>
<DIV>url <- '<A
href="https://dl.dropboxusercontent.com/u/27700634/precip.txt" shape=rect
rel=nofollow
target=_blank>https://dl.dropboxusercontent.com/u/27700634/precip.txt</A>'</DIV>
<DIV>tmp <- repmis::source_data(url, sep = '', header = TRUE)</DIV>
<DIV> </DIV>
<DIV># convert julian day to date</DIV>
<DIV>date <- as.Date(tmp$julian, origin='2011-12-31')</DIV>
<DIV>data <- cbind(date, tmp)</DIV>
<DIV>head(data)</DIV>
<DIV># define vector with depth of soil layers</DIV>
<DIV>depths <- c(0.05,0.10,0.20,0.30,</DIV>
<DIV>
0.40,0.60,0.80,1.00,</DIV>
<DIV>
1.50,2.00,2.50)</DIV>
<DIV> </DIV>
<DIV># teste com lattice</DIV>
<DIV>cols <- ncol(data):4</DIV>
<DIV>levelplot(as.matrix(data[, cols]), </DIV>
<DIV> aspect = "fill",
xlab = "date", ylab = "soil Moist.",</DIV>
<DIV> scales = list(x =
list(at = which(date %in% pretty(date)), </DIV>
<DIV>
labels = pretty(date)),</DIV>
<DIV>
y = list(at = length(cols):1, labels = depths)),</DIV>
<DIV> contour = T)</DIV>
<DIV> </DIV>
<DIV># Plot soil moisture profile</DIV>
<DIV> </DIV>
<DIV># como são profundidades (abaixo da superfície) use a convenção de z
negativo </DIV>
<DIV># acrescentei a chuva, precisa ajustar ylabels, mtext() resolve</DIV>
<DIV> </DIV>
<DIV>x11()</DIV>
<DIV>op <- par(mar = c(3,4,12,3))</DIV>
<DIV>plot <- filled.contour(date, sort(-depths), as.matrix(data[, cols]),
ylab = expression(theta(m^3~~m^-3)))</DIV>
<DIV>par(new=T,mar=c(23,4,1,8))</DIV>
<DIV>with(data,</DIV>
<DIV> plot(date, precip, type = "h", xaxt = "n",
xpd = T, xaxs="i", ylab = "Precip (mm)", xlab = ""))</DIV>
<DIV>par(op)</DIV>
<DIV> </DIV>
<DIV><FONT
face=Calibri></FONT> </DIV></DIV></DIV></DIV><BR><BR></DIV></DIV></DIV></DIV></DIV>
<P>
<HR>
<P> </P></DIV></DIV></DIV></BODY></HTML>