添加文本标签散点图GGPLOT2(Adding text labels to ggplot2 sca

是否有一个良好的方式轻松地将文本标签添加到图上的圈？ 我已经无法使用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 $")

Answer 1:

添加geom_text(aes(label=Occupational.Group), size=3)的曲线图。 你需要虽与尺寸播放。

文章来源: Adding text labels to ggplot2 scatterplot