ggplotly（）内の凡例ラベルを変更する

Question

データセットの定量変数に応じて色分けされたポリゴンのプロットが、特定の離散値（0,5,10,15,20,25）で切り取られています。私は現在、静的なggplot（）出力を持っています。すなわち、凡例値はカットオフ値（0,5,10,15,20,25）です。静的プロットは以下である -

しかし、私は単にインタラクティブプロットこの静的プロットを変換すると、凡例の値は16進数の値（＃54278F、＃756BB1、等）の代わりに、カットオフになります値（0,5,10,15,20,25）。このインタラクティブグラフのスクリーンショットは、以下に示されている -

Iカットオフ値（0、5、10、15であることがインタラクティブプロットの凡例ラベルを変更する方法を決定しようとしています、 20,25）。どんな提案やサポートも大歓迎です！カットポイントを使用して

library(plotly) 
library(ggplot2) 
library(RColorBrewer) 

set.seed(1) 
x = abs(rnorm(30)) 
y = abs(rnorm(30)) 
value = runif(30, 1, 30) 

myData <- data.frame(x=x, y=y, value=value) 

cutList = c(5, 10, 15, 20, 25) 
purples <- brewer.pal(length(cutList)+1, "Purples") 
myData$valueColor <- cut(myData$value, breaks=c(0, cutList, 30), labels=rev(purples)) 

# Static plot 
sp <- ggplot(myData, aes(x=x, y=y, fill=valueColor)) + geom_polygon(stat="identity") + scale_fill_manual(labels = as.character(c(0, cutList)), values = levels(myData$valueColor), name = "Value") 

# Interactive plot 
ip <- ggplotly(sp) 

Answer 1

ラベルと色のscale_fill_manualを使用します。以下は

は、私は、静的およびインタラクティブなプロットを作成するために使用するコードです。

cutList = c(5, 10, 15, 20, 25) 
purples <- brewer.pal(length(cutList)+1, "Purples") 
myData$valueLab <- cut(myData$value, breaks=c(0, cutList, 30), labels=as.character(c(0, cutList))) 

# Static plot 
sp <- ggplot(myData, aes(x=x, y=y, fill=valueLab)) + geom_polygon(stat="identity") + scale_fill_manual(values = rev(purples)) 

# Interactive plot 
ip <- ggplotly(sp)