錯誤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) 

但是，錯誤顯示爲後最後codeg gplotly(p)：

錯誤gg2list（p，寬度=寬度，高度=高度，工具提示=工具提示， ：嘗試應用非功能

任何想法來解決這個問題？

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)