The legend names have a ,1 at the end , I am not sure what I might be doing wrong here. Does anyone have any idea what might be going wrong ?
Thanks
Code to generate the above plot :
DF$`J-region` <- strtrim(DF$`J-region`,5)
j_region_group <- DF %>% select(`read set`,`chain`,`J-region`,`frequency`) %>%
group_by(`read set`,`chain`,`J-region`) %>%
summarize(sum_frequency=sum(`frequency`))
j_samples_list <- split(j_region_group,j_region_group$`chain`)
l <- htmltools::tagList()
i=1
for (chain in names(j_samples_list)){
p <- j_samples_list[[chain]] %>% ungroup() %>%
ggplot(aes(x=`J-region`,y=`sum_frequency`,fill=`read set`)) +
theme(axis.text.x=element_text(angle=90,hjust=1)) +
geom_bar(stat="identity",position="dodge") +
theme(axis.title.x=element_blank()) +
ggtitle(chain) +
scale_colour_brewer(palette = "Set1")
x_width <- 600 + 40*length(unique(j_samples_list[[chain]]$`J-region`))
l[[i]] <- as_widget(ggplotly(p,width=x_width))
i=i+1
l[[i]] <- htmltools::tags$br("")
i=i+1
l[[i]] <- htmltools::tags$br("")
i=i+1
}
l