GGPLOT: HOW TO DISPLAY THE LAST VALUE OF EACH LINE AS LABEL

# Load required R packages
library(tidyverse)
library(ggrepel)
# Set ggplot2 default theme to theme_bw()
theme_set(theme_bw())

# Demo data
df <- tibble::tribble(
  ~Species, ~Petal.Length, ~Petal.Width, ~Sepal.Length, ~Sepal.Width,
  "setosa",         1.462,        0.246,         5.006,        3.428,
  "versicolor",          4.26,        1.326,         5.936,         2.77,
  "virginica",         5.552,        2.026,         6.588,        2.974
)
df_long <- df %>%
  pivot_longer(
    Petal.Length:Sepal.Width,
    names_to = "variable", values_to = "value"
  )
# Basic line plot
lp <- ggplot(df_long, aes(x = Species, y = value, group = variable)) +
  geom_line(aes(color = variable)) +
  geom_point() +
  theme(legend.position = "top")

# Filter the last values and add onto the line plot
# Corresponds to the `virginica` species
data_ends <- df_long %>% filter(Species == "virginica")
lp + 
  geom_text_repel(
    aes(label = value), data = data_ends,
    fontface ="plain", color = "black", size = 3
  )