无论如何从geom_text获得一个传奇？
我有一张地图。我想将地区的缩写打印到地图上，在图例中我想要缩写和全名。数据来自csv文件。
使用此代码，我目前正在地图上打印缩写：
geom_text( data=testdata,aes(x=long, y=lat, label=abbreviation), colour="black", size=4 )
来自我的数据的可重复示例。 shape_f是地图的数据，testdata有缩写和全名。
我正在尝试
mytable <- cbind(sites= testdata["abbreviation"], testdata["full_name"])
annotation_custom(tableGrob(mytable), xmin = 16, xmax = 17, ymin = 47.5, ymax = 49)
但是输出是大的（28行）。 无论如何都要改变字体大小？