Humans have launched rockets to space from many locations around the globe. This interactive map shows major active and historic space launch sites, color-coded by their current status. Click any marker for details!
library(leaflet)
sites <- data.frame(
name = c("Kennedy Space Center", "Baikonur Cosmodrome",
"Jiuquan Satellite Launch Center", "Satish Dhawan Space Centre",
"Guiana Space Centre", "Vandenberg Space Force Base",
"Tanegashima Space Center", "Plesetsk Cosmodrome",
"Wenchang Space Launch Site", "Mahia Peninsula"),
lat = c(28.5729,45.9650, 40.9600, 13.7330,
5.2390, 34.7420, 30.4000, 62.9270,
19.6145, -39.2600),
lng = c(-80.6490, 63.3050, 100.2980, 80.2300,
-52.7680, -120.5660, 130.9750, 40.5770,
110.9510, 177.8630),
country = c("USA", "Kazakhstan", "China", "India",
"French Guiana", "USA", "Japan", "Russia",
"China", "New Zealand"),
agency = c("NASA / SpaceX", "Roscosmos", "CNSA", "ISRO",
"ESA / Arianespace", "USSF / SpaceX", "JAXA",
"Roscosmos", "CNSA", "Rocket Lab"),
status = c("Active", "Active", "Active", "Active",
"Active", "Active", "Active", "Active",
"Active", "Active"),
stringsAsFactors = FALSE
)
sites$popup <- paste0(
"<b style='font-size:14px;'>:rocket: ", sites$name, "</b><br
earth_africa: Country: ", sites$country, "<br/>",
":office: Agency: ", sites$agency, "<br/>",
":satellite_antenna: Status: <span style='color:green;font-weight:bold;'>",
sites$status, "</span>"
)
# Custom rocket icon
rocket_icon <- makeAwesomeIcon(
icon = "star",
library = "glyphicon",
markerColor = "darkblue",
iconColor = "white"
)
leaflet(sites) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
setView(lng = 30, lat = 30, zoom = 2) %>%
addAwesomeMarkers(
lat = ~lat,
lng = ~lng,
icon = rocket_icon,
popup = ~popup,
label = ~name
) Generated on June 10, 2026