r - 如何使用 geom_count 从最小点中删除笔划？

Question

我正在尝试使用 geom_count() 通过它们的出现频率来调整 ggplot 上的点，但由于某种原因，最小的点最终会出现黑色笔划。我尝试了不同的形状，stroke = 0，一切，但我无法弄清楚。我真的很感激任何帮助！

代表：

library(ggplot2)

frame = data.frame(X = sample(1:7,100,replace=T),
                   Y = sample(1:7,100,replace=T))

ggplot(data = frame, aes(X, Y)) +
  scale_color_grey(start = .6, end = .2) +
  geom_point() +
  geom_count(aes(color = as.factor(..n..)))

例子：

Answer 1

这可以帮助：

library(ggplot2)
#Code
ggplot(data = frame, aes(X, Y)) +
  scale_color_grey(start = .6, end = .2) +
  geom_point(shape=21,color='transparent') +
  geom_count(aes(color = as.factor(..n..)))

输出：

或仅：

#Code 2
ggplot(data = frame, aes(X, Y)) +
  scale_color_grey(start = .6, end = .2) +
  geom_point(color='transparent') +
  geom_count(aes(color = as.factor(..n..)))

输出：