Modérateur : Groupe des modérateurs
Code : Tout sélectionner
ggplot(df, aes(A, B, shape = factor(Année))) + geom_point()+scale_shape_manual(values = c(0, 21, 5, 6, 8, 3, 16, 17, 19))
Maxime. ;-)Bocar BALDE a écrit :Merci Pierre
Code : Tout sélectionner
ggplot(x, aes(x = A, y = B, label = Année)) +
geom_point() +
geom_text(nudge_y = -.1)
Pierre-Yves Berrard a écrit :Il n'y a pas de variable PF dans vos données, donc il faut préciser un peu ce que vous voulez faire.
Logez Maxime a écrit :Bonjour,
S'il s'agit d'estimer une parabole entre les points de ton graphique je n'en vois pas trop l'intérêt parce que ça ne semble par réellement parabolique l'affaire et de toute manière on sortirait des objectifs de ce forum.
Par contre si tu connais l'équation de cette dernière alors poste la qu'on puisse t'aider à l'ajouter au graph (ce qui est dans les objectifs de ce forum).
Cordialement,
Maxime
Code : Tout sélectionner
library(tidyverse)
df <- read_table2("Annee A B
2004 24.00800 26.89029
2005 24.54300 25.03592
2006 24.11875 24.24905
2007 24.17300 25.28781
2008 24.57300 24.70925
2009 22.13500 23.68153
2010 23.47433 26.27114
2011 25.62967 26.21234
2012 24.12120 26.08139")
Code : Tout sélectionner
ggplot(df, aes(A, B)) +
geom_point() +
geom_text(aes(label = Annee), nudge_y = -.1) +
geom_smooth(method = "lm", formula = y ~ poly(x, 2))
Code : Tout sélectionner
ggplot(df, aes(A, B)) +
geom_point() +
geom_text(aes(label = Annee), nudge_y = -.2) +
stat_function(fun = function(x) { -661.65 + 58.65 * x - 1.25 * x^2 })
Michaël Delorme a écrit :Avec les données :Code : Tout sélectionner
library(tidyverse)
df <- read_table2("Annee A B
2004 24.00800 26.89029
2005 24.54300 25.03592
2006 24.11875 24.24905
2007 24.17300 25.28781
2008 24.57300 24.70925
2009 22.13500 23.68153
2010 23.47433 26.27114
2011 25.62967 26.21234
2012 24.12120 26.08139")
On peut ajouter une courbe d'ajustement polynomiale, mais je ne suis pas sûr que c'est ce que tu veux :Code : Tout sélectionner
ggplot(df, aes(A, B)) +
geom_point() +
geom_text(aes(label = Annee), nudge_y = -.1) +
geom_smooth(method = "lm", formula = y ~ poly(x, 2))
Tu peux aussi ajouter une courbe arbitraire, dont tu connais l'équation par ailleurs, avec stat_function() :Code : Tout sélectionner
ggplot(df, aes(A, B)) +
geom_point() +
geom_text(aes(label = Annee), nudge_y = -.2) +
stat_function(fun = function(x) { -661.65 + 58.65 * x - 1.25 * x^2 })
Code : Tout sélectionner
summary(lm( B ~ A + I(A ^ 2), data = df))
Code : Tout sélectionner
summary(lm( B ~ poly(A, 2, raw = TRUE), data = df))
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Google [Bot] et 1 invité