Сначала мы добавляем столбец с коэффициентом к нашему фрейму данных, а затем можем построить его
library(ggplot2)
library(dplyr)
data.frame(
abc=c(8,9,10,11,12,13,14,15,1,2,3,4,5,21,22,23,24,25),
the_factor=c(rep(1,times= 15-8+1), rep(2, times = 5-1+1), rep(3, times = 25-21+1))
) %>%
ggplot(aes(x=the_factor, y=abc, col=the_factor %>% as.factor())) +
geom_point()