ggplot2 Étiquettes de tracé de dispersion

Question

J'essaie d'utiliser ggplot2 pour créer et étiqueter un diagramme de dispersion. Les variables que je trace sont toutes deux mises à l'échelle de sorte que l'axe horizontal et l'axe vertical sont tracés en unités d'écart type (1,2,3,4, ... de la moyenne). Ce que je voudrais pouvoir faire, c'est étiqueter SEULEMENT les éléments qui dépassent une certaine limite d'écarts-types par rapport à la moyenne. Idéalement, cet étiquetage serait basé sur une autre colonne de données.

Existe-t-il un moyen de le faire?

J'ai parcouru le manuel en ligne, mais je n'ai pas réussi à trouver quoi que ce soit à propos de la définition d'étiquettes pour les données tracées.

L'aide est appréciée!

Merci!

BEB

Answer 1

Utilisation subsetting:

library(ggplot2) 
x <- data.frame(a=1:10, b=rnorm(10)) 
x$lab <- letters[1:10] 
ggplot(data=x, aes(a, b, label=lab)) + 
    geom_point() + 
    geom_text(data = subset(x, abs(b) > 0.2), vjust=0) 

Answer 2

L'étiquetage peut être fait de la manière suivante:

library("ggplot2") 
x <- data.frame(a=1:10, b=rnorm(10)) 
x$lab <- rep("", 10) # create empty labels 
x$lab[c(1,3,4,5)] <- LETTERS[1:4] # some labels 
ggplot(data=x, aes(x=a, y=b, label=lab)) + geom_point() + geom_text(vjust=0) 

Answer 3

Jeu partiel en dehors de la fonction ggplot:

library(ggplot2) 
set.seed(1) 
x <- data.frame(a = 1:10, b = rnorm(10)) 
x$lab <- letters[1:10] 
x$lab[!(abs(x$b) > 0.5)] <- NA 
ggplot(data = x, aes(a, b, label = lab)) + 
    geom_point() + 
    geom_text(vjust = 0) 

En utilisant q intrigue:

qplot(a, b, data = x, label = lab, geom = c('point','text'))