如何用R中的数据帧创建空间多边形数据帧？

我想将数据帧转换为空间多边形数据帧，但收到错误消息：

本地（obj，…）中的错误： 无法从非数值矩阵派生坐标

首先是数据帧的结构：

day       lon       lat
1      c(8,8.1,8)  c(44,45,43)
2      c(9,9.1,8)  c(46,45,43)
3      c(9,9.2,8)  c(46,45,43)

我尝试了FRK库的函数SpatialPolygonsDataFrame

library(FRK)
SpatialData <- SpatialPolygonsDataFrame(data, data.frame(id=data$day, data))

谢谢你的帮助

leaflet() %>% addTiles() %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addPolygons(data = SpatialData ,
          color = "orange",
          fillOpacity = 0.3)