Je réalise des cartes de PIE avec la fonction draw.pie pour étudier l'évolution de différents groupes dans une communauté.
J'ai différentes images temporelles pour lesquelles j'aimerai utiliser une seule legend bubble plot qui servirait pour les trois graphiques A, B, C
Lien Image ci dessous:
https://mega.nz/file/m6gigaDL#7bkoff2Kt ... aK5pKt915I
Voici le code que j'utilise
Code : Tout sélectionner
xyz <- make.xyz(datagrp19$X,datagrp19$Y,datagrp19$abondance,datagrp19$groupe)
x11()
plot(gridTot$X,gridTot$Y,type="n",xlab="",ylab="", main=paste(val,"of different benthic species groups - 2019"))
draw.shape(zoneADE, col="white")
draw.pie(xyz$x, xyz$y, xyz$z, radius = 900, col=col)
legend('bottomright', legend=Group, col=col, pch=pch, ncol=1)
legend.z <- round(max(xyz$z,na.rm=TRUE))
legend.bubble('bottomleft',z=legend.z,round=0,maxradius=950,bty="n",txt.cex=0.8, col="darkgrey")
text(271550,6837900,val,cex=0.8)
Je peux mettre un dput au besoin.
Si quelqu'un sait comment prendre la main sur la legend buble je suis preneur.
Merci d'avance
Anthony