小编cna*_*ber的帖子

我需要使用 ggplot 在地图上插入多个点。我想在图例中显示与 point$types 中注册的类型相对应的颜色和形状的数量。我还需要将 point$obj 的值与坐标的插入一起打印在地图上。然而，我设法获取了该代码，但无法分配颜色和形状。如何解决这个问题呢？以下是绘图的示例：彩色坐标和打印标签：

这是代码：

library(geobr)
library(ggspatial)
library(ggplot2)


BR <- read_state(year=2018)

points
obj x           y           types
1   F1  -43.18669   -22.901724  A
2   F2  -43.31534   -22.779600  A
3   F3  -67.82527   -9.984939   B
4   F4  -72.74519   -7.610681   B
5   F5  -35.93844   -9.308399   B
6   F6  -63.13576   -4.105584   B
7   F7  -60.00568   -2.049304   B
8   F8  -35.91194   -7.217137   C
9   F9  -35.04254   -7.998586   C
10  F10 -48.26501   -18.889202  C
11  F11 -45.23610   -21.238526  D
12  F12 -43.71210   -22.244824  E


# …

我有这个 df：

df <- data.frame(colA=c("A","B","C"),
colB = c("Stringn","Stringc","Stringb"),
x2008 = c(2.71472,1.62307,1.62269),
x2009 = c(NA,1.68250,1.66570))

df%>%
select(`x2008`,`x2009`)%>%
colMeans (na.rm = T)

返回：

预期收益：

我正在这样做：

df%>%
select(`x2008`,`x2009`)%>%
colMeans (na.rm = T)%>%
mutate (`ColA` =" Average ",` ColB` = "result")

但它给出了错误，知道如何解决这个问题吗？