r - 如何绘制间距合适的数据标签？

Question

在图中标记数据点可能会变得笨拙:

随机抽样几个标签可能会令人失望:

选择一小组间隔良好的数据标签的好方法是什么？也就是说，随机选择标签不重叠的代表。

# demo data
set.seed(123)
N <- 50
x <- runif(N)
y <- x + rnorm(N, 0, x)
data <- data.frame(x, y, labels=state.name)

# plot with labels
plot(x,y)
text(x,y,labels)

# plot a few labels
frame()
few_labels <- data[sample(N, 10), ]
plot(x,y)
with(few_labels, text(x,y,labels))

Answer 1

一种方法是通过集群。这是一个使用 stats::hclust 的解决方案。我们聚集聚类中的数据点，然后从每个聚类中随机选择一个观察值。

few_labels <- function(df, coord=1:ncol(df),grp=5){

  require(dplyr)
  df$cl <- cutree(hclust(dist(df[,coord])),grp)
  few_labels <- df %>% group_by(cl) %>%
    do(sample_n(.,1))
  return(few_labels)
}

# demo data
set.seed(123)
N <- 50
x <- runif(N)
y <- x + rnorm(N, 0, x)
data <- data.frame(x, y, labels=state.name)

# plot a few labels
frame()
few_labels <- few_labels(data,coord=1:2,grp=12)
plot(x,y)
with(few_labels, text(x,y,labels))