将标签添加到使用 ggplot() 和 geom_polygon() 制作的 map

Question

I did a map with ggplot and geom_polygon, however I can not recognize the names of the states so I wanted to add a label to every state ( make it interactive) to have the name of the state when i hover over the state area.I tried to add geom_text and geom_label but I got this error and I don't understand why it gives this error:

Error in geom_point(): ! mapping must be created by aes()

Here is the variables of my data set

My code:

scaling_map <-ggplot(pop_usa, aes(long,lat)) + 
  geom_polygon(aes(group = group, fill = estimated_pop_2020 ) ,color="black") +
   theme(axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank(), axis.title.y=element_blank(), 
        axis.text.y=element_blank(), axis.ticks.y=element_blank(),plot.title = element_text(face = "bold",hjust = 0.5)) +
ggtitle("Estimated population by state") +
  scale_fill_gradient(name ="Estimated population (log10)" ,low = "#FFFFCC" , high = "#336600") +
  geom_point(pop_usa, aes(x=long, y=lat, group=group, size=values)) +
    geom_text(data = pop_usa, aes(x=long, y=lat, group=group, label=state), size = 3, hjust=0, vjust=-1) +
    coord_map() 

Can Anyone help me please?

Answer 1

Update: OP request see comments:

We could something like this:

ggplot(pop_usa, aes(long,lat)) +
  geom_polygon(aes(group = group, fill = estimated_pop_2020 ) ,color="black") +
  theme(axis.title.x=element_blank(), axis.text.x=element_blank(), 
        axis.ticks.x=element_blank(), axis.title.y=element_blank(), 
        axis.text.y=element_blank(), axis.ticks.y=element_blank(),
        plot.title = element_text(face = "bold",hjust = 0.5)) +
  ggtitle("Estimated population by state") +
  scale_fill_gradient(name ="Estimated population (log10)" ,
                      low = "#FFFFCC" , 
                      high = "#336600") +
  geom_point(aes(x=long, y=lat)) +
  geom_text(label=unique(pop_usa$state), 
            x=pop_usa$long[10],
            y=pop_usa$lat[8]
            , size = 3, hjust=0, vjust=-1) +
  coord_map()

First answer:

Follow the instructions provided by @Allan Cameron in the comments, then try this:

ggplot(pop_usa, aes(long,lat)) +
  geom_polygon(aes(group = group, fill = estimated_pop_2020 ) ,color="black") +
  theme(axis.title.x=element_blank(), axis.text.x=element_blank(), 
        axis.ticks.x=element_blank(), axis.title.y=element_blank(), 
        axis.text.y=element_blank(), axis.ticks.y=element_blank(),
        plot.title = element_text(face = "bold",hjust = 0.5)) +
  ggtitle("Estimated population by state") +
  scale_fill_gradient(name ="Estimated population (log10)" ,
                      low = "#FFFFCC" , 
                      high = "#336600") +
  geom_point(aes(x=long, y=lat)) +
  geom_text(aes(label = state), size = 3, hjust=0, vjust=-1) +
  coord_map() 

data:

df <- structure(list(state = c("alabama", "alabama", "alabama", "alabama", 
"alabama", "alabama", "alabama", "alabama", "alabama", "alabama", 
"alabama", "alabama", "alabama", "alabama", "alabama", "alabama", 
"alabama"), estimated_pop_2020 = c(4.823357, 4.823357, 4.823357, 
4.823357, 4.823357, 4.823357, 4.823357, 4.823357, 4.823357, 4.823357, 
4.823357, 4.823357, 4.823357, 4.823357, 4.823357, 4.823357, 4.823357
), long = c(-87.46201, -87.48493, -87.52503, -87.53076, -87.57087, 
-87.58806, -87.59379, -87.59379, -87.674, -87.81152, -87.88026, 
-87.92037, -87.95475, -88.00632, -88.01778, -88.01205, -87.99486
), lat = c(30.38968, 30.37249, 30.37249, 30.33239, 30.32665, 
30.32665, 30.30947, 30.28655, 30.27509, 30.2579, 30.24644, 30.24644, 
30.24644, 30.24071, 30.25217, 30.26936, 30.27509), group = c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L
), order = 1:17), class = "data.frame", row.names = c("1", "2", 
"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", 
"15", "16", "17"))