如何在r2d3中使用d3为轴变换设置动画？

library(r2d3)
library(htmlwidgets)
library(d3)

r2d3(data = data, script = function(data, width, height) {
  svg <- d3$select("#chart")
  
  # 创建x轴
  x <- d3$scaleLinear()
    $domain(c(0, 10))
    $range(c(0, width))
  
  xAxis <- d3$axisBottom(x)
    $ticks(10)
  
  svg$append("g")
    $attr("transform", paste0("translate(0,", height, ")"))
    $call(xAxis)
  
  # 设置轴变换动画
  svg$select("g")
    $transition()
    $duration(1000)  # 动画持续时间为1秒
    $call(xAxis)
})

r2d3(data = data, script = "path/to/your/script.R")