在r中更改ggcompetingrisks图中的图例标签

install.packages("ggplot2")
install.packages("survival")

library(ggplot2)
library(survival)

data <- data.frame(time = c(10, 20, 30, 40, 50),
                   event = c(1, 1, 0, 1, 0),
                   group = c("A", "A", "B", "B", "C"))

ggcompetingrisks(data, time = time, event = event, group = group) +
  labs(color = "自定义标签")