Plotly Facet_Wrap條形圖不工作

我有一個數據集如下：Plotly Facet_Wrap條形圖不工作

DATE <- as.Date(c('2016-11-15','2016-11-15','2016-11-15', '2016-11-15', '2016-11-16', '2016-11-16', '2016-11-16', '2016-11-16')) 
TYPE1 <- c('A','A','A', 'A','A','A','A','A') 
TYPE2 <- c('uno','uno','dos', 'dos','uno','uno','dos','dos') 
TYPE3 <- c('bueno', 'mal','bueno','mal','bueno','mal','bueno','mal') 
Revenue <- c(97310.77, 51481.13, 1842.42, 2157.38, 55735.40, 56917.75, 1862.75, 551.23) 
df <- data.frame(DATE, TYPE1, TYPE2, TYPE3, Revenue) 

df 

     DATE TYPE1 TYPE2 TYPE3 Revenue 
1 2016-11-15  A uno bueno 97310.77 
2 2016-11-15  A uno mal 51481.13 
3 2016-11-15  A dos bueno 1842.42 
4 2016-11-15  A dos mal 2157.38 
5 2016-11-16  A uno bueno 55735.40 
6 2016-11-16  A uno mal 56917.75 
7 2016-11-16  A dos bueno 1862.75 
8 2016-11-16  A dos mal 551.23

我在這裏的目標是使用plotly創建一個facet_wrap ggplot是互動： https://plot.ly/ggplot2/getting-started/

library(scales) 
graph<-ggplot(df, aes(x=DATE, y= Revenue, fill = DATE)) + geom_bar(stat = "identity") +labs(x = "Date", y= "Revenue") + scale_x_date(labels = date_format("%m-%d"))+facet_wrap(~`TYPE2`+`TYPE3`) 

ggplotly(graph)

質量真的不是很好，因爲我想能夠懸停在它不工作，當我自動縮放，數字得到雷莫從側面出來。

目標這個交實現：

1）當懸停在各欄中，顯示值細節

2）號碼改變格式爲$量

3）上卸下圖例它顯示日期的一面，我按日期在酒吧中着色，但我不需要圖例。

4）自動縮放時，將數字保留在側面。

我知道這很多，但如果任何人能夠回答這些問題（最好是第一個目標），這將是一個巨大的幫助。謝謝！

來源

2016-11-21 Nick Knauer

想通了：

library(scales) 
hp <- ggplot(df, aes(x=DATE, y=Revenue)) + 
geom_bar(stat="identity", colour = "white")+ 
facet_grid(`TYPE2`~`TYPE3`, scales = "free", space = "free")

來源

2016-11-22 21:01:26

如果您填寫了「DATE」，它不會懸停 – HubertL

爲了能夠懸停，您可以fill參數移到geom_bar美學：

graph<-ggplot(df, aes(x=DATE, y= Revenue)) + 
     geom_bar(aes(fill = DATE), stat = "identity") 
ggplotly(graph)

來源

2016-11-21 23:31:03 HubertL

感謝@HubertL這最後一個情節的工作，你知道如何將懸停添加到facet_wrap？ –

Plotly Facet_Wrap條形圖不工作

回答

相關問題