Выбор коэффициента для меток (ggplot2, directlabels)

Question

Я хотел бы использовать пакет directlabels для обозначения моего сюжета. Тем не менее, я бы хотел, чтобы метка была идентификатором каждой точки. Неужели нет способа выбрать фактор для маркировки или я это пропустил?

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

Проверка кодаdirect.label.ggplot() показывает, что geom_dl() называется в конце. Эта функция ожидает эстетического картирования и метода позиционирования. Метод позиционирования, используемый по умолчанию, является возвращаемым значением 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)

Для другого примера см. Документацию, в разделе "Указание метода позиционирования в виде списка".