Ajouter des étiquettes de texte à ggplot2 nuage de points
Est-il un bon moyen moyen facile d'ajouter des étiquettes de texte pour les cercles sur le graphique? Je n'ai pas pu le faire à l'aide de la directlabels colis, car j'ai l'erreur:
Erreur en direct.de l'étiquette.ggplot(p, "en premier.qp") : Nécessité de couleur esthétique à déduire direct par défaut des étiquettes."
Voici le graphique:
Et voici le code que j'ai utilisé:
library(ggplot2)
library(directlabels)
#my data set:
oc <- read.csv("http://www.columbia.edu/~mad2200/oc.csv")
oc$percent_women <- oc$W_employment/(oc$M_employment+oc$W_employment)
oc$size <- oc$W_employment+oc$M_employment
p <- ggplot(oc, aes(M_w_earnings, W_w_earnings, label = as.character(Occupational.Group)))
p + geom_point(aes(size = size, colour=percent_women)) + scale_size_continuous(range=c(0,30)) + #scale_area()+
#geom_point(aes(colour = oc$percent_women)) +
coord_equal() +
scale_colour_gradient(high = "red")+
ylim(700, 1700) +
xlim(700, 1700) +
geom_abline(slope=1) +
labs(title = "Income Disparity by Occupation and Gender") +
ylab("Women's Weekly Earnings in $") +
xlab("Men's Weekly Earnings in $")
- Ce mnel demandé. Et aussi regarder en
geom_text()
dansggplot2
pour les annotations de texte. - Je pense qu'il veut annoter le Occipational.Groupe (compte tenu de la definiition de p) (j'avais demandé à ce texte de l'étiquette avec)
Vous devez vous connecter pour publier un commentaire.
Ajouter
geom_text(aes(label=Occupational.Group), size=3)
à la parcelle. Vous aurez besoin de jouer avec la taille de l'.