Добавление текстовых меток в ggplot2 scatterplot

19

Есть ли хороший способ простого добавления текстовых меток в круги на графике? Я не смог сделать это с помощью пакета directlabels, потому что получаю ошибку:

Ошибка в файле direct.label.ggplot (p, "first.qp"): нужна эстетика цвета, чтобы вывести прямые метки по умолчанию. "

Вот график:

И вот код, который я использовал:

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 $")
    
задан Michael Discenza 23.10.2012 в 05:00
источник
  • Что спросил Мннель. А также загляните в geom_text () в ggplot2 для текстовых аннотаций. –  Maiasaura 23.10.2012 в 05:05
  • @ Maiasaura, я думаю, он хочет аннотировать группу Occipational.Group (с учетом определения p) (я спросил, какой текст обозначить) –  mnel 23.10.2012 в 05:08

1 ответ

29

Добавьте geom_text(aes(label=Occupational.Group), size=3) к сюжету. Вам нужно будет играть с размером, хотя.

    
ответ дан Jared 23.10.2012 в 05:14
  • Большое спасибо! Это сработало хорошо. Я также обманывал еще кое-что, добавляя geom_dl к сюжету, и на нем были ярлыки, но было очень сложно изменить размер шрифта. Это гораздо лучшее решение. –  Michael Discenza 23.10.2012 в 05:22