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

Question

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

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, в разделе «Определение метода позиционирования как список".