set.seed(123)
student.name <- rep(c("Annie","Jane","Bobby","Tyson"),each=16)
year <- rep(c(2007,2008,2009,2010),each=4,times=4)
period <- rep(c("First","Second","Third","Fourth"),times=16)
grades <- round(runif(64,min=60,max=100),0)
df <- data.frame(student.name,year,period,grades)
mygraph <- df %>% ggplot(aes(x=year,y=grades,color=student.name,group=interaction(student.name,period))) +
geom_line(aes(linetype=period))
ggplotly(mygraph)
Я создал образец данных выше, чтобы попытаться продемонстрировать проблему / проблему, которую я пытаюсь решить.
В ggplot, легенда показывает 8 элементов, каждый из периодов и имена учеников. Однако, когда я применяю ggplotly, легенда показывает все 16 с меткой (period, student.name). Я предпочитаю способ отображения легенды в ggplot, есть ли способ изменить это с помощью ggplotly? Должен ли я использовать plot_ly, чтобы иметь возможность внести это изменение? Я не был уверен, как это сделать в plot_ly, если это тот маршрут, по которому я должен идти.
См. Изображения ниже:
ggplot создано
ggplotly применяется к ggplot выше
Спасибо!