Loading Relevant Libraries

library(leaflet)

The data

data <- read.csv("himalaya.txt",
                 header=TRUE)

Processing

data$Lat <- data$LatDeg + (data$LatMin + data$LatSec / 60) / 60
data$Lng <- data$LngDeg + (data$LngMin + data$LngSec / 60) / 60
coord <- data.frame(popup=data$Name,
                    lat=data$Lat,
                    lng=data$Lng)

Plotting using {leaflet}

coord %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers()
## Assuming "lng" and "lat" are longitude and latitude, respectively