区分点图案R

Question

是否可以区分R中每组的不同点模式？

我正在努力确定每组的点模式。在下面的图中，我们绘制了三组显示不同模式的图形：

我们可以看到：

• 第1组显示的点的模式几乎在y轴上恒定并且在x轴上移动
• 第2组显示随机点->没有清晰的图案
• 第3组显示以某种方式聚集的点（其中x在7500和10000之间）和一些随机点

用于创建绘图的示例数据，您可以在下面找到：

df <- structure(list(Group = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L), 
    x = c(112L, 875L, 962L, 1125L, 1162L, 1362L, 1512L, 1575L, 
    1700L, 4162L, 4737L, 4812L, 4900L, 5100L, 5287L, 5600L, 5687L, 
    5825L, 5987L, 6112L, 6150L, 6200L, 6250L, 6312L, 6400L, 6450L, 
    6575L, 6600L, 6637L, 6662L, 6850L, 6887L, 6950L, 7387L, 7475L, 
    7537L, 7700L, 7875L, 8137L, 8525L, 8637L, 8662L, 8950L, 9112L, 
    9300L, 9587L, 9625L, 9362L, 2525L, 287L, 2575L, 3600L, 5237L, 
    6187L, 8037L, 8312L, 8437L, 8537L, 8875L, 9137L, 9250L, 9275L, 
    9325L, 9425L, 9562L, 9612L, 9662L, 9687L, 9725L, 9787L, 675L, 
    1287L, 1437L, 2212L, 3350L, 3487L, 3775L, 4837L, 6162L, 7025L, 
    7437L, 7487L, 7787L, 8687L, 9275L, 9712L, 9775L, 712L), y = c(87L, 
    79L, 78L, 77L, 68L, 75L, 656L, 660L, 656L, 524L, 522L, 525L, 
    79L, 524L, 525L, 526L, 523L, 525L, 524L, 527L, 522L, 525L, 
    529L, 525L, 524L, 527L, 534L, 528L, 526L, 530L, 527L, 324L, 
    527L, 530L, 543L, 534L, 536L, 534L, 535L, 538L, 527L, 528L, 
    527L, 529L, 529L, 529L, 534L, 216L, 169L, 719L, 187L, 249L, 
    638L, 96L, 674L, 666L, 667L, 673L, 802L, 233L, 227L, 147L, 
    223L, 196L, 220L, 226L, 199L, 227L, 222L, 225L, 528L, 330L, 
    768L, 211L, 286L, 482L, 865L, 358L, 809L, 196L, 803L, 77L, 
    363L, 829L, 859L, 0L, 1L, 78L)), row.names = c(NA, -88L), class = c("data.table", 
"data.frame"), .internal.selfref = <pointer: 0x0000000000101ef0>)

数据由 Group ， x 和 y 列组成。

上面创建情节的代码：

library(ggplot)
ggplot(df, aes(x = x, y = y)) + geom_point(size = 5) + facet_wrap(~Group, ncol = 1) + theme_bw()

所需的输出（，如果可能的话，但我愿意接受任何想法或可以做的任何事情）*：

Group Long Pattern No_Pattern Clustered
1        1              0         0
2        0              1         0
3        0              1         1

*whereas 1 = yes, 0 = no

任何提示或想法都非常欢迎！ 谢谢