将点从它们的平均值分成相等的组

Question

我有一组像这样的点，我正在尝试根据它们与平均值的距离将它们分组或聚类为大小相等的四组。

df <- data.frame(x = rnorm(50, 0, 1),
                 y = rnorm(50, -0, 0.7))

ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  geom_abline(slope = 0.7, intercept = 0) +
  geom_abline(slope = -0.7, intercept = 0)

在这种情况下，我希望根据每个点相对于平均值的距离（此处为 (0,0)）以及该距离的趋势是向上、向下、向左还是向右，为每个点分配一个组.感谢您的帮助。

Answer 1

df <- data.frame(x = rnorm(50, 0, 1),
                 y = rnorm(50, -0, 0.7),
                 center = rep(0,50))  # not really needed 
df$v1 <- -df$x^2     # vector one 0(center) - df$x2
df$v2 <- -df$y^2     # vector two 0(center) - df$y2
df$dist = df$v1 + df$v2  
df$len = sqrt(abs(df$dist)) #lenght of vector betwen center and point
df$group = cut(df$len, 10,labels = paste("Level",LETTERS[1:10])) # grouping into 10 bins

df<-df %>% mutate(posit= case_when(x < mean(x) & y < mean(y) ~ "A", 
                              x > mean(x) & y  > mean(y) ~ "B",
                              x <mean(x) & y  >mean(y) ~ "C",
                              x >mean(x) & y  <  mean(y) ~ "D"))             

ggplot(data = df ) +
  geom_point(aes(x = x, y = y,col= group, shape= posit, size=2)) +
  geom_vline(xintercept =mean(df$x))+
  geom_abline(slope = -0.0, intercept =mean(df$y))