选择标签因子（ggplot2，directlabels）

Question

我想使用包直接标签来标记我的情节。但是，我希望标签是每个点的ID。难道真的没有办法选择标注哪个因素，或者我是否错过了这个因素？

library(ggplot2)
library(directlabels)
df <- structure(
    list(id = 1:10,
         group = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L),
         .Label = c("A", "B"),
         class = "factor"),
         value1 = c(4, 1, 6, 2, 5, 7, 3, 2, 5, 8),
         value2 = c(6, 2, 6, 2, 8, 9, 7, 5, 2, 6)
         ),
.Names = c("id", "group", "value1", "value2"),
row.names = c(NA, -10L),
class = "data.frame")

p1 <- ggplot(df, aes(x=value1, y=value2)) + geom_point(aes(colour=group))
direct.label(p1)

Answer 1

检查the code of direct.label.ggplot()表明最终会调用geom_dl()。该功能需要美学映射和定位方法。使用by default的定位方法是default.picker("ggplot")的返回值，它使用调用堆栈检查，在您的情况下等同于调用defaultpf.ggplot("point",,,)。以下适用于我：

p1 <- ggplot(df, aes(x=value1, y=value2)) +
  geom_point(aes(colour=group)) +
  geom_dl(aes(label = id), method = defaultpf.ggplot("point",,,))
p1

（请注意，您不再需要致电direct.label()。）

directlabels包的文档确实有点稀缺。

Answer 2

您必须编写自定义位置方法，如下所示：

label_all <- list( dl.trans(x = x + 0.5, y = y + 0.5), # shift every point up and right
                   gapply.fun(d) ) # include all points
direct.label(p1, method = label_all)

有关其他示例，请参阅“将定位方法指定为列表”下的the documentation。