Я пытаюсь использовать plotly для рисования коробочных диаграмм для двух групп, это прекрасно работает, если я не реализую с блестящим приложением, и рисунок выглядит так:
Но когда я хочу реализовать эту фигуру в приложении Shiny, две группы коррелируют вместе и теперь выглядят так:
Мои коды записаны как:
g2 <- ggplot(df_CL, aes(x = factor(Population, levels = c('NP', 'T2', 'T3', 'PP')), y= value, fill = interaction(Population, variable) )) + geom_boxplot() +
stat_boxplot(geom ='errorbar')+
xlab('Population') +
ylab('Clearnce (L/hr)') +
labs(fill = 'Legend') +
theme_grey()+
scale_fill_manual(values=c("#F8766D","#C77CFF","#7CAE00","#00BFC4","#faa49e","#ddafff","#a0e100","#00f1f7"))+
theme(text = element_text(size =16))
p2 <- ggplotly(g2) # Convert to a plotly object.
В чем проблема с моими кодами?