Fatal编程技术网
  • r/
  • Plotly Facet_Wrap条形图不工作

Plotly Facet_Wrap条形图不工作

r

Plotly Facet_Wrap条形图不工作,r,ggplot2,plotly,R,Ggplot2,Plotly,我的数据集如下： 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

我的数据集如下：

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

DATE要启用悬停，可以将
fill
参数移动到
geom\u栏


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



graph找到了答案：


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



库（比例）

hp Thank@HubertL这最终对一个绘图有效，您知道如何将悬停添加到镶嵌面_wrap吗？如果您
fill=DATE


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