如何使用timevis更改时间线可视化中点的颜色？

library(timevis)

# 创建时间线对象
data <- data.frame(
  id = 1:5,
  content = c("Event 1", "Event 2", "Event 3", "Event 4", "Event 5"),
  start = c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04", "2022-01-05"),
  end = c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04", "2022-01-05"),
  color = c("red", "blue", "green", "yellow", "orange")
)

timeline <- timevis(data)

# 更改特定点的颜色
setItems(timeline, id = 3, color = "purple")

# 显示时间线
timeline