chinamappoint: Mark points on Chinese maps
In czxa/hchinamap: Mapping China and Its Provinces

Description Usage Arguments Examples

View source: R/chinamappoint.R

chinamappoint function provides a simple way to mark points on Chinese map.

chinamappoint(cat, name, lat, lon, theme = "sandsignika",
  title = "Example Map", titleAlign = "center", titleSize = "20px",
  titleColor = "#333333", subtitle = "", subtitleAlign = "center",
  subtitleSize = "", subtitleColor = "#666666",
  itermName = "Random data",
  headerFormat = "<small>{point.key}</small><table>",
  pointFormat = "<tr><td>Catagory: </td><td>: {series.name}</td></tr><tr><td>Location: </td><td>({point.lon:.2f}, {point.lat:.2f})</td></tr>",
  footerFormat = "</table>", hoverColor = "#a4edba",
  legendLayout = "horizontal", legendAlign = "center",
  legendTitle = "", legendVerticalAlign = "bottom", markerRadius = 3,
  mapNavigation = 1, mapNavigationVerticalAlign = "bottom",
  mapNavigationAlign = "left", width = NULL, height = NULL,
  elementId = NULL)

`cat`	category vector;
`name`	name vector;
`lat`	latitude vector;
`lon`	longitude vector;
`theme`	Chart theme, you can choose one from: darkgreen/darkblue/avocado/darkunica/gray/ gridlight/grid/sandsignika/sunset;
`title`	Chart title;
`titleAlign`	The horizontal position of the title, such as "center";
`titleSize`	The size of the title, such as "20px";
`titleColor`	The color of the title, such as "#3333";
`subtitle`	Subtitle of chart;
`subtitleAlign`	The horizontal position of subtitles, such as "center";
`subtitleSize`	The size of the subtitle, such as "16px";
`subtitleColor`	The color of the subtitle, such as "#666666";
`itermName`	Data attributes in tooltip;
`headerFormat`	Header format, default value is '<small>point.key</small><table>';
`pointFormat`	Point format, default value is "<tr><td>Catagory: </td><td>: series.name </td></tr><tr><td>Location: </td><td>(point.lon:.2f, point.lat:.2f)</td></tr>";
`footerFormat`	Footer format, default value is '</table>';
`hoverColor`	The color of the area when the mouse is hovering.
`legendLayout`	Legend, horizontal or vertical;
`legendAlign`	Horizontal position of legend, center/left/right;
`legendTitle`	The title of the legend;
`legendVerticalAlign`	The vertical position of legends, top/center/bottom;
`markerRadius`	Marker Radius;
`mapNavigation`	show map navigation or not, 1 means show, 0 means not;
`mapNavigationVerticalAlign`	Map navigation vertical align, top/bottom;
`mapNavigationAlign`	map navigation align, center/left/right;
`width`	Chart width;
`height`	Chart height;
`elementId`	NULL.

library(hchinamap)
library(dplyr)
library(magrittr)
dir <- tempdir()
download.file('https://czxb.github.io/br/chinamappointdf.rda', file.path(dir, 'chinamappointdf.rda'))
load(file.path(dir, 'chinamappointdf.rda'), verbose = TRUE)
df <- chinamappointdf
if(interactive()) {
  chinamappoint(cat = df$cat, name = df$name,
                lat = df$lat, lon = df$lon,
                title = "Urban distribution in China",
                subtitle = "Data source: People's daily")
}