François Bonnot a écrit :Bonjour,
Il n'y a aucune raison pour que ça ne fonctionne pas :Code : Tout sélectionner
Mat_D <- expand.grid(x=1:15,y=1:83)
Mat_D$z <- as.numeric(runif(15*83)<0.3)
m <- matrix(nrow=15,ncol=83)
m[as.matrix(Mat_D[1:2])] <- Mat_D[,3]
image(x=sort(unique(Mat_D[,1])),y=sort(unique(Mat_D[,2])),z=m,col=c("white","gray")) ; box()
Comparez les structures des matrices Mat_D et m ci-dessus avec les vôtres et vous verrez certainement qu'elles ne sont pas les mêmes.
Bonjour François,
Je teste votre méthode sur l'exemple que je viens de donner:
Code : Tout sélectionner
m <- matrix(nrow=38,ncol=66) # pour avoir 2508 valeurs
m[as.matrix(Mat_D[1:2])] <- Mat_D[,3]
[b]Warning message:
In m[as.matrix(Mat_D[1:2])] <- Mat_D[, 3] :
number of items to replace is not a multiple of replacement length
[/b] #### mais la matrice a l'air quand même d'être remplie donc j'ai poursuivi le code
image(x=sort(unique(Mat_D[,1])),y=sort(unique(Mat_D[,2])),z=m,col=c("white","gray")) ; box()
[b]Error in image.default(x = sort(unique(Mat_D[, 1])), y = sort(unique(Mat_D[, :
les dimensions de z ne sont pas length(x)(-1) multiplié par length(y)(-1)
[/b]
Je suis complètement perdue et je n'avance absolument pas…
Merci pour votre aide,
Diane