Если у меня есть такой набор данных set.seed(100) data <- data.frame("x" = c(1, 1, 1, 2, 2, 2, 3, 4, 4, 4, 5, 5, 5), "y" = rnorm(13), "factor" = c("a","b","c","a","b", "c", "c", "a",...