Je rencontre des difficultés à recréer un abscisse correspondant à des dates après une interpolation.
Je dispose de vitesse de courant , 1 valeur par jour par profondeur. Je souhaite faire un graph x=date, y= profondeur avec les vitesses interpolées.
J'utilise akima pour interpoler les données mais pas moyen de faire correspondre les dates sur mon axe des abscisses.
En tête du fichier df:
Code : Tout sélectionner
day variable mean depth
1 2013-05-31 p6 0.003569375 11
2 2013-05-31 p7 0.005451188 10
3 2013-05-31 p8 0.007173937 9
4 2013-05-31 p9 0.008505312 8
5 2013-05-31 p10 0.009872437 7
6 2013-05-31 p11 0.011625438 6
L'interpolation et le graphique:
Code : Tout sélectionner
spInt <- interp(df$day,df$depth,df$mean)
filled.contour(spInt$x,spInt$y,spInt$z,color = topo.colors)
title(main="Vitesse courant", font.main=4,xlab="Dates",ylab="Bin")
J'ai essayé de créer une séquence de mes dates et de l'intégrer à l'interpolation avec "xo= " mais l'interpolation ne marche plus si je fais cela...
Merci par avance.