R 向条形图添加额外的网格线会使图例的名称加倍

我在下面创建了条形图，其中我在主

网格线之间添加了
网格线
。问题是这个新的
跟踪
将我不想看到的
图例的名称加倍

co<-c("AL","FG","GH","HJ","FT")
va<-c(1000000,1000000,1000000,5000000,5000000)
cova<-data.frame(co,va)
mtick <- 2*10**5 # minor ticks every 200k
library(plotly)
library(comprehenr)
    
    fig1 <- plot_ly(cova, x = ~co, y = ~va,
                    type = 'bar',
                    hovertemplate = paste('%{x}', '<br>Deaths: %{y}<br><extra></extra>'),
                    colors = c("#60ab3d","#6bbabf","#c4d436","#3e5b84","#028c75"),
                    color = ~co
                    
                    
                    
    ) 
    fig1 <- fig1 %>% layout(showlegend = TRUE,title=list(text="worldwide,by selected territories and period",x = 0,y=1,font=list(size=10)),
                            font = list(color = '#a2a2a2'),
                            legend=list(title=list(text='<b> Top 5 </b>'),itemclick = F, itemdoubleclick = F,orientation="h",xanchor = "center",x = 0,y=1.1),
                            
                            yaxis = list(fixedrange = TRUE,title="",
                                         #dtick = 250000
                                         showgrid = T,gridcolor = "#a2a2a2", showline = FALSE, showticklabels = TRUE, domain= c(0, 0.85)),
                            xaxis = list(fixedrange = TRUE,title="",zeroline = FALSE, showline = T,showticklabels = F,tickangle=45, showgrid = FALSE))%>% 
      
      config(modeBarButtonsToRemove = c('toImage',"zoom2d","toggleSpikelines","hoverClosestCartesian","hoverCompareCartesian","drawline","autoScale2d" ,"resetScale2d","zoomIn2d","zoomOut2d","pan2d",'select2d','lasso2d'))%>%
      config(displaylogo = FALSE)
    fig1%>% add_trace(x=~co, y=~va, yaxis="y2", marker=list(color='rgba(0,0,0,0)')) %>%
      layout(yaxis2=list( overlaying="y", 
                          tickvals=to_list(for(i in seq(0, max(cova$va), by=mtick) )  if (i%%10**4) i ), 
                          showticklabels=FALSE ,showlegend=F))

co%
配置（modeBarButtonsToRemove=c（'toImage'，'zoom2d'，'toggleSpikelines'，'hoverClosestCartesian'，'hoverCompareCartesian'，'drawline'，'autoScale2d'，'resetScale2d'，'zoomIn2d'，'zoomOut2d'，'pan2d'，'select2d'，'lasso2d'））%>%
配置（displaylogo=FALSE）
图1%>%add_trace（x=~co，y=~va，yaxis=“y2”，marker=list（color='rgba（0,0,0,0）'））%>%
布局（yaxis2=list（overlaying=“y”，
如果（i%%10**4）i，
showticklabels=FALSE，showlegend=F）
在
添加跟踪中添加
显示图例=F
-

fig1 %>% 
  add_trace(x=~co, y=~va, yaxis="y2", showlegend=F) %>%
  layout(yaxis2=list( overlaying="y", 
                      tickvals=to_list(for(i in seq(0, max(cova$va), by=mtick) )  if (i%%10**4) i ), 
                      showticklabels=FALSE ,showlegend=F))