Where the World’s Chips Are Made: A Leaflet Map

Document created on: Sunday, September 20, 2026

This page shows some of the major semiconductor manufacturing and equipment hubs around the world. Click a marker for details, use the layer switch (top right) to toggle groups, and zoom or drag to explore.

hubs <- data.frame(
  name = c("TSMC - Hsinchu Science Park", "Samsung - Hwaseong",
           "Intel - Hillsboro", "Intel - Chandler",
           "GlobalFoundries - Malta", "ASML - Veldhoven",
           "SMIC - Shanghai", "Micron - Boise",
           "Tata Electronics - Dholera"),
  lat  = c(24.78, 37.20, 45.52, 33.30, 42.97, 51.42, 31.20, 43.61, 22.25),
  lng  = c(121.01, 127.05, -122.99, -111.84, -73.75, 5.40, 121.60, -116.20, 72.20),
  type = c("Foundry", "Memory / Foundry", "IDM", "IDM", "Foundry",
           "Equipment", "Foundry", "Memory", "Foundry (planned)"),
  note = c("Leading-edge contract chip manufacturing",
           "Memory and logic fabrication",
           "Intel's main R&D and process development site",
           "Advanced fabs in Arizona",
           "Fab in upstate New York",
           "Maker of lithography machines",
           "China's largest contract foundry",
           "Memory design and manufacturing",
           "Planned large fab in Gujarat, India"),
  stringsAsFactors = FALSE
)

pal <- colorFactor(
  palette = c("#1b9e77", "#d95f02", "#7570b3", "#e7298a", "#66a61e", "#e6ab02"),
  domain  = hubs$type
)

leaflet(hubs) %>%
  addProviderTiles(providers$CartoDB.Positron,  group = "Light") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Satellite") %>%
  addCircleMarkers(
    lng = ~lng, lat = ~lat,
    radius = 9, color = "white", weight = 1.5,
    fillColor = ~pal(type), fillOpacity = 0.9,
    label = ~name,
    popup = ~paste0("<b>", name, "</b><br/>",
                    "Type: ", type, "<br/>", note),
    group = "Chip hubs"
  ) %>%
  addLegend("bottomright", pal = pal, values = ~type, title = "Type") %>%
  addLayersControl(
    baseGroups    = c("Light", "Satellite"),
    overlayGroups = c("Chip hubs"),
    options = layersControlOptions(collapsed = FALSE)
  ) %>%
  addMiniMap(toggleDisplay = TRUE, position = "bottomleft") %>%
  addScaleBar(position = "bottomleft")

Locations are approximate and meant for illustration.