ggplotly出错：尝试应用非函数

Question

我想使用函数ggplotly

生成交互式ggplot图

这是我的代码：

set.seed(100)
d <- diamonds[sample(nrow(diamonds),1000),]

p <- ggplot(data = d,aes(x=carat,y=price))+
  geom_point(aes(text=paste("Clarity:",clarity)),size = 4)+
  geom_smooth(aes(color = cut,fill=cut))+facet_wrap(~cut)

gg <- ggplotly(p)

但是，错误显示在最后一个代码gplotly(p)之后：

  

gg2list中的错误（p，width = width，height = height，tooltip = tooltip，   ：尝试应用非功能

有什么想法解决这个问题吗？

Answer 1

请改用plotly_build。以下代码适用于我的电脑：

set.seed(100)
d <- diamonds[sample(nrow(diamonds),1000),]

p <- ggplot(data = d,aes(x=carat,y=price))+
  geom_point(aes(text=paste("Clarity:",clarity)),size = 4)+
  geom_smooth(aes(color = cut,fill=cut))+facet_wrap(~cut)


gg <- plotly_build(p)
print(gg)