Число справа в диаграмме R с ggplot2

Question

Я пытаюсь представить график в R, но когда я рисую его, я получаю, 1 рядом с высоким, низким и нормальным, вот так: (Высокий, 1) Можно ли устранить очевидные и, 1 чтобы отображались только High, Low и Normal?

Код:

output$grafica <-renderPlotly({
   p <- ggplot(data(), aes(x=as.factor(data()[,names(data())[15]]),
                           fill=as.factor(data()[,names(data())[5]])) + 
     geom_bar(stat="count") +
     scale_fill_manual(values=c("#810f7c", "#8856a7", "#8c96c6"))+
     theme(axis.text.x=element_text(angle=45, hjust=1))+
     scale_color_viridis(discrete = TRUE) + 
     labs(title="Number", 
          y="Issues", 
          x="Project",
          fill= "Priority")
 })

Заранее спасибо.

Answer 1

Я получаю то же самое с этим кодом:

output$grafica4 <-renderPlotly({
   p <- ggplot(data(), aes(x=as.factor(data()[,names(data())[15]]),
                           fill=as.factor(data()[,names(data())[5]]))) + 
     geom_bar(stat="count") +
     scale_fill_manual(labels=c("High", "Low", "Normal"), 
                       values=c("#810f7c", "#8856a7","#8c96c6"),
                       name="Priority")+
     theme(axis.text.x=element_text(angle=45, hjust=1))+
     scale_color_viridis(discrete = TRUE) + 
     labs(title="Number", 
          y="Issues", 
          x="Project")
 })

Answer 2

Новый код:

 output$grafica4 <-renderPlotly({
   p <- ggplot(data(), aes(x=as.factor(data()[,names(data())[15]]),
                           fill=as.factor(data()[,names(data())[5]]))) + 
     geom_bar(stat="count") +
     #scale_fill_manual(labels=c("High", "Low", "Normal"), 
      #                 values=c("#810f7c", "#8856a7","#8c96c6"),
       #                name="Priority")+
     scale_shape_discrete(name ="Priority", breaks=c("High", "Low", "Normal"), 
                          labels=c("High", "Low", "Normal"))+
      theme(axis.text.x=element_text(angle=45, hjust=1))+
     scale_color_viridis(discrete = TRUE) + 
     labs(title="Number", 
          y="Issues", 
          x="Project",
          fill="Priority")
 })

Answer 3

добавьте

scale_fill_manual(values=c("#810f7c", "#8856a7", "#8c96c6"),
labels=c("High", "Low", "Normal"))

в ваш scale_fill_manual ()