Discussion :

[mathieu_r]

Bonjour,

Je souhaite générer une image, sorte d'atlas des pays du monde triés selon leur caractère élongé.

L'image est OKL (voir PJ) mais j'ai un problème dans l'affichage de leurs noms.

Y a-t-il une limitation au nombre de plots affichés dans une grille de plots pour l'affichage de leurs titres?

Dans mon cas, la grille est de 10*10.

Voici le code pour ce qui est de l'affichage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
png(file="IMG/deconstruction.png", width=3000, height=3000)
par(mfrow=c(nrows,ncols), bg=gray(.3))
sapply(rev(order(els)), function(x) {
          colr <- cols[[countries$continent[x]]]
          plot(countries[x, ], col=colr, border=NA, main=countries$name[x])
          })
dev.off()

Merci par avance de vos lumières.

[vchouraki]

Bonjour,

Quelques pistes,

L'argument border de la fonction plot n'existe pas dans la fonction de base mais est utilisé dans d'autres (legend, polygon...). Utilisez-vous une version de plot issue d'un package en particulier?

Est-ce que les titres sont là quand vous ne mettez aucune couleur particulière pour le background?

La taille de votre png est importante, avez-vous essayé de changer la taille des fontes (argument cex ou cex.main je crois) par quelque chose d'énorme juste pour voir?

HTH

Vincent

[mathieu_r]

Bonjour,

J'ai tenté les méthodes pré-citées, sans succès.

Je fais un plot depuis RStudio version 0.96

Aussi, les objets sur lesquels je fais des plots sont des objets spatiaux de classe SpatialPolygons

[mathieu_r]

Il est possible de faire des tests à partir de ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
library(sp)
data(meuse.riv)
meuse.sr = SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)),"meuse.riv")))
 
png(file="C:/test.png", h=2000, w=2000)
par(mfrow=c(10,10))
sapply(1:100, function(x) plot(meuse.sr, main="titre"))
dev.off()

Vous verrez que titre ne s'affiche pas.

Pourtant, dans une fenêtre plot non maillée, ce dernier s'affiche. Je pense que cela est dû au nombre de plots dans l'image.

[vchouraki]

Bonjour,

Merci beaucoup pour le code.

Sur mon ordi (voir infos en bas), que ce soit un graphe ou 100 maillés, le titre ne s'affiche pas quand j'utilise l'argument main. Par contre le code suivant marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
library(sp)
data(meuse.riv)
meuse.sr = SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)),"meuse.riv")))

png(file="C:/test.png", h=2000, w=2000)
par(mfrow=c(10,10))
sapply(1:100, function(x) {
   plot(meuse.sr)
   title("Titre")
})
dev.off()

HTH

Vincent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
platform       x86_64-pc-linux-gnu          
arch           x86_64                       
os             linux-gnu                    
system         x86_64, linux-gnu            
status                                      
major          2                            
minor          15.2                         
year           2012                         
month          10                           
day            26                           
svn rev        61015                        
language       R                            
version.string R version 2.15.2 (2012-10-26)
nickname       Trick or Treat