这可能已经用java回答了,但我试图在r中这样做。我遗漏了大部分代码,因为它有很多。
library(readxl)
library(dplyr)
library(shiny)
library(highcharter)
library(data.table)
shinyUI(fluidPage(
titlePanel("xxx"),
fluidRow(
#...
fluidRow(
column(6,
highchartOutput("column")
),
column(3,
highchartOutput("pie.selected")
),
column(3,
highchartOutput("pie.prior")
)
)
))
shinyServer(function(input, output) {
#...
output$pie.selected <- renderHighchart({
pie.selected <- highchart() %>%
hc_add_series(name = "Current Valuation",
type = "pie",
tooltip = list(
valueDecimals = 1,
valueSuffix = " %"
),
data = list(
list(y = 100*pd.selected/ult.selected,
name = "Paid",
color = colors$Emrl
),
list(y = 100*co.selected/ult.selected,
name = "Case Outstanding",
color = colors$Ruby
),
list(y = 100*ibnr.selected/ult.selected,
name = "IBNR",
color = colors$Saph
)
)
)
})
#...
})
我之前从未制作过饼图,并认为它将以条形图或柱形图的方式完成,但我想我错过了一些东西。我遵循了这个:http://jkunst.com/highcharter/highcharts.html(饼图的第一个例子),但是当我运行应用程序时它根本就没有加载。如果我只是在r脚本中运行服务器代码,那就很好用了。
感谢。
答案 0 :(得分:2)
显然输入的名称在Highchart中没有句号。