Update cooks distance plot

ModelOriented · Aug 6, 2018 · 91f09f3 · 91f09f3
1 parent c6053b4
commit 91f09f3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/observationInfluence.R b/R/observationInfluence.R
@@ -11,7 +11,7 @@ observationInfluence <- function(object, ...){
 
   cooksDistances <- scoreCooksDistance(object, ...)
 
-  result <- data.frame(cooks.dist = cooksDistances, label = object$label, index = rownames(object$data))
+  result <- data.frame(cooks.dist = cooksDistances, label = object$label, index = 1:length(object$y))
   result <- result[order(-result$cooks.dist),]
 
   class(result) <- c("observationInfluence", "data.frame")

diff --git a/R/plotCooksDistance.R b/R/plotCooksDistance.R
@@ -48,7 +48,7 @@ plotCooksDistance <- function(object, nlabel = 3, ...){
 
   ggplot(df, aes(index, cooks.dist)) +
       geom_point() +
-      geom_text(data = subset(df, big==TRUE), aes(label=as.character(index)),hjust=-0.2,vjust=-0.2) +
+      geom_text(data = subset(df, big==TRUE), aes(label=as.character(index)), color = "grey") +
       facet_grid(label ~ .) +
       xlab("observation index") +
       ylab("cook's distance") +