http://www.cnblogs.com/payton/p/5567778.html
library(recharts)
barnline<-list(
title = list(text = '测试数据'),
tooltip = list(),
legend = list(data=c('降水量','湿度')),
xAxis= list(
type= 'category',
data= y$date,
splitLine = list(show=FALSE) # 删掉竖线
),
yAxis= list(
list(
type= 'value',
name= '降水量',
min= 0,
max= ceiling(max(y$waterfall/10))*10,
interval= ceiling(max(y$waterfall/10))*10/5,
splitLine=list(
show=FALSE # 删掉横线
)
#axisLabel= list (formatter= '{value} ml')
),
list(
type= 'value',
name= '湿度',
min= 0,
splitLine=list(
show=FALSE
) ,
max= 1,
interval= 0.2 ,
axisLabel= list(formatter= JS("function(a){return a * 100 + '%';}"))
)
),
series = list(
list(
name="降水量",
type='bar',
data=y$waterfall,
itemStyle = list(
normal=list(color = '#227487', label = list(show = TRUE)) # set bar color and label
)
),
list(
name='湿度',
type='line',
yAxisIndex= 1,
data=y$humidity,
itemStyle = list(
normal=list( label = list(show = TRUE, formatter= JS("function(c){return Math.floor(c.value * 10000)/100 + '%';}"))) # label保留小数点后两位
)
)
)
)
echart(barnline, width = 700, height =400)
