Modérateur : Groupe des modérateurs
Code : Tout sélectionner
x <- sample(60, 60)
y <- sample(60, 60)
palette(c("red", "green", "blue"))
col <- as.numeric(cut(x, breaks = c(0, 20, 40, 60)))
png("mygraph.png")
plot(x, y, col = col, xlab = "", ylab = "", axes = FALSE)
dev.off()
Code : Tout sélectionner
palette(c("red", "green", "blue", "orange", "brown")) #au choix
col.var <- as.numeric(cut(pays_test$var, breaks = c(0, 24, 48, 72, 96, 120))) #si les 5 classes sont régulières
png("mygraph.png")
plot(pays_test$abscisse, pays_test$ordonnée, col = col.var, xlab = "", ylab = "", axes = FALSE)
dev.off()
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Google [Bot] et 1 invité