455 résultats trouvés

Aller à la recherche avancée

par François Bonnot
29 Oct 2018, 13:26
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

il faudrait un exemple reproductible (cercle tracé sur l'exemple que j'ai donné).
par François Bonnot
29 Oct 2018, 13:00
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

... mais le plus simple est d'utiliser la fonction levelplot() du package lattice : library(lattice) r <- sqrt(2) scale = 0.05 Xg <- expand.grid(X1g = seq(-r, r, scale), X2g = seq(-r, r, scale)) Xg <- Xg[sqrt(Xg[,1]^2 + Xg[,2]^2)<r,] Xg$D <- as.numeric(runif(nrow(Xg))<0.1) levelplot(D~X1g*X2g,data=X...
par François Bonnot
29 Oct 2018, 12:37
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Ah mais c'est beaucoup plus clair ! Sans information sur les valeurs générées par expand.grid, j'avais donné des exemples basés sur des nombres entiers positifs. Une suggestion : r <- sqrt(2) scale = 0.05 x <- seq(-r, r, scale) nrow.m <- ncol.m <- length(x) Xg <- expand.grid(X1 = 1:nrow.m, X2=1:ncol...
par François Bonnot
29 Oct 2018, 09:24
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Bonjour, Il n'y a aucune raison pour que ça ne fonctionne pas : 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","g...
par François Bonnot
29 Oct 2018, 08:45
Forum : Questions en cours
Sujet : [Résolu] Quel est l'équivalent de asp = 1 pour des SpatialPolygonsDataFrame ?
Réponses : 6
Vues : 362

Re: [Résolu] Quel est l'équivalent de asp = 1 pour des SpatialPolygonsDataFrame ?

Mais si on précise asp = 1, tout va bien Jean, Je n'en suis pas si certain. Je me demande si le paramètre asp=1 n'est pas en trop, en effet il a pour effet de rendre la grille carrée, i.e. la longueur d'un arc de méridien égale à celle d'un arc de parallèle de même angle, au lieu d'un rapport d'env...
par François Bonnot
26 Oct 2018, 06:52
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 927

Re: faire un tri en gardant l'information de nom de colonne

Bonjour, Error in 1:nrow(ADCP_longformat) : argument of length 0 Il es impossible que vous obteniez cette erreur avec le code que je vous ai envoyé, puisque l'instruction n'y figure pas (c'est 1:nrow(df1)). Reprenez exactement les 2 fonctions sans les modifier. Ensuite, si ça ne marche pas, extrayez...
par François Bonnot
25 Oct 2018, 08:46
Forum : Questions en cours
Sujet : [Résolu] Quel est l'équivalent de asp = 1 pour des SpatialPolygonsDataFrame ?
Réponses : 6
Vues : 362

Re: Quel est l'équivalent de asp = 1 pour des SpatialPolygonsDataFrame ?

J'ajouterai : plutôt que grid, on peut utiliser le code suivant pour tracer les vrais méridiens et parallèles (inspiré je crois d'un code de Renaud). library(rgdal) projstring <- "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs" meri1 <- -10; meri2 <- 10; para1 <- 40; para2 <- 60 meri1 <-...
par François Bonnot
25 Oct 2018, 08:20
Forum : Questions en cours
Sujet : [Résolu] Quel est l'équivalent de asp = 1 pour des SpatialPolygonsDataFrame ?
Réponses : 6
Vues : 362

Re: Quel est l'équivalent de asp = 1 pour des SpatialPolygonsDataFrame ?

Bonjour Jean, je suis tout béotien pour les statistiques spatiales Nous est-il permis d'en douter ? j'aimerais avoir l'équivalent de asp = 1 Le paramètre asp fonctionne (il suffit d'essayer asp=2 pour s'en persuader) mais ce n'est pas suffisant parce que la fonction plot ne fait qu'utiliser les coor...
par François Bonnot
25 Oct 2018, 06:54
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Bonjour, Je ne comprends pas pourquoi vous écrivez m <- as.matrix(Mat_D[,3]) au lieu de m[as.matrix(Mat_D[1:2])] <- Mat_D[,3] comme je l'avais écrit dans ma première réponse. PS. Il va de soi qu'i faut remplacer 8 et 10 de mon exemple m <- matrix(nrow=10,ncol=8) par les bonnes dimensions de m.
par François Bonnot
25 Oct 2018, 06:39
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 927

Re: faire un tri en gardant l'information de nom de colonne

Bonjour, Dans ces solutions je change les df1, df2 par les nom de mes dataframes. Il ne faut pas le faire car df1 et df2 sont les arguments des fonctions. Il faut simplement charger les fonctions dist1 et min1 telles quelles (utiliser la version après EDIT, pas la première) et changer les noms data1...
par François Bonnot
24 Oct 2018, 14:54
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Je voudrais ordonner par ordre croissant mes coordonnées de points X1 et X2 Cela ne sert à rien. Ainsi que je l'ai déjà écrit, il faut ordonner les marges et non la matrice de départ. Dans la dernière ligne, les marges sont déjà ordonnées par la fonction sort(). L'erreur '"z doit être une matr...
par François Bonnot
24 Oct 2018, 10:47
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 927

Re: faire un tri en gardant l'information de nom de colonne

Le code suivant nécessite peu de mémoire et devrait fonctionner sur des jeux de données volumineux : dist1 <- function(z,df2) { d2 <- function(a,b) (a-b)^2 x2 <- sapply(df2[[1]],d2,z[1]) y2 <- sapply(df2[[2]],d2,z[2]) dist <- sqrt(x2+y2) c(min(dist),which.min(dist)) } min1 <- function(df1,df2) { m <...
par François Bonnot
24 Oct 2018, 07:49
Forum : Questions en cours
Sujet : Ordonner une matrice générée par un expand.grid pour utiliser la fonction image
Réponses : 27
Vues : 978

Re: Ordonner une matrice générée par un expand.grid pour utiliser la fonction image

Bonjour,
Ce ne sont pas les deux premières colonnes qu'il faut ordonner, mais les marges.
Il suffit de remplacer la dernière ligne de mon code par :

Code : Tout sélectionner

image(x=sort(unique(Mat_D[,1])),y=sort(unique(Mat_D[,2])),z=m,col=c("white","gray")) ; box()
par François Bonnot
24 Oct 2018, 07:37
Forum : Questions en cours
Sujet : faire un tri en gardant l'information de nom de colonne
Réponses : 24
Vues : 927

Re: faire un tri en gardant l'information de nom de colonne

Bonjour, Si c'est une question de mémoire, on peut envisager une fonction dist2 ne nécessitant pas le calcul des distances inutiles : dist2 <- function(df1,df2) { d2 <- function(a,b) (a-b)^2 x2 <- outer(df1[[1]],df2[[1]],d2) y2 <- outer(df1[[2]],df2[[2]],d2) dist <- sqrt(x2+y2) colnames(dist) <- row...

Aller à la recherche avancée