Europe Trip Map

Europe Trip Visualization

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.5.3

europe <- data.frame(
  city = c("Berlin", "Amsterdam", "Brussels", "Paris", "Zurich"),
  lat = c(52.5200, 52.3676, 50.8503, 48.8566, 47.3769),
  lon = c(13.4050, 4.9041, 4.3517, 2.3522, 8.5417),
  days = c(1, 3, 2, 15, 10)
)

map <- leaflet(europe) %>%
  addProviderTiles(providers$CartoDB.Positron) %>%

  setView(
    lng = 6.5,
    lat = 50.5,
    zoom = 5
  ) %>%

  addCircles(
    lng = ~lon,
    lat = ~lat,
    radius = ~days * 3000,
    color = "yellow",
    popup = ~paste(
      "도시:", city,
      "<br>체류일:", days, "일"
    )
  ) %>%

  addPolylines(
    lng = ~lon,
    lat = ~lat,
    color = "yellow",
    weight = 1
  )

map

Description

This map visualizes a one-month trip across Europe.

• Berlin (1 day)
• Amsterdam (3 days)
• Brussels (2 days)
• Paris (15 days)
• Zurich (10 days)

The circle size represents the number of days spent in each city, and the yellow line shows the travel route.