如何使用顏色填充來解決ggplotly錯誤

Question

使用從ggplot2擴展的ggplotly調用，我試圖給點添加輪廓。

對ggplot的呼叫有效，但將呼叫延伸至ggplotly會產生錯誤。

目標是基於具有黑色輪廓的連續變量（在這種情況下使用pch = 21）的顏色填充點的交互式繪圖。

最小的可重複的例子：

library(ggplot2) 
library(plotly) 
ggplot(data=mtcars, aes(mpg, wt, fill=hp))+geom_point(pch=I(21))+scale_fill_continuous(low='red', high='blue') 

ggplot(data=mtcars, aes(mpg, wt, fill=hp))+geom_point(pch=I(21))+scale_fill_continuous(low='red', high='blue')+ggplotly() 

Error: Don't know how to add o to a plot In addition: Warning message: In L$marker$color[idx] <- aes2plotly(data, params, "fill")[idx] : number of items to replace is not a multiple of replacement length

Answer 1

就快，但不是對結束對+ggplotly()標記呼叫，則需要圍繞ggplot與ggplotly

## save the ggplot object 
g <- ggplot(data=mtcars, aes(mpg, wt, fill=hp))+ 
    geom_point(pch=I(21))+ 
    scale_fill_continuous(low='red', high='blue') 

## call ggplotly on the ggplot object 
ggplotly(g) 

雖然，我注意到，在調用ggplotly當fill的不尊重......

直接在plot_ly做到這一點，你可以指定調色板和情節它

pal <- colorRampPalette(c("red","blue"))(length(unique(mtcars$hp))) 

plot_ly(data = mtcars, x = ~mpg, y = ~wt, color = ~hp, colors = pal, 
      type = "scatter", mode = "markers", 
      marker = list(size = 10, 
          line = list(color = "black", 
          width = 2))) 

更多的例子

0參見 here和個