更改 plotly-R 中的圖例

Question

我對 plotly 很陌生，目前正在嘗試為三個指標創建三個不同的 plotly 條：基尼系數和帕爾馬系數以及 S80/S20。 我有以下兩個問題：

1. 圖例顯示了指標的名稱，但我希望它顯示三個不同年份的三個不同符號，比如說：circle=2018, x=2019, o=2020。 可以調整嗎？
2. 這三個圖之間是否可以有一定的距離（比如圖之間的距離為 1-2 厘米）？

非常感謝您的幫助。 完整代碼在這里：

library(plotly)

gini<-as.data.frame(c(0.4, 0.3, 0.2))
palma<-as.data.frame(c(1.2, 1.1, 1.0))
S<-as.data.frame(c(5.2, 5.1, 5.0))

p <- plot_ly(gini, x = "Coeff. di Gini", y = ~gini$`c(0.4, 0.3, 0.2)`, alpha = 0.7) 

q<- plot_ly(palma, x="Coeff. di Palma", y=~palma$`c(1.2, 1.1, 1)`, alpha=0.7)

r<-plot_ly(S, x="S80/S20", y=~S$`c(5.2, 5.1, 5)`, alpha=0.7)

subplot(
  add_trace(p,  name = "Coeff. di Gini", x = "Coeff. di Gini", y = ~gini$`c(0.4, 0.3, 0.2)`, symbol = ~gini$`c(0.4, 0.3, 0.2)`, symbols = c('circle','x','o'),
            marker = list(size = 10),type = 'scatter', mode = 'lines+markers'),
  add_trace(q,  name="Coeff. di Palma",  x = "Coeff. di Palma", y = ~palma$`c(1.2, 1.1, 1)`, symbol = ~palma$`c(1.2, 1.1, 1)`, symbols = c('circle','x','o'),
            marker = list(size = 10), type = 'scatter', mode = 'lines+markers'),
  
  add_trace(r, name="S80/S20", x = "S80/S20", y = ~S$`c(5.2, 5.1, 5)`, symbol = ~S$`c(5.2, 5.1, 5)`, symbols = c('circle','x','o'),
            marker = list(size = 10), type = 'scatter', mode = 'lines+markers')
  
  
)

Answer 1

圖例顯示了指標的名稱，但我希望它顯示三個不同年份的三個不同符號，比如說：circle=2018, x=2019, o=2020。 可以調整嗎？

您可以添加僅用於提供圖例但不顯示點的跡線。

visible = 'legendonly'

並隱藏你的“真實”痕跡的傳說。

showLegend = F

這三個圖之間是否可以有一定的距離（比如圖之間的距離為 1-2 厘米）？

如果您在子圖調用中添加margin ，則可以指定子圖之間的距離。 需要一些擺弄，但你可以嘗試

margin = 0.1

library(plotly)

gini <- as.data.frame(c(0.4, 0.3, 0.2))
palma <- as.data.frame(c(1.2, 1.1, 1.0))
S <- as.data.frame(c(5.2, 5.1, 5.0))

p <- plot_ly(x = "Coeff. di Gini", 
             y = gini$`c(0.4, 0.3, 0.2)`, 
             alpha = 0.7, 
             name = "Coeff. di Gini", 
             symbol = gini$`c(0.4, 0.3, 0.2)`, 
             symbols = c('circle','x','o'),
             marker = list(size = 10),
             type = 'scatter', 
             mode = 'lines+markers',
             showlegend=F) %>% 
  add_markers(name = "2018", 
            marker = list(size = 10, symbol = 'circle'),
            showlegend=T, visible='legendonly') %>%
  add_markers(name = "2019", 
            marker = list(size = 10, symbol = 'x'),
            showlegend=T, visible='legendonly') %>%
  add_markers(name = "2020", 
          marker = list(size = 10, symbol = 'circle-open'),
          showlegend=T, visible='legendonly') 


q <- plot_ly(x="Coeff. di Palma", 
             y=palma$`c(1.2, 1.1, 1)`, 
             alpha=0.7,  
             name="Coeff. di Palma", 
             symbol = palma$`c(1.2, 1.1, 1)`, 
             symbols = c('circle','x', 'o'),
             marker = list(size = 10), 
             type = 'scatter', 
             mode = 'lines+markers', 
             showlegend=F)


r <- plot_ly(x="S80/S20", 
             y=S$`c(5.2, 5.1, 5)`, 
             alpha=0.7,
             name="S80/S20", 
             symbol = ~S$`c(5.2, 5.1, 5)`, 
             symbols = c('circle','x','o'),
             marker = list(size = 10), 
             type = 'scatter', 
             mode = 'lines+markers', 
             showlegend=F)


subplot(
  add_trace(p),
  add_trace(q),
  add_trace(r),
  margin = 0.1
) %>% layout(showlegend=T)