R实现:风险监控仪表盘示例

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

仪表盘文件：

MRKT_GAUGES.rar (390.01 KB) 本附件包括：

• MRKT_GAUGES.html

2020-4-10 23:06:55 上传

风险监控仪表盘

各指标的值是日常风险源监控过程中人工调整的，纯属个人主观性判断。实际上，其中部分指标是可以实现程序化计算的。
表格部分是人工汇总的信息提示，也可以实现爬虫数据的列示。


以下是核心代码，可参考，据您自己的需要编写合用的仪表盘。

环境：R3.6.3+RStudio
rmarkdown)
R包：rmarkdown+flexdashboard+DT

数据文件：

“MRKT_GAUGES.csv”
INDEX,SCORE,LOW,HIGH,COMMENT
央行,80,30,70,美联储QE、下调利率
财政,80,40,60,COVID19影响企业税收、巨额赤字、债务上限

……

绘制仪表盘函数：
show<-function(x){
  gauge(mg[x,2],
        min=0,
        max=100,
        symbol='%',
        gaugeSectors(success=c(0,mg[x,3]),
            warning=c((mg[x,3])+1,(mg[x,4])-1),
            danger=c(mg[x,4],100),
            colors=c("green","orange","red")
                     )
        )
}

绘制：
show(3)

制表：

mg%>%
  select(INDEX,COMMENT)%>%
  DT::datatable(options=list(
  autoWidth=TRUE,
  lengthMenu=c(5, 10, 15, 20),
  columnDefs=list(list(width='100px',targets= 1),list(width='800px',targets=2),list(className='dt-left',targets=c(1,2)))
))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：风险监控 仪表盘 R应用 Rmarkdown