Black Lives Matter. Please consider donating to Black Girls Code today.
Learn how to use COVID-19 data in open source Dash apps. Register for the Sept 23rd webinar with IQT!

Wierd vector legend names

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