473 résultats trouvés

Aller à la recherche avancée

par François Bonnot
30 Oct 2018, 07:45
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 : 1315

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

On voit toujours cet effet "escalier" Bonjour, Vous voulez inclure des rectangles dans un cercle et qu'ils soient tangents au cercle par leurs côtés? Mais c'est géométriquement impossible! pouvez-vous m'expliquer comment vous définissez col dans cette fonction (pour que quand m=0, col soi...
par François Bonnot
29 Oct 2018, 16:10
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 : 1315

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

Quelque chose comme ça ?

Code : Tout sélectionner

lim <- 1.55 ; ratio <- 1.02
plot(0,0,xlim=c(-lim,lim),ylim=c(-lim,lim),asp=1)
symbols(0,0,circles=r*ratio,add=TRUE,inches=FALSE,bg="gray")
image(x,x,m,col=c("gray","white"),add=TRUE)
par François Bonnot
29 Oct 2018, 14:59
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 : 1315

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

Il ne suffit pas d'agrandir un peu le cercle ? lim <- 1.55 ; ratio <- 1.02 image(x,x,m,asp=1,col=c("gray","white"),xlim=c(-lim,lim),ylim=c(-lim,lim)) tt <- seq(0,2*pi, length.out = 200) Dom <- data.frame(x = r*cos(tt)*ratio, y = r*sin(tt)*ratio) lines(Dom, lwd = 2, col = "gr...
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 : 1315

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 : 1315

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 : 1315

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 : 1315

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 : 452

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 : 1204

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 : 452

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 : 452

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 : 1315

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 : 1204

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 : 1315

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 : 1204

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 <...

Aller à la recherche avancée