Легенда по цветам, а не по цветам * группы в сюжетной игре R на скрипке - PullRequest
Новая
       26

Легенда по цветам, а не по цветам * группы в сюжетной игре R на скрипке

1 голос
/ 11 марта 2019

У меня есть данные подсчета из двух групп (G1 и G2), где первая группа имеет подсчета из двух типов (T1 и T2), а вторая группа имеет подсчета из трех типов (T1, T2 и T3): 

set.seed(1)
df <- data.frame(count = rpois(100,100),
                 type = c(rep("T1",20), rep("T2",20), rep("T1",20), rep("T2",20), rep("T3",20)),
                 group = c(rep("G1",40), rep("G2",60)),
                 stringsAsFactors = F)

Я хочу нарисовать эти данные на графике скрипки, используя R s plotly, где цвета - type, а положение оси x - group. Вот что я сейчас делаю: 

df$type <- factor(df$type)

library(plotly)
plot_ly(x = df$group, y = df$count, split = df$group, type = 'violin', box = list(visible = F), points = F,showlegend = T, color = df$type)

Что дает: enter image description here

Как видите, легенда показывает расширение type * group, но я хочу, чтобы оно показывало только type (т. Е. Следуйте аргументу color в функции plot_ly).

Есть идеи, как это сделать?

...