删除ggplot中点周围的边框

Question

我有一个散点图，其中包含基于不同数据集的两组不同点。我希望其中一组点具有边框，因此我使用了pch = 21，它将点更改为带有边框和内部的圆圈。

我希望另一组点没有边框（例如，删除下面示例中的红色边框）。在下面的示例中，我仍然为这些点添加了pch = 21，因为如果我不使用它，那么我将不得不使用 color = Petal.Length，而不是使用 fill = Petal.Length 作为（内部的）点我不想用colour而不是fill，因为我想让两组点共享一个图例。

有没有办法使用pch = 21 然后去掉边框？

iris2 <- iris %>% 
  mutate(Sepal.Length = Sepal.Length + 1)

ggplot() +
  geom_point(data = iris,
             aes(x = Sepal.Length,
                 y = Sepal.Width, 
                 fill = Petal.Length),
             pch = 21, colour = "red", size = 3) +
  geom_point(data = iris2,
           aes(x = Sepal.Length,
               y = Sepal.Width, 
               fill = Petal.Length),
           pch = 21, colour = "black", size = 3)

我曾尝试使用stroke 更改边框粗细，但这会使边框变粗，stroke = 0 仍然会给出红色边框

Answer 1

stroke=NA 将其完全删除

ggplot() +
  geom_point(data = iris,
             aes(x = Sepal.Length,
                 y = Sepal.Width,
                 fill = Petal.Length),
             pch = 21, colour = "red", size = 3, stroke=NA) +
  geom_point(data = iris2,
           aes(x = Sepal.Length,
               y = Sepal.Width,
               fill = Petal.Length),
           pch = 21, colour = "black", size = 3)

Answer 2

你只需要把colour = Petal.Length放在aes()里面，去掉外面的color属性。

像这样：

ggplot() + 
     geom_point(data = iris, 
           aes(x = Sepal.Length, 
                y = Sepal.Width, 
                fill = Petal.Length, 
                colour = Petal.Length), 
           pch = 21, size = 3) + 
     geom_point(data = iris2, 
           aes(x = Sepal.Length, y = Sepal.Width, fill = Petal.Length), 
                pch = 21, colour = "black", size = 3)