R片段 R代码段 gradient_bar.R用R中的渐变(阴影效果)填充条