2016-03-29 1 views
3

J'ai données ci-dessous:ggplot modèle GLM ligne lisse avec un vecteur donné de poids

numbers <- structure(list(density = c(1L, 4L, 10L, 22L, 55L, 121L, 210L, 
444L), females = c(1L, 3L, 7L, 18L, 22L, 41L, 52L, 79L), males = c(0L, 
1L, 3L, 4L, 33L, 80L, 158L, 365L), maleProp = c(0, 0.25, 0.3, 
0.181818181818182, 0.6, 0.661157024793388, 0.752380952380952, 
0.822072072072072), total = c(1L, 4L, 10L, 22L, 55L, 121L, 210L, 
444L)), .Names = c("density", "females", "males", "maleProp", 
"total"), row.names = c(NA, -8L), class = "data.frame") 

Je veux avoir une ligne lisse avec la méthode glm avec total comme weight. J'ai essayé,

ggplot(numbers, aes(density, maleProp)) + geom_point() + 
    stat_smooth(method = "glm", 
       method.args = list(family = "binomial", 
           type = "response", 
           weights = "total")) 

j'ai eu erreur,

Warning message: 
Computation failed in `stat_smooth()`: 
formal argument "weights" matched by multiple actual arguments 

Comment puis-je tracer la ligne lisse dans ce cas?

+0

I essayé votre code et cela a fonctionné. Serait-ce que vous avez défini «total» d'une manière ou d'une autre, ce qui désoriente l'analyseur? –

+1

[Zahiro Mor] (http://stackoverflow.com/users/4700149/zahiro-mor) :: Cela peut être l'ancienne version de ggplot, s'il vous plaît mettre à jour votre version de ggplot, vous aurez la même erreur. – TheRimalaya

Répondre

4

Si vous souhaitez utiliser un glm avec les paramètres que vous avez décrites, vous pouvez créer une fonction d'emballage comme suit:

binomial_smooth <- function(...) { 
    geom_smooth(method = "glm", method.args = list(family = "binomial"), ...) 
} 

que vous pouvez utiliser directement sur votre objet ggplot2:

ggplot(numbers, aes(density, maleProp)) + geom_point() + binomial_smooth(aes(weight = total))