仪表盘文件：


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


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

环境：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)))
))