Использование directlabels :: geom_dl, когда метка одинакова для двух групп

Question

У меня проблема с geom_dl(), где она неправильно помещает мой ярлык, потому что две группы имеют одну и ту же метку. Я могу видеть, что

data$groups <- data$label 

внутри вызова GeomDl вызывает проблемы, но я не могу понять, как это исправить.

Это то, что она в настоящее время выглядит следующим образом:

и это то, что он должен выглядеть следующим образом:

Вот данные и код ggplot:

dat <- structure(list(level = structure(c(3L, 3L, 1L, 1L, 2L, 2L), .Label = c("2", "3", "1"), class = "factor"), year = c(2013L, 2014L, 2013L, 2014L, 2013L, 2014L), mean = c(9.86464372862218, 9.61027271206025, 18.3483708337732, 15.3459903281993, 6.75036415837688, 7.33169996044336), pchange = c(" 68%", " 68%", " 76%", " 76%", " 76%", " 76%")), .Names = c("level", "year", "mean", "pchange"), row.names = c(413L, 414L, 419L, 420L, 425L, 426L), class = "data.frame") 

ggplot(dat, aes(x = year, y = mean)) + 
    geom_line(aes(color = level)) + 
    geom_dl(aes(label=pchange, color=level), method=list("last.qp")) 

Answer 1

Здесь «S некоторый вуд с невидимым юникодом символами:

dat$pchange2 <- dat$pchange 
dat$pchange2[3:4] <- paste0(dat$pchange[3:4], "\u200B") 

ggplot(dat, aes(x = year, y = mean)) + 
    geom_line(aes(color = level)) + 
    geom_dl(aes(label=pchange2, color=level), method=list("last.qp")) 

Если у вас есть несколько строк с той же меткой, вы можете добавить один и тот же символ один раз, два раза, и т.д. Та же идея может быть использована для напишите минимальную функцию предварительной обработки, которая будет более или менее универсальным решением.

Вот как полное решение может выглядеть следующим образом (от @ fishgal64):

require(magrittr) 
require(dplyr) 

dat <- select(dat, level, pchange) %>% 
    unique() %>% 
    mutate(pchange2 = ifelse(duplicated(pchange), paste0(pchange, "\u200B"), pchange)) %>% 
    merge(dat)