[英]Remove double legend plotly in R
我不知道為什么我有一個雙重傳奇。 如何刪除寫有“Aa”的第二個圖例
代碼:
city = c("paris", "lyon", "lyon", "marseille", "lille", "toulouse", "bordeaux")
start = c("2018-08-04", "2018-07-25", "2018-07-30", "2018-07-29", "2018-08-03", "2018-08-04", "2018-08-03")
max = c(36.4, 37.2, 38.4, 37.4, 36.7, 34.9, 34.8)
duration = c(4, 3, 8, 10, 5, 4, 3)
tab = as.data.frame(city, start, duration, max)
tab$duration = as.integer(tab$duration)
t <- list(
family = "sans serif",
size = 14,
color = toRGB("grey50"))
bubbleplot <- plot_ly(tab, x = ~start, y = ~max,
text = ~paste(duration, "jours"),
color = ~city, mode='markers+text'
)
bubbleplot = bubbleplot %>% add_markers(
marker = list(size = ~duration*4, opacity = 0.7,
sizemode = "diameter"))
bubbleplot <- bubbleplot %>% add_text(textfont = t, textposition = "inside")
bubbleplot
使用以下,
t <- list(
family = "sans serif",
size = 14,
color = toRGB("grey50"))
bubbleplot <- plot_ly(tab, x = ~start, y = ~max,
text = ~paste(duration, "jours"),
color = ~city, mode='markers+text'
)
bubbleplot = bubbleplot %>% add_markers(
marker = list(size = ~duration*4, opacity = 0.7,
sizemode = "diameter")) %>% add_text(x = ~start, y = ~max,
text = ~paste(duration, "jours"), textfont = t, textposition = "inside", data = tab, inherit = F)
bubbleplot
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.