UchidaMizuki / 2023-08-urayasu-summer-volunteer

2023-08 Urayasu Summer Volunteer

収集データについて

• 注意：本リポジトリはデータ収集に使用したコードのみを含みデータは含みません

使用パッケージ・共通データ

library(tidyverse)
library(sf)

adminbdry_2023 <- read_sf("data/行政区域_2023.geojson")

01_食品営業許可施設一覧_2022

• 令和3年5月31日までに取得した営業許可にて営業中の施設です

  • 出典：千葉県食品営業許可施設一覧

• Geocodingにより所在地情報から位置情報に変換しました

  • CSISシンプルジオコーディング実験を利用（利用規約）

食品営業許可施設一覧_2022

licensed_food_business_2022 <- read_sf("data/食品営業許可施設一覧_2022.geojson")

licensed_food_business_2022 |> 
  ggplot() +
  geom_sf(data = adminbdry_2023) +
  geom_sf(aes(color = `業種`)) +
  scale_color_discrete(NULL)

02_Flickrデータ

• Flickr APIを利用してジオタグつき写真のデータを取得しました（利用規約）

  • Flickr APIを使用するためにはAPI Keyの取得が必要です

• 浦安市内で撮られた写真データを250 mメッシュごとに最大250枚分取得しました

  • データには画像のリンクを含みますが画像データ自体は含みません

  • これまでに写真の投稿されていないメッシュも存在するようです

Flickrデータ

photo_search_flickr <- read_sf("data/Flickrデータ.geojson")
grid250m_adminbdry_2023 <- read_sf("data/250mメッシュ_行政区域_2023.geojson")

photo_search_flickr |> 
  ggplot() +
  geom_sf(data = adminbdry_2023) +
  geom_sf(data = grid250m_adminbdry_2023,
          fill = "transparent") +
  geom_sf(alpha = 0.25)