Изменение Hover в ggplotly facet_grid

Question

У меня есть dataframe следующим образом:

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 

Тогда, когда я использую plotly функцию с ggplot (ggplotly) для того, чтобы сделать facet_grid, это выглядит, как показано ниже:

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) 

Как изменить раздел парения этого, чтобы показать доход в виде суммы в долларах? Кроме того, приятным плюсом будет также изменение цвета панели для представления переменной DATE.

Самое главное, хотя мне нужно изменить раздел наведения, чтобы доход был представлен как сумма в долларах.

Любая помощь была бы замечательной, спасибо!

Answer 1

я могу предложить только грязную работу вокруг

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")) 

Относна окраской, по некоторым причинам, после того как я добавить fill параметр он удаляет парения текста. Это странно.