R ggplot: применить метку только к последним N точкам данных в графике

Question

Я создал линейную диаграмму (график) в R с метками на каждой точке данных. Из-за большого количества точек данных, график становится очень полным с метками. Я бы хотел применить метки только для последних N (скажем, 4) точек данных. Я пробовал подмножество и хвост в geom_label_repel function, но не смог найти их у нас или получил сообщение об ошибке. Мой набор данных состоит из 99 значений, распределенных по 3 группам (KPI).

У меня есть следующий код в R:

library(ggplot) 
library(ggrepel) 

data.trend <- read.csv(file=....) 

plot.line <- ggplot(data=data.trend, aes(x = Version, y = Value, group = KPI, color = KPI)) + 

    geom_line(aes(group = KPI), size = 1) + 
    geom_point(size = 2.5) + 


    # Labels defined here 
    geom_label_repel(
    aes(Version, Value, fill = factor(KPI), label = sprintf('%0.1f%%', Value)), 
    box.padding = unit(0.35, "lines"), 
    point.padding = unit(0.4, "lines"), 
    segment.color = 'grey50', 
    show.legend = FALSE 
) 

); 

Я все справедливости, я совершенно новый для R. Может быть, я что-то пропустил основное.

Заранее спасибо.

Answer 1

простой подход это установить параметр data = в geom_label_repel включать только вопросы, которые вы хотите меченые.

Вот воспроизводимый пример:

set.seed(1235) 
data.trend <- data.frame(Version = rnorm(25), Value = rnorm(25), 
         group = sample(1:2,25,T), 
         KPI = sample(1:2,25,T)) 

ggplot(data=data.trend, aes(x = Version, y = Value, group = KPI, color = KPI)) + 
    geom_line(aes(group = KPI), size = 1) + 
    geom_point(size = 2.5) + 
    geom_label_repel(aes(Version, Value, fill = factor(KPI), label = sprintf('%0.1f%%', Value)), 
    data = tail(data.trend, 4),     
    box.padding = unit(0.35, "lines"), 
    point.padding = unit(0.4, "lines"), 
    segment.color = 'grey50', 
    show.legend = FALSE) 

К сожалению, это немного портит с алгоритмом отталкиваются, что делает размещение этикетки неоптимальное по отношению к другим точкам, которые не помечены (вы можете увидеть в приведенном выше рисунке, что некоторые точки покрываются метками).

Итак, лучший подход заключается в использовании color и fill просто сделать нежелательные ярлыки невидимыми (установив как цвет и заливку NA для этикеток, которые вы хотите скрыть):

ggplot(data=data.trend, aes(x = Version, y = Value, group = KPI, color = KPI)) + 
    geom_line(aes(group = KPI), size = 1) + 
    geom_point(size = 2.5) + 
    geom_label_repel(aes(Version, Value, fill = factor(KPI), label = sprintf('%0.1f%%', Value)), 
        box.padding = unit(0.35, "lines"), 
        point.padding = unit(0.4, "lines"), 
        show.legend = FALSE, 
        color = c(rep(NA,21), rep('grey50',4)), 
        fill = c(rep(NA,21), rep('lightblue',4)))