1

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

enter image description here

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

enter image description here

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');
Tung
  • 26,371
  • 7
  • 91
  • 115
Vinay
  • 19
  • 1
  • This might help https://stackoverflow.com/a/50240153/786542 – Tung Jun 20 '18 at 06:14
  • 1
    `Builder_CommunityName` and `Storiesgrouping` have different levels. This is why the legends can't be combined. It is hard for anyone to help you further, when you don't have a reproducible example. – Axeman Jun 20 '18 at 08:23
  • @Axeman, Can i turn off the legend for geom_point? Then that should make up some sense to the user. Thanks for your help :-) – Vinay Jun 20 '18 at 13:55
  • `+ scale_shape_manual(guide = "none")` – Axeman Jun 20 '18 at 14:26
  • 1
    Had the same problem and applied an ugly fix: https://stackoverflow.com/a/59615148/1114975 – Comfort Eagle Jan 06 '20 at 15:56

0 Answers0