1

metricsgraphics パッケージを使用して作成されたヒストグラムの色を変更する方法がわかりません。以下のコードを使用してヒストグラムをレンダリングする、機能する Shiny アプリを作成しました。

mjs_plot(zedata()$Value, format="count") %>% 
        mjs_histogram(bins = 10) %>%
        mjs_labs(x=input$item, y="Number of VA Medical Centers")

color = "#d7191c" mjs_plot と mjs_histogram を無駄に追加しました - どちらの場合も未使用の引数エラーが発生しました。hrbrmstr の情報ページhttp://hrbrmstr.github.io/metricsgraphics/にも、ヘルプ マニュアルにも何も見つかりませんでした。ヒストグラム以外のすべてのグラフタイプについて、カラーオプションの使用が説明されているようです。

私は html/javascript に精通しておらず、他に何を試せばよいかわかりません...

4

1 に答える 1

1

ヒストグラムの四角形に対応するクラスの CSS を変更する必要があります (元の CSSでクラスの名前を探します)。

これを行う簡単な方法は、次のコードをUI定義に追加することです。

tags$head(
  tags$style(HTML("
    .mg-histogram .mg-bar rect {
        fill: <your_color>;
        shape-rendering: auto;
    }

    .mg-histogram .mg-bar rect.active {
        fill: <another_color>;
    }")))

カスタム CSS を追加する方法は他にもあります。こちらを参照してください。

完全な例を次に示します。

n <- 5
library(metricsgraphics)
library(shiny)

# Define the UI
ui <- bootstrapPage(
  tags$head(
    tags$style(HTML("
      .mg-histogram .mg-bar rect {
          fill: #ff00ff;
          shape-rendering: auto;
      }

      .mg-histogram .mg-bar rect.active {
          fill: #00f0f0;
      }"))),
  numericInput('n', 'Number of obs', n),
  metricsgraphicsOutput('plot')
)

server <- function(input, output) {
  output$plot <- renderMetricsgraphics({
    mjs_plot(mtcars$mpg, format="count") %>% 
      mjs_histogram(bins = input$n)
  })
}

shinyApp(ui = ui, server = server)
于 2016-07-29T15:57:33.080 に答える