代码之家 › 专栏 › 技术社区 › B. Davis

基于最小距离为组指定点

k-means distance ggplot2 r

B. Davis · 技术社区 · 6 年前

我试图根据欧几里德距离将点分组。例如,在下面的数据中,有三个点代表三个不同的组( One, Two, Three ,图中的非绿色点)。我想分配剩下的几点( Scatter 根据最小欧几里德距离(即变化)将绿色点)分组 分散 最接近 One Two Three 点数。

我想在外面做这件事 kmeans 或其他聚类函数和简单使用最小欧氏距离,但欢迎和欣赏的建议。

set.seed(123)
Data <- data.frame(
  x = c(c(3,5,8), runif(20, 1, 10)),
  y = c(c(3,5,8), runif(20, 1, 10)),
  Group = c(c("One", "Two", "Three"), rep("Scatter", 20))
)

ggplot(Data, aes(x, y, color = Group)) +
  geom_point(size = 3) +
  theme_bw()

1 回复 | 直到 6 年前

Maurits Evers 6 年前

bind_cols(
    Data,
    dist(Data %>% select(-Group)) %>%              # Get x/y coordinates from Data
        as.matrix() %>%                            # Convert to full matrix
        as.data.frame() %>%                        # Convert to data.frame
        select(1:3) %>%                            # We're only interested in dist to 1,2,3
        rowid_to_column("pt") %>%                  
        gather(k, v, -pt) %>%
        group_by(pt) %>%
        summarise(k = k[which.min(v)])) %>%        # Select label with min dist
    mutate(Group = factor(Group, levels = unique(Data$Group))) %>%
    ggplot(aes(x, y, colour = k, shape = Group)) +
    geom_point(size = 3)

dist 之间 One , Two , Three Scatter 分散 指向标签 k ( k = 1 ), 两个 ( k = 2 ), 三 ( k = 3

分散 两个 ( k=2个 ); 您可以通过添加 coord_fixed() 在 ggplot 情节链。

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前