Следующий код создает график, на котором нажатие на метки легенды добавляет или удаляет цвет из отдельных кривых. Есть ли способ настроить, какие кривые окрашены, а какие нет? Мне это нужно для диаграммы с ~ 20 кривыми, и я хочу, чтобы изначально была окрашена только одна.
library(dplyr)
library(tidyr)
library(ggplot2)
library(plotly)
my_data <-
tibble(x=seq(0,1,0.05),
y2=x^2,
y3=x^3)
my_data %>%
pivot_longer(
cols=y2:y3,
names_to="fun",
values_to="value"
) -> my_data_long
my_data_long %>%
ggplot(aes(x=x,y=value,group=fun)) +
geom_path() +
geom_path(aes(color=fun)) -> gg
ggplotly(gg)