1. Grâce à ce formulaire vous pouvez proposer une astuce ou un script sur R.
  2. Votre script doit pouvoir être lancé en l'état. Veuillez penser à :
    • inclure le chargement des "library" nécessaires
    • construire un petit jeu de données si besoin est.
    • commenter les lignes de codes pour en faciliter la compréhension.
  3. Le titre de votre script ou astuce doit être clair et explicite.
  4. Pensez à mettre votre code entre les balises [R] et [/R]; Pour cela, vous pouvez utiliser le bouton

Vous pouvez utiliser vos comptes Facebook, twitter ou google pour vous identifer (google est compatible yahoo, openID...)
L'ideal étant de vous connecter si vous avez un compte utilisateur, ou faire une demande de compte utilisateur si vous n'en avez pas encore.
Créer un compte va vous permettre de pouvoir éditer vos codes et de mettre en avant votre site internet.
Sinon vous pouvez soumettre anonymement en remplissant les champs ci-après.







Choisissez les catégories correspondantes à votre Code:

  • algorithmique
  • Analyse de survie
  • base indispensable
  • bayésien
  • configuration de R
  • exportation de données
  • fonctions utiles
  • graphique
  • importation de données
  • inférence
  • manipulation de données
  • message d'erreur
  • modélisation
  • Non classé
  • optimisation
  • planification
  • programmer avec R
  • regression linéaire
  • Test
  • tidyverse
  • Transformation de données


Les scripts R de Melen Leclerc

Comment sauver un graphique en pdf? pdf

0
dans graphique
- ça ne sert à rien -- c\'est interessant - (score de +21 sur 21 votes)
Loading ... Loading ...
R vous permet de sauvegarder directement vos graphique en pdf. Vous pouvez ainsi choisir les dimensions du fichier et obtenir la qualité voulue. Pour cela il suffit d’utiliser la fonction pdf. Les nombreux arguments de la fonction permettent de choisir de nombreux paramètres: ?pdf.
Un exemple:


 
 
 setwd("D:/R/image") #on choisit le répertoire
 
#pour l'exemple on trace la croissance radiale d'une plante
 
 host<-function(t){5/(1+1000*exp(-1.18*t^0.4))}
time<-c(0:200)
 
# on utilise la fonction pdf avant le graphique
 
pdf("croissance_plante.pdf", height=10,width=10) #les tailles sont à 7 par défaut
 
#on trace le graphique
 
par(mar=c(4, 6, 2, 1),cex.lab=1.3,cex.axis=1.2)
plot(host(time)~time,type='l',lwd=4.5,col="grey",ylab="Plant radius (cm)",
    xlab="",ylim=c(0,5))
abline(h=1.1,col='gray10',lty=3)
abline(v=50,col='gray10',lty=3)
abline(h=3.15,col='grey',lty=3)
abline(v=100,col='grey',lty=3)
arrows(100,1.1,100,3.15,col='red',lwd=4,code=3)
arrows(50,1.1,100,1.1,col='black',lwd=4,code=3)
 
 #on ferme le graphique
 
dev.off()
 
#le pdf se situe dans votre répertoire
 
 


Notez qu’il est possible de sauver vos graphique sous de nombreux formats en utilisant des fonctions similaires comme jpeg(), tiff(), png(), bmp()….


Proposé par Melen Leclerc.

Pas encore de commentaire, cliquez ici pour réagir.

Comment ajouter du texte sur un graphique? text

1
dans graphique
- ça ne sert à rien -- c\'est interessant - (score de +3 sur 3 votes)
Loading ... Loading ...
R vous permet d’ajouter du texte à vos graphique en utilisant la fonction text. Il vous suffit de fournir les coordonnées du point où le texte doit être affiché. Si vous n’en avez aucune idée n’hésitez pas à utiliser la fonction locator() pour vous repérer.
Un exemple:

 
 
 host<-function(t){5/(1+1000*exp(-1.18*t^0.4))}
time<-c(0:200)
 
 
par(mar=c(4, 6, 2, 1),cex.lab=1.3,cex.axis=1.2)
plot(host(time)~time,type='l',lwd=4.5,col="grey",ylab="Plant radius (cm)",
    xlab="",ylim=c(0,5))
abline(h=1.1,col='gray10',lty=3)
abline(v=50,col='gray10',lty=3)
abline(h=3.15,col='grey',lty=3)
abline(v=100,col='grey',lty=3)
arrows(100,1.1,100,3.15,col='red',lwd=4,code=3)
arrows(50,1.1,100,1.1,col='black',lwd=4,code=3)
 
# on ajoute du texte en face des flèches en choisissant la couleur et la taille avec col et cex
 
