Let’s use an HTML widget.
library("leaflet") # From `?leaflet::leaflet` m <- leaflet() %>% addTiles() m %>% addPopups(-93.65, 42.0285, 'Here is the <b>Department of Statistics</b>, ISU')