r - 对 ggplot 点使用自己的符号，更改图例符号以匹配

Question

我正在绘制一系列数据点，为此我需要非常具体的符号/形状来代表每个国家(它实际上不是国家，但真正的组没有意义 - 我正在复制旧图表并想要保持符号一致)。有九个不同的国家可以绘制。到目前为止，我发现最简单的方法是在实际数据框中编码我想要的符号，如下所示:

Point    y       x       Country
V      0.316   0.073     UK
P      0.284   0.053     USA
%      0.284   0.061     Germany
+      0.314   0.072     France     
|      0.268   0.075     Spain     
h      0.313   0.0758    Canada
#      0.121   0.0623    Australia
i      0.234   0.0765    India
C      0.213   0.059     Norway

然后像这样绘制:

ggplot(data, aes(x, y, label = Point, colour = Point)) + geom_text() 

但是当涉及到图例时，这并不是特别好:

我怎样才能让积分成为图例的符号，然后我才能让国家成为图例的标签？

Answer 1

将 shape=country 放入 aes() 并使用 scale_shape_manual() 选择符号

x=rnorm(10,1,2)
y=rnorm(10,1,2)
country=letters[1:10]
data=cbind.data.frame(x,y,country)
require(ggplot2)
ggplot(data,aes(x,y,shape=country))+
  geom_point(size=6)+
  scale_shape_manual(values=c("V","%","µ","@","#","V","%","µ","@","#"))