从ggplot2使用plotly时缺少图例和颜色

Question

我使用ggplot2制作了一个箱形图，该图在R中的颜色看起来很漂亮，并带有相应的图例。 当我将其导出到图上时，方框图全为红色，并且图例也消失了。 我无法在此处发布绘图的图片，因为它不会让我看到，但是我的代码如下：

r <- ggplot(data=all.data, aes(factor(Year), Data))+xlab("Year")
r <- r + geom_boxplot(outlier.shape = NA, aes(fill = factor(Month))) 
r <- r + scale_y_continuous(limits = c(-1, 6.5))
r <- r+ scale_fill_discrete(name = "Month")
r
gg <- ggplotly(r,kwargs=list(world_readable=FALSE))

我已经在geom_boxplot层中包括了处理颜色的fill命令，但是我不明白为什么它不能传输。

Answer 1

您是否安装了最新的ggplot2和plotly软件包？ 我尝试了简单的条形图，但无法重现您的问题。

我安装了以下版本：

packageVersion("ggplot2")
# [1] ‘1.0.1’
packageVersion("plotly")
# [1] ‘1.0.7’
packageVersion("shiny")
# [1] ‘0.12.2’

如果您的版本较旧，则可以考虑升级到最新版本。

在我的机器上，这个愚蠢的例子（类似于您不完整的代码片段）：

library(plotly)
library(ggplot2)

all.data <- data.frame(Year = c(2000, 2000, 2005, 2005),
                       Month = c("Jan", "Jan", "Jul", "Jul"),
                       Data = c(0, 3.2, 3, 4))

r <- ggplot(data = all.data, aes(factor(Year), Data)) + xlab("Year")
r <- r + geom_boxplot(outlier.shape = NA, aes(fill = factor(Month))) 
r <- r + scale_y_continuous(limits = c(-1, 6.5))
r <- r + scale_fill_discrete(name = "Month")
r

Sys.setenv("plotly_username" = "MyCoooolUsername")
Sys.setenv("plotly_api_key" = "MySeCrEtPWD")
plotly:::verify("username")
plotly:::verify("api_key")
gg <- ggplotly(r,world_readable=TRUE)
gg

产生

如预期的那样。