Tengo una tabla con datos semanales que comparo con un objetivo anual. Solía agregar el objetivo anual de esta manera:

 bb_y_grid(show = TRUE, lines = list(list(value = 99, text = "Goal")))

Esta fue una solución agradable y simple, sin embargo, los objetivos cambiaron en 2022, por lo que ahora quiero mostrar 99 para x = 2021 y 98 para x = 2022. No pude encontrar una opción para limitar la línea de cuadrícula para mostrar solo para un rango de X.

Mi siguiente idea fue agregar una línea a mis datos. Así que tengo 1 línea para los datos reales y 1 línea para el presupuesto. Esto se ve de la siguiente manera:

Sin embargo, no quiero mostrar los puntos de la recta presupuestaria, solo los datos reales. Mi código es el siguiente:

 billboarder() %>% bb_linechart(dt.Cycle(), mapping = bbaes(YearWeekCiclo, Perc, Type), show_point = T, type = "line") %>% bb_x_axis(type = "category", tick = list(rotate = 90, width = 100), height = 90, label = list(text = "Year-Week-Cycle", position = "outer-right")) %>% bb_y_axis(label = list(text = "Percentage", position = "outer-top"), max = 100) %>% bb_y_grid(show = TRUE) %>% bb_legend(show = FALSE)

Mi pregunta: ¿Cómo puedo agregar una segunda línea a mi gráfico con su propio estilo?

Nota: Si solo está familiarizado con el uso de billboard.js en JavaScript, pero conoce una solución, puedo intentar traducirlo de nuevo al lenguaje R si es necesario.