Merging Legends for both geom Line and Point

问题

I was very new to R Script. If you are able to help my problem that would be really great... Here is my problem...

I am able to create custom visual using R Script and make hover over work in that visual by using this below link Link I think It is displaying legend for both line and point as well. This is how it’s showing me in the graph Both Legends

But I would like to show up something like this…. Which represents both the line and point in the same legend name Same legend.

Please find the R Script below, Please go through that and can you tell me where I was going wrong….

      source('./r_files/flatten_HTML.r')

Library Declarations

      library(htmlwidgets);library(XML);library(ggplot2);library(plotly);

      Values$Storiesgrouping <- as.character(Values$Storiesgrouping)
      Cols <- as.character(Values$Color)
      names(Cols) <- as.character(Values$Builder_CommunityName)
      Sizs <- as.numeric(Values$Size)
      names(Sizs) <- as.character(Values$Builder_CommunityName)

Actual code

g <- ggplot(Values, aes(x=BaseSquareFeet, y=BasePriceM, 
                        group=Builder_CommunityName, color=Builder_CommunityName))+
  geom_line()+
  geom_point(aes(shape=Storiesgrouping), show.legend=FALSE,size=3)+ 
  scale_colour_manual(values = Cols)+
  scale_size_manual(values = Sizs)+
  scale_shape_manual(values=c("1"=19, "2"=15, "3+"=17)) 
plot(g)

Create and save widget

p = ggplotly(g); internalSaveWidget(p, 'out.html');

来源：https://stackoverflow.com/questions/50939130/merging-legends-for-both-geom-line-and-point