RpivotTable Скрытие или удаление легенды линейной диаграммы - PullRequest
Новая
       53

RpivotTable Скрытие или удаление легенды линейной диаграммы

0 голосов
/ 27 ноября 2018

TL; DR Вопрос: Можно ли удалить легенду, отображаемую при использовании параметра «Линейная диаграмма» в пакете RpivotTable в Rstudio / Shiny?

Привет всем,

Я очень новичокStack Overflow, а также R, Rstudio и Shiny - настоящий нубПакет rpivotTable для репликации сводных панелей, которые я создал ранее в Excel с использованием нескольких сводных таблиц и подключенных к слайсерам ...

К сожалению, используемые мной наборы данных / фреймы данных имеют большое количество переменных, когда я строю линейные диаграммыпри использовании пакета rpivotTable легенда заполняет весь экран вместо отображения линейной диаграммы: (

Мои строки содержат более 1000 различных кодов исключений, поэтому легенда слишком велика для отображения ....

Пример кода: 

  output$pivtbl2 <- renderRpivotTable(rpivotTable(data = DataSet(),
                                                 aggregatorName = "Sum",
                                                 vals = "Count",
                                                 cols = "ExceptionDate",
                                                 rows = "ErrorCode",
                                                 menuLimit = 1200,
                                                 rendererName = "Line Chart"))

Извините, если на этот вопрос был дан ответ в другом месте, я потратил немного времениЕсли вы ищете, или ответ действительно очевиден, я очень плохо знаком с R.

Или любые другие предложения по использованию пакетов или исследованиям для достижения того, что я пытаюсь сделать, будут оценены!

Спасибо ^ _ ^

1 Ответ

0 голосов
/ 29 ноября 2018

«Линейная диаграмма» в rpivotTable - это диаграмма C3.Вы можете скрыть легенду и предоставить другие параметры для диаграммы C3, передав именованную запись списка с ключом c3 аргументу rendererOptions rpivotTable().В настоящее время вам также нужно позвонить и предоставить дополнительную строку кода, чтобы заставить это работать, как описано в этой проблеме на странице rpivotTable GitHub .

В вашем случае это будет: 

output$pivtbl <- renderRpivotTable({
  tbl <- rpivotTable(
    data            = DataSet(),
    aggregatorName  = "Sum",
    vals            = "Count",
    cols            = "ExceptionDate",
    rows            = "ErrorCode",
    menuLimit       = 1200,
    rendererName    = "Line Chart",
    rendererOptions = list(
      c3 = list(
        legend = list(
          show = FALSE
        )
      )
    )
  )

  tbl$x$params$rendererOptions <- tbl$x$params$rendererOptions[[1]]

  tbl #return value
})

Доступные опции для перехода к диаграммам C3 перечислены здесь: https://c3js.org/reference.html

...