Hover in ggplotly ändern facet_grid

Question

ich einen Datenrahmen haben wie folgt:

DATE<- as.Date(c('2016-11-17','2016-11-17','2016-11-17','2016-11-17', '2016-11-18', '2016-11-18', '2016-11-18','2016-11-18')) 

TEST<-c('test', 'test','test','test','test','test','test','test') 

TYPE<-c('type1', 'type1', 'type2', 'type2', 'type1', 'type1','type2', 'type2') 

CATEGORY<-c('A', 'B','A', 'B','A', 'B','A', 'B') 

Revenue<-c(1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000) 

df1<-data.frame(DATE, TEST, TYPE, CATEGORY, Revenue) 

df1 
     DATE TEST TYPE CATEGORY Revenue 
1 2016-11-17 test type1  A 1000 
2 2016-11-17 test type1  B 2000 
3 2016-11-17 test type2  A 3000 
4 2016-11-17 test type2  B 4000 
5 2016-11-18 test type1  A 5000 
6 2016-11-18 test type1  B 6000 
7 2016-11-18 test type2  A 7000 
8 2016-11-18 test type2  B 8000 

Dann, wenn ich die plotly Funktion mit ggplot (ggplotly) verwenden, um eine facet_grid zu tun, es sieht aus wie folgt:

hp <- ggplot(df1, aes(x=DATE, y=Revenue)) + 
geom_bar(stat="identity") + 
facet_grid(`TYPE`~CATEGORY, scales = "free", space = "free") + 
scale_y_continuous(name="Revenue", labels = dollar) 

wie ändere ich den Hover-Abschnitt dieser Einnahmen als Dollar-Betrag zu zeigen? Ein nettes Plus wäre auch, wie man die Farbe des Balkens ändert, um die DATE Variable darzustellen.

Am wichtigsten, obwohl ich den Hover-Abschnitt ändern muss, so dass der Umsatz als ein Dollarbetrag dargestellt wird.

Jede Hilfe wäre großartig, danke!

Answer 1

Ich kann nur schmutzige Arbeit um

df1$Revenue2 <- df1$Revenue 
df1$Revenue <- paste0(df1$Revenue2, '$') 

hp <- ggplot(df1, aes(x=DATE, y=Revenue2, label = Revenue)) + 
    geom_bar(stat="identity") + 
    facet_grid(`TYPE`~CATEGORY, scales = "free", space = "free") + 
    scale_y_continuous(name="Revenue") + 
    theme(legend.position="none") 

ggplotly(hp, tooltip = c("x", "label")) 

In Bezug auf Färbung vorschlagen, aus irgendwelchen Gründen, nachdem ich fill Parameter hinzuzufügen Hover-Text entfernt. Das ist komisch.