图例为文本以及每个类别的点和相同颜色

Question

我想在R中绘制散点图，在类别Z（由颜色分隔）上使用特殊图例创建变量Y和X.不是图例框，而是类别名称沿着该类别的点显示为文本，并且文本与点的颜色相同。

R有没有办法自动执行此操作？

PS：我知道我可以做到这一点＆＃34;手动＆＃34;添加＆＃34; text（）＆＃34;并指定每个类别的位置和颜色

例如，我试图复制此图表的外观（我在Stata手动制作）：

编辑：在阅读下面的评论之后，这里是数据和问题的解决方案：

library(ggplot2);library(reshape);library(scales);library(directlabels)
dat <- read.csv("https://dl.dropboxusercontent.com/u/4329509/Fdat_graf.csv")
dat_long <- melt(dat, id="ano")
p <-   qplot(ano,value, data=dat_graf_long, colour=variable)+       scale_y_log10(breaks=c(.1,1,10,100,500,1000),labels = comma) + scale_x_continuous(breaks=seq(from=1960, to=2010, by=10))  + theme_bw()
direct.label(p)

对于那些感兴趣的人，图表是否适用于常用数据集的大小（家庭调查（PNAD，~0.3GB），CENSUS微数据（~10GB）和所有就业合同登记表（RAIS，每年20GB）） ，相对于一个体面大小的服务器的可用内存（RAM）（基线是2010年的96GB RAM服务器），以摩尔定律率增长。它显示了曾经被认为是＆＃34;大数据＆＃34;必将成为＆＃34;小数据＆＃34;由于摩尔定律的推进。