text(150,2.2," croissance radiale",col='red',cex=1.5)
text(75,0.5,"dt",cex=1.5)
 
 


Proposé par Melen Leclerc.

1 commentaire. Cliquez ici pour réagir.

Comment ajouter des cercles à un graphique? symbols

0
dans graphique
- ça ne sert à rien -- c\'est interessant - (score de +4 sur 4 votes)
Loading ... Loading ...
Pour ajouter des cercles à un graphiques (ou simplement tracer des cercles) vous pouvez utiliser la fonction symbols qui permet d’ailleurs de tracer également des carrés, rectangles, étoiles etc…
Un petit exemple pour les cercles:


 
 # coordonnées du centre des cercles
ax<-c(20,20,20,80,80,80)
by<-c(80,20,20,80,20,20)
 
#taille
s<-c(1,1,2,1,1,2)
#couleur
couleur<-c("black","black","grey","blue","green","grey")
 
#on trace les cercles sur un graphique
symbols(ax,by,circles=s,inches=1,fg=couleur,xlim=c(0,100),ylim=c(0,100),lwd=2.5) 
 
#pour le fun on ajoute un carré en rouge
 
 symbols(50,50,squares=10,inches=1,fg="red",add=TRUE,lwd=2.5) 
 
 

Proposé par Melen Leclerc.

Pas encore de commentaire, cliquez ici pour réagir.

Comment ajouter une flèche à un graphique ? : arrows

0
dans graphique
- ça ne sert à rien -- c\'est interessant - (score de +1 sur 5 votes)
Loading ... Loading ...
Il peut être utile d’ajouter des flèches à vos graphiques R. La fonction arrows est là pour vous!

Comme toujours commencez par regarder les arguments de la fonction : ?arrows
Les 4 premiers aruguments correspondent aux coordonnées (vecteurs de coordonnées pour plusieurs flèches) de début et de fin de la flèche. N’hesitez pas à utiliser la fonction locator() pour vous aider à trouver ces coordonnées. Ensuite vous pouvez choisir où se trouve le bout de la flèche avec l’arguement code. Enfin comme pour les courbes vous pouvez modifier l’épaisseur, la couleur et le type de trait avec lwd,col et lty. Voici un exemple

 
 
 #coordonnées des fleches 1
x0<-c(20,20)
y0<-c(80,20)
x1<-c(80,80)
y1<-c(80,20)
 
# autre jeu de flèche
a0<-c(10,70)
b0<-c(90,10)
a1<-c(50,50)
b1<-c(70,10)
 
#on choisit les couleurs et le type de trait
couleur<-c("green","blue")
lt<-c(1,3)
 
 
plot.new()
plot.window(xlim=c(0,100),ylim=c(0,100))
arrows(x0,y0,x1,y1,code=3,lwd=2)                            #code=3 pour une double flèche
arrows(a0,b0,a1,b1,code=1,lty=lt,col=couleur,lwd=4)
box() 
 


Proposé par Melen Leclerc.

Pas encore de commentaire, cliquez ici pour réagir.

Comment tracer un graphique à deux ordonnées dans R ?

3
dans graphique
- ça ne sert à rien -- c\'est interessant - (score de +11 sur 11 votes)
Loading ... Loading ...
Il existe plusieurs façons de faire un graphique avec deux ordonnées. En voici une qui utilise les outils graphiques de base

 
 # Données d'exemple (peu importe...)
times<-seq(0,3000)
p<- 0.002197451 * exp(- 0.0009076665 *times)
b1<- 7.376812e-08
b2<-0.2652811
b3<- 1986.235
s<-b1*exp(-0.5*(log(times/b3)/b2)^2)
# On ouvre une nouvelle fenêtre plot.new()
# On choisit les paramètres de la fenêtre, voir ?par, ici mar correspond aux marges par(mar=c(5,4,3,4))
# On met le premier graphique en définissant les limites des axes
plot.new()
plot.window(xlim=c(0,3000),ylim=c(0,0.0022))
 
lines(p~times,type='l',col='burlywood1',lwd=3)
# on ajoute les axes et leurs légendes
axis(1)
axis(2)
title(xlab="time")
title(ylab="rp")
# On superpose le graphique avec un axe des ordonnées différent qui sera à droite du graphique (axis(4))
plot.window(xlim=c(0,3000),ylim=c(0,8e-08))
lines(s~times,type='l',col='burlywood3',lwd=3)
axis(4)
#titre du graphique
title(main="force of infection")
#légende de l'ordonnée n°2
mtext("rs",side=4,line=2.5)
#on termine le graphique
box() 
 
 

Proposé par Melen Leclerc.

Déjà 3 commentaires. Cliquez ici pour réagir.
Formation logiciel R