Я попытался сделать интерактивную карту, используя R блестящий, который покажет сюжет граждан мужчин и женщин в некоторых городах. Пример фрейма данных показан ниже.
df1 <- read.table(header = TRUE, text = "city,year,male,female,long,lat
A,2017,1038,876,35.54331,139.12333
A,2018,1281,911,35.54331,139.12333
B,2017,832,517,35.14189,140.664113
B,2018,914,589,35.14189,140.664113", sep = ",")
df2 <- df1
Интерактивная карта строится с использованием пакета листовок, и если щелкнуть маркер города, будет показан график, построенный по старшей диаграмме.
output$chart <- renderHighchart({
df2 <- df1[df1$city == click_marker(),]
hchart() %>%
hc_add_series(df2, "column", hcaes(x = year, y = male, group = city, name = "Male")) %>%
hc_add_series(df2, "column", hcaes(x = year, y = female, group = city, name = "Female")) %>%
hc_xAxis(title = list(text = "Year")) %>%
hc_yAxis(title = list(text = "Amount (Thousands)"))
})
highchartOutput('chart')
Я ожидаю, что на выходе получится график, показывающий количество мужчин и женщин в городе за каждый данный год, но я получил вывод "объект аргумента отсутствует, по умолчанию нет".