1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| TAB0=read.table(file = "mes données.txt", sep=";", header = TRUE,stringsAsFactors=FALSE)
TAB0$Dates=strptime(TAB0$Dates, format="%Y-%m-%d %H:%M")
x=TAB0$Dates
y1=TAB0$température
y2=TAB0$salinité
ylim=c(min(TAB0$température),max(TAB0$température))
plot(x, y1, col="blue", ylim=ylim,axes=FALSE, xlab="Dates", ylab="")
axis(1);
ylim=c(min(TAB0$salinité),max(TAB0$salinité))
axis(2, col="blue")
par(new=TRUE)
plot(x, y2, col="red", ylim=ylim,axes=FALSE, ylab="")
axis(4, col="red") |
Partager