图例中的平方形变化-ggplot R

Question

我正在用ggplot绘制一些点，我想用一个空正方形的点突出显示其中一个点。我通过以下方式进行操作：

ggplot(data.frame(x=rnorm(7), y=rnorm(7)), aes(x,y))+
geom_point(aes(shape = "Points"), size=1.4)+
geom_point(data = data.frame(x=rnorm(1),y=rnorm(1)), aes(shape="Square"), size = 1.9, stroke = 1.7) +
coord_cartesian(xlim = c(-3,3),ylim = c(-3,3))+
scale_shape_manual(name = "Shape", values = c(16,0))

情节中的正方形点很好，但图例中的那个点比情节中的点更粗。更精确地讲，它看起来更厚，但是实际上它具有第二个较细的内部正方形，当我使用tikzDevice导出图时可以看到。

即使尝试通过以下方式直接修改图例中的形状，问题仍然存在：

guides(shape = guide_legend(override.aes = list(shape=c(16,0))))

您能帮我看看如何获​​得图例中的点以使其看起来像点形状0吗？

Answer 1

您尝试过其中一个主题吗？ + theme_economist（）可能会解决图例问题