小编Ziq*_* Lu的帖子

我们试图使用Highcharts将来自a1列的大约4000个数据点绘制为条形图.a1条的颜色基于另一列a3的值.如果a3在一行上是负数,则关于a1的相应条应为红色,而正a3应为绿色.

问题是生成图表大约需要25秒,打印图表需要20秒.有人可以帮我们修复代码并加快速度吗？我们试图禁用动画和阴影,但这并没有太大帮助.这是代码:

fun <- function(){

      ## Generate a random data set with roughly 4,000 lines
      df <- as.data.frame(cbind(x = seq(1:3900),
                                a1 = rnorm(3900, 1000000, 2000000),
                                a2 = abs(rnorm(3900, 1000000, 2000000)),
                                a3 = rnorm(3900, 20000, 30000),
                                a4 = rnorm(3900, 1000, 500),
                                a5 = rnorm(3900, 0.01, 0.02)))

      ## Modify the data set to assign colors to each bar based on the values
      ## of a3. Green bars signify positive a3's and red bars signify
      ## negative a3's
      df <- df %>% 
            mutate(a6 …