2

我想使用 ggplotly 绘制一个 ggplot2 图像我想要做的是最初绘制灰色填充的矩形，没有任何美学映射，然后在第二步中绘制瓷砖并根据美学改变颜色。当我使用 ggplot 时我的代码正在运行，但是当我尝试使用 ggplotly 将我的图形转换为交互式时崩溃

这是一个示例代码

library(ggplot2)
library(data.table)
library(plotly)
library(dplyr)


  x = rep(c("1", "2", "3"), 3)
  y = rep(c("K", "B","A"), each=3)
  z = sample(c(NA,"A","L"), 9,replace = TRUE)

  df <- data.table(x,y,z)

  p<-ggplot(df)+
    geom_tile(aes(x=x,y=y),width=0.9,height=0.9,fill="grey") 


    p<-p+geom_tile(data=filter(df,z=="A"),aes(x=x,y=y,fill=z),width=0.9,height=0.9)
p

在此处输入图像描述

但是当我输入这个

 ggplotly(p)

我收到以下错误

[.data.frame(g, , c("fill_plotlyDomain", "fill"))中的错误：
选择了未定义的列

我使用的版本是

> packageVersion("plotly")

1'4.7.1 _

packageVersion("ggplot2")

1 '2.2.1.9000'</p> ##########Edited 亚瑟的示例 

     p<-ggplot(df)+
    geom_tile(aes(x=x,y=y,fill="G"),width=0.9,height=0.9) 
  p<- p+geom_tile(data=filter(df,z=="A"),aes(x=x,y=y,fill=z),width=0.9,height=0.9)

  p<-p+ scale_fill_manual(
    guide = guide_legend(title = "test",
                         override.aes = list(
                           fill =c("red","white")                  )
    ),
    values = c("red","grey"),
    labels=c("A",""))
p

在此处输入图像描述

这可行，但 ggplotly(p) 在图例中添加了标记为 G 的灰色条

4

3 回答 3

1

该ggplotly函数的输出是一个包含plotly类的列表。它被打印为 Plotly 图，但您仍然可以将其作为列表使用。此外，文档表明修改列表可以清除全部或部分图例。只需了解数据的结构。

p<-ggplot(df)+
   geom_tile(aes(x=x,y=y,fill=z),width=0.9,height=0.9)+
   scale_fill_manual(values = c(L='grey', A='red'), na.value='grey')
p2 <- ggplotly(p)
str(p2)

全局图例在此处，p2$x$layout$showlegend将其设置为 false 根本不显示图例。

组特定的图例每次都出现在 9 个p2$x$data元素中的每个元素中的另一个showlegend属性中。其中只有 3 个设置为TRUE，对应图例中的 3 个键。因此，以下循环清除了所有不需要的标签：

for(i in seq_along(p2$x$data)){
  if(p2$x$data[[i]]$legendgroup!='A'){
    p2$x$data[[i]]$showlegend <- FALSE
  }
}

瞧！

于 2017-10-07T14:00:53.207 回答
0

这在这里有效：

ggplot(df)+
  geom_tile(aes(x=x,y=y,fill=z),width=0.9,height=0.9)+
  scale_fill_manual(values = c(L='grey', A='red'), na.value='grey')

ggplotly(p)

我猜您的问题来自使用 2 个不同的数据源，df并且filter(df,z=="A"), 具有相同名称的列。

于 2017-10-06T12:08:20.263 回答
0

[注意这还不是答案] （仅供参考，因为它超出了评论的限制。）

问题比较复杂。

我刚刚调试完plotly. 好像发生在这里。

我在GitHub中打开了一个问题

这是重现问题的最少代码。

library(ggplot2)

set.seed(1503)

df <- data.frame(x = rep(1:3, 3),
                 y = rep(1:3, 3),
                 z = sample(c("A","B"), 9,replace = TRUE), 
                 stringsAsFactors = F)

p1 <- ggplot(df)+
  geom_tile(aes(x=x,y=y, fill="grey"), color = "black")

p2 <- ggplot(df)+
  geom_tile(aes(x=x,y=y),fill="grey", color = "black")

class(plotly::ggplotly(p1))
#> [1] "plotly"     "htmlwidget"
class(plotly::ggplotly(p2))
#> Error in `[.data.frame`(g, , c("fill_plotlyDomain", "fill")): undefined columns selected
于 2019-07-04T13:03:12.083 回答