2016-08-17 2 views
2

Доброе утро все :)Опции Highchart (размер точки) - R блестящие

Я новый пользователь блестит и попытаться обучить через примеров, представленных в библиотеке. У меня есть проблемы с вариантами highchart, мой сюжет - это линия с точками, и я бы хотел контролировать размер очков.

Вот упрощенный код: (используя пример из "highchart библиотеки", папка "демо"):

### START кода

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) 

## END кода

Я провел некоторое исследование и выяснил, что вы можете контролировать размер, используя «маркер» и его параметры. Но моя диаграмма полностью не зависит от этой функции: я пробовал несколько значений радиуса ширины & для маркера, и это ничего не меняет.

Может ли кто-нибудь посоветовать мне, что я делаю неправильно? Большое спасибо за вашу помощь!

Madzia

ответ

2

Привет ваш график является линией, поэтому в hc_plotOptions вы должны установить параметры для строки, не та область, например, :

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" 
    ) 
) 
) 
+0

Спасибо! работает отлично! :) (извините за задержку, я ответил в тот же день, но похоже, что мой ответ не рассматривался) – Madzia