夏休みの旅行計画

旅行先

・タイ

・シンガポール

・韓国

countries <- data.frame(
  name = c("Thailand", "Singapore", "Korea"),
  lat = c(15.8700, 1.3521, 35.9078),
  lng = c(100.9925, 103.8198, 127.7669)
)

leaflet(data = countries) %>%
  addTiles() %>%
  addMarkers(~lng, ~lat, popup = ~name)

予算計画

budget <- data.frame(
Item = c("Flights", "Accommodation", "Food", "Activities", "Transport", "Miscellaneous"),
Cost = c(200000,100000, 100000, 50000, 20000,20000)
)

ggplot(budget, aes(x = Item, y = Cost)) +
geom_bar(stat = "identity", fill = "skyblue") +
theme_minimal() +
labs(title = "旅行予算", x = "項目", y = "費用 (JPY)")