向ggplot2散点图添加文本标签
向ggplot2散点图添加文本标签
提问于 2012-10-23 11:00:59
有没有简单的方法将文本标签添加到图表上的圆圈中？我不能使用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 $")回答 1
Stack Overflow用户
回答已采纳
发布于 2012-10-23 11:14:44
将geom_text(aes(label=Occupational.Group), size=3)添加到绘图中。不过，你需要调整一下尺寸。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/13022940
复制相关文章
相似问题
腾讯云开发者
