Построение двух столбцов с использованием старшей диаграммы в R блестящий возвращает объект аргумента отсутствует без значения - PullRequest
1 голос
/ 27 марта 2019

Я попытался сделать интерактивную карту, используя 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')

Я ожидаю, что на выходе получится график, показывающий количество мужчин и женщин в городе за каждый данный год, но я получил вывод "объект аргумента отсутствует, по умолчанию нет".

1 Ответ

0 голосов
/ 27 марта 2019

Что, если вы измените hchart на highchart и имена в нижнем регистре?По-видимому, они должны быть найдены в data.frame.

highchart() %>%
  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)"))
...