#### Generate sentiment data
us_state_coordinates <- read.csv("us-states.csv")
us_county_coordinates <- readRDS("us-counties.rds")
world_country_coordinates <- read.csv("world-countries.csv")
# Move the countries in North/South America to the right.
world_country_coordinates_po_centered <- world_country_coordinates
lng <- world_country_coordinates_po_centered$longitude
lng <- ifelse(lng < -28, lng+360, lng)
world_country_coordinates_po_centered$longitude <- lng
# Based on jp-prefectures.csv
jp_prefecture_coordinates.name <- c(
'\u5317\u6d77\u9053',
'\u9752\u68ee',
'\u5ca9\u624b',
'\u5bae\u57ce',
'\u79cb\u7530',
'\u5c71\u5f62',
'\u798f\u5cf6',
'\u8328\u57ce',
'\u6803\u6728',
'\u7fa4\u99ac',
'\u57fc\u7389',
'\u5343\u8449',
'\u6771\u4eac',
'\u795e\u5948\u5ddd',
'\u65b0\u6f5f',
'\u5bcc\u5c71',
'\u77f3\u5ddd',
'\u798f\u4e95',
'\u5c71\u68a8',
'\u9577\u91ce',
'\u5c90\u961c',
'\u9759\u5ca1',
'\u611b\u77e5',
'\u4e09\u91cd',
'\u6ecb\u8cc0',
'\u4eac\u90fd',
'\u5927\u962a',
'\u5175\u5eab',
'\u5948\u826f',
'\u548c\u6b4c\u5c71',
'\u9ce5\u53d6',
'\u5cf6\u6839',
'\u5ca1\u5c71',
'\u5e83\u5cf6',
'\u5c71\u53e3',
'\u5fb3\u5cf6',
'\u9999\u5ddd',
'\u611b\u5a9b',
'\u9ad8\u77e5',
'\u798f\u5ca1',
'\u4f50\u8cc0',
'\u9577\u5d0e',
'\u718a\u672c',
'\u5927\u5206',
'\u5bae\u5d0e',
'\u9e7f\u5150\u5cf6',
'\u6c96\u7e04')
jp_prefecture_coordinates.longitude <- c(
141.3468074,
140.7399984,
141.1526839,
140.8721,
140.1023643,
140.3636333,
140.4675514,
140.4467935,
139.8835651,
139.0604061,
139.6488487,
140.1233063,
139.6917064,
139.6423446,
139.0230946,
137.2113383,
136.6255726,
136.2215269,
138.5684486,
138.1809557,
136.7222906,
138.3830845,
136.9065647,
136.5085883,
135.8685899,
135.7555968,
135.5196609,
135.1830706,
135.8327421,
135.1675086,
134.2377356,
133.0504997,
133.9344057,
132.4596225,
131.4706493,
134.5593601,
134.0434436,
132.7656808,
133.5310786,
130.418297,
130.2997942,
129.8737562,
130.7416672,
131.6126189,
131.4238934,
130.5577279,
127.6809317
)
jp_prefecture_coordinates.latitude <- c(
43.0646147,
40.8243077,
39.7036194,
38.2688373,
39.7186135,
38.2404355,
37.7502986,
36.3418112,
36.565725,
36.3906675,
35.8569991,
35.6050574,
35.6894875,
35.4475073,
37.9025518,
36.6952907,
36.5946816,
36.0651779,
35.6641575,
36.6512986,
35.3912272,
34.9771201,
35.1801883,
34.7302829,
35.0045306,
35.0212466,
34.6862971,
34.6912688,
34.6853345,
34.2259867,
35.5038906,
35.4722952,
34.6617511,
34.3965603,
34.1859563,
34.0657179,
34.3401491,
33.8416238,
33.5597062,
33.6065756,
33.2494416,
32.7448388,
32.789827,
33.2381718,
31.9110956,
31.5610825,
26.2124013
)
jp_prefecture_coordinates <- data.frame(
name = jp_prefecture_coordinates.name,
longitude = jp_prefecture_coordinates.longitude,
latitude = jp_prefecture_coordinates.latitude
)
# Based op-prefecture-name-id-map.csv
jp_prefecture_name_id_map.name <- c(
'\u307b\u3063\u304b\u3044\u3069\u3046',
'\u3042\u304a\u3082\u308a',
'\u3044\u308f\u3066',
'\u307f\u3084\u304e',
'\u3042\u304d\u305f',
'\u3084\u307e\u304c\u305f',
'\u3075\u304f\u3057\u307e',
'\u3044\u3070\u3089\u304d',
'\u3068\u3061\u304e',
'\u3050\u3093\u307e',
'\u3055\u3044\u305f\u307e',
'\u3061\u3070',
'\u3068\u3046\u304d\u3087\u3046',
'\u304b\u306a\u304c\u308f',
'\u306b\u3044\u304c\u305f',
'\u3068\u3084\u307e',
'\u3044\u3057\u304b\u308f',
'\u3075\u304f\u3044',
'\u3084\u307e\u306a\u3057',
'\u306a\u304c\u306e',
'\u304e\u3075',
'\u3057\u305a\u304a\u304b',
'\u3042\u3044\u3061',
'\u307f\u3048',
'\u3057\u304c',
'\u304d\u3087\u3046\u3068',
'\u304a\u304a\u3055\u304b',
'\u3072\u3087\u3046\u3054',
'\u306a\u3089',
'\u308f\u304b\u3084\u307e',
'\u3068\u3063\u3068\u308a',
'\u3057\u307e\u306d',
'\u304a\u304b\u3084\u307e',
'\u3072\u308d\u3057\u307e',
'\u3084\u307e\u3050\u3061',
'\u3068\u304f\u3057\u307e',
'\u304b\u304c\u308f',
'\u3048\u3072\u3081',
'\u3053\u3046\u3061',
'\u3075\u304f\u304a\u304b',
'\u3055\u304c',
'\u306a\u304c\u3055\u304d',
'\u304f\u307e\u3082\u3068',
'\u304a\u304a\u3044\u305f',
'\u307f\u3084\u3056\u304d',
'\u304b\u3054\u3057\u307e',
'\u304a\u304d\u306a\u308f',
'hokkaido',
'aomori',
'iwate',
'miyagi',
'akita',
'yamagata',
'fukushima',
'ibaraki',
'tochigi',
'gumma',
'saitama',
'chiba',
'tokyo',
'kanagawa',
'niigata',
'toyama',
'ishikawa',
'fukui',
'yamanashi',
'nagano',
'gifu',
'shizuoka',
'aichi',
'mie',
'shiga',
'kyoto',
'osaka',
'hyogo',
'nara',
'wakayama',
'tottori',
'shimane',
'okayama',
'hiroshima',
'yamaguchi',
'tokushima',
'kagawa',
'ehime',
'kochi',
'fukuoka',
'saga',
'nagasaki',
'kumamoto',
'oita',
'miyazaki',
'kagoshima',
'okinawa',
'\u5317\u6d77\u9053',
'\u9752\u68ee',
'\u5ca9\u624b',
'\u5bae\u57ce',
'\u79cb\u7530',
'\u5c71\u5f62',
'\u798f\u5cf6',
'\u8328\u57ce',
'\u6803\u6728',
'\u7fa4\u99ac',
'\u57fc\u7389',
'\u5343\u8449',
'\u6771\u4eac',
'\u795e\u5948\u5ddd',
'\u65b0\u6f5f',
'\u5bcc\u5c71',
'\u77f3\u5ddd',
'\u798f\u4e95',
'\u5c71\u68a8',
'\u9577\u91ce',
'\u5c90\u961c',
'\u9759\u5ca1',
'\u611b\u77e5',
'\u4e09\u91cd',
'\u6ecb\u8cc0',
'\u4eac\u90fd',
'\u5927\u962a',
'\u5175\u5eab',
'\u5948\u826f',
'\u548c\u6b4c\u5c71',
'\u9ce5\u53d6',
'\u5cf6\u6839',
'\u5ca1\u5c71',
'\u5e83\u5cf6',
'\u5c71\u53e3',
'\u5fb3\u5cf6',
'\u9999\u5ddd',
'\u611b\u5a9b',
'\u9ad8\u77e5',
'\u798f\u5ca1',
'\u4f50\u8cc0',
'\u9577\u5d0e',
'\u718a\u672c',
'\u5927\u5206',
'\u5bae\u5d0e',
'\u9e7f\u5150\u5cf6',
'\u6c96\u7e04'
)
jp_prefecture_name_id_map.id <- c(
'\u5317\u6d77\u9053',
'\u9752\u68ee',
'\u5ca9\u624b',
'\u5bae\u57ce',
'\u79cb\u7530',
'\u5c71\u5f62',
'\u798f\u5cf6',
'\u8328\u57ce',
'\u6803\u6728',
'\u7fa4\u99ac',
'\u57fc\u7389',
'\u5343\u8449',
'\u6771\u4eac',
'\u795e\u5948\u5ddd',
'\u65b0\u6f5f',
'\u5bcc\u5c71',
'\u77f3\u5ddd',
'\u798f\u4e95',
'\u5c71\u68a8',
'\u9577\u91ce',
'\u5c90\u961c',
'\u9759\u5ca1',
'\u611b\u77e5',
'\u4e09\u91cd',
'\u6ecb\u8cc0',
'\u4eac\u90fd',
'\u5927\u962a',
'\u5175\u5eab',
'\u5948\u826f',
'\u548c\u6b4c\u5c71',
'\u9ce5\u53d6',
'\u5cf6\u6839',
'\u5ca1\u5c71',
'\u5e83\u5cf6',
'\u5c71\u53e3',
'\u5fb3\u5cf6',
'\u9999\u5ddd',
'\u611b\u5a9b',
'\u9ad8\u77e5',
'\u798f\u5ca1',
'\u4f50\u8cc0',
'\u9577\u5d0e',
'\u718a\u672c',
'\u5927\u5206',
'\u5bae\u5d0e',
'\u9e7f\u5150\u5cf6',
'\u6c96\u7e04',
'\u5317\u6d77\u9053',
'\u9752\u68ee',
'\u5ca9\u624b',
'\u5bae\u57ce',
'\u79cb\u7530',
'\u5c71\u5f62',
'\u798f\u5cf6',
'\u8328\u57ce',
'\u6803\u6728',
'\u7fa4\u99ac',
'\u57fc\u7389',
'\u5343\u8449',
'\u6771\u4eac',
'\u795e\u5948\u5ddd',
'\u65b0\u6f5f',
'\u5bcc\u5c71',
'\u77f3\u5ddd',
'\u798f\u4e95',
'\u5c71\u68a8',
'\u9577\u91ce',
'\u5c90\u961c',
'\u9759\u5ca1',
'\u611b\u77e5',
'\u4e09\u91cd',
'\u6ecb\u8cc0',
'\u4eac\u90fd',
'\u5927\u962a',
'\u5175\u5eab',
'\u5948\u826f',
'\u548c\u6b4c\u5c71',
'\u9ce5\u53d6',
'\u5cf6\u6839',
'\u5ca1\u5c71',
'\u5e83\u5cf6',
'\u5c71\u53e3',
'\u5fb3\u5cf6',
'\u9999\u5ddd',
'\u611b\u5a9b',
'\u9ad8\u77e5',
'\u798f\u5ca1',
'\u4f50\u8cc0',
'\u9577\u5d0e',
'\u718a\u672c',
'\u5927\u5206',
'\u5bae\u5d0e',
'\u9e7f\u5150\u5cf6',
'\u6c96\u7e04',
'\u5317\u6d77\u9053',
'\u9752\u68ee',
'\u5ca9\u624b',
'\u5bae\u57ce',
'\u79cb\u7530',
'\u5c71\u5f62',
'\u798f\u5cf6',
'\u8328\u57ce',
'\u6803\u6728',
'\u7fa4\u99ac',
'\u57fc\u7389',
'\u5343\u8449',
'\u6771\u4eac',
'\u795e\u5948\u5ddd',
'\u65b0\u6f5f',
'\u5bcc\u5c71',
'\u77f3\u5ddd',
'\u798f\u4e95',
'\u5c71\u68a8',
'\u9577\u91ce',
'\u5c90\u961c',
'\u9759\u5ca1',
'\u611b\u77e5',
'\u4e09\u91cd',
'\u6ecb\u8cc0',
'\u4eac\u90fd',
'\u5927\u962a',
'\u5175\u5eab',
'\u5948\u826f',
'\u548c\u6b4c\u5c71',
'\u9ce5\u53d6',
'\u5cf6\u6839',
'\u5ca1\u5c71',
'\u5e83\u5cf6',
'\u5c71\u53e3',
'\u5fb3\u5cf6',
'\u9999\u5ddd',
'\u611b\u5a9b',
'\u9ad8\u77e5',
'\u798f\u5ca1',
'\u4f50\u8cc0',
'\u9577\u5d0e',
'\u718a\u672c',
'\u5927\u5206',
'\u5bae\u5d0e',
'\u9e7f\u5150\u5cf6',
'\u6c96\u7e04'
)
jp_prefecture_name_id_map <- data.frame(
name = jp_prefecture_name_id_map.name,
id = jp_prefecture_name_id_map.id
)
# RDS data is originally coming from https://geolonia.github.io/japanese-addresses/
jp_city_name_code_map <- readRDS("jp_city_name_code_map.rds")
jp_city_coordinates <- readRDS("jp_city_coordinates.rds")
usethis::use_data(
us_state_coordinates,
us_county_coordinates,
world_country_coordinates,
world_country_coordinates_po_centered,
jp_prefecture_coordinates,
jp_prefecture_name_id_map,
jp_city_coordinates,
jp_city_name_code_map,
overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.