Highchartオプション（ポイントサイズ） - Rピカピカ

Question

おはようすべて:)

私は光沢のあるライブラリで提供されている例を通じて養成しようとする新しいユーザーです。 私はハイチャートのオプションにいくつかの問題を抱えています。私のプロットはポイントを持つラインです。私はポイントのサイズをコントロールしたいと思います。ここ

は簡略化されたコードである：（ "highchart" ライブラリ、フォルダ "デモ" の例を使用）：

###コード

library("shiny") 
library("highcharter") 

data(citytemp) 

ui <- fluidPage(
    h1("Highcharter Demo"), 
    fluidRow(
column(width = 4, class = "panel", 
       selectInput("type", label = "Type", width = "100%", 
          choices = c("line", "column", "bar", "spline")), 
       selectInput("stacked", label = "Stacked", width = "100%", 
          choices = c(FALSE, "normal", "percent")), 
       selectInput("theme", label = "Theme", width = "100%", 
          choices = c(FALSE, "fivethirtyeight", "economist", "darkunica", "gridlight", 
             "sandsignika", "null", "handdrwran", "chalk") 
       ) 
     ), 
     column(width = 8, 
       highchartOutput("hcontainer",height = "500px") 
     ) 
    ) 
) 

server = function(input, output) { 
    output$hcontainer <- renderHighchart({ 
     hc <- highcharts_demo() %>% 
      hc_rm_series("Berlin") %>% 
      hc_chart(type = "line") %>% 
      hc_plotOptions(area = list(
       stacking = input$stacked, 
       lineColor = "#ffffff", 
       lineWidth = 1, 
       marker = list(
        lineWidth = 1, 
        radius=10, 
        lineColor = "#ffffff" 
       )))%>% 
      hc_tooltip(pointFormat = '<span style="color:{series.color}">{series.name}</span>: 
         <b>{point.percentage:.1f}%</b> ({point.y:,.0f} millions)<br/>', 
         shared = TRUE) 
     hc 
    }) 
} 

shinyApp(ui = ui, server = server) 

の開始を##コードの終わり

私はいくつかの研究を行い、 "マーカー"とそのオプションを使用してサイズを制御できることを発見しました。しかし、私のグラフはこの特徴から完全に独立しているように見えます。マーカーの半径&のいくつかの値を試しましたが、何も変わりません。

私が間違っていることを誰かにアドバイスできますか？ 事前にお手伝いいただきありがとうございます！

Madzia

Answer 1

こんにちは、あなたのチャートがラインなので、​​であなたは、例えば、ラインではなく、地域のオプションを設定する必要があります：

hc_plotOptions(
    line = list(     # put line here instead of area 
    stacking = input$stacked, 
    lineColor = "#ffffff", 
    lineWidth = 1, 
    marker = list(
     lineWidth = 1, 
     radius=10, 
     lineColor = "#ffffff" 
    ) 
) 
)