首页 文章

Plotly Facet_Wrap条形图不起作用

提问于
浏览 次
1

我有一个数据集如下：

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)

enter image description here

质量真的不是那么好，因为我希望能够将鼠标悬停在无法正常工作的状态上，当我自动缩放时，数字会从侧面移除 .

从这篇文章中实现的目标：

1）当悬停在每个条上时，显示值详细信息

2）将数字格式更改为$ amount

3）删除显示日期的一侧的图例，我按日期在条形图中着色，但我不需要图例 .

4）自动缩放时，请保留侧面的数字 .

我知道这很多但是如果有人能够回答这些问题中的任何一个（最好是第一个目标）那将是一个巨大的帮助 . 谢谢！

r ggplot2 plotly

2 回答

  • 1

    要启用悬停，可以将 fill 参数移动到 geom_bar 美学：

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

    弄清楚了：

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

相关问题