从 ggplotly 图例中删除括号

Question

我找到了this example here，它提供了一种完美的方式来摆脱 ggplotly 添加到图例中的额外术语。

我的问题是解决方案中的代码删除了逗号, 之后的所有内容，而我有一个实际的逗号是我的图例，格式为DIC, Spliced

代码是：

for (i in 1:length(myplot$x$data)){
    if (!is.null(myplot$x$data[[i]]$name)){
        myplot$x$data[[i]]$name =  gsub("\\(","",str_split(myplot$x$data[[i]]$name,",")[[1]][1])
    }
}

我原来的剧情有这样的传说：

应用代码后，我在传说中失去了 Spliced/Uspliced 术语

Answer 1

所以plotly 总是将新图例变为(orignal_legend,1)（奇怪）。总是,1) 吗？或者可以是,2) 或任何其他号码。我不知道。

如果您的原始图例是(DIC, Spliced, 1)，它将变为((DIC, Spliced, 1), 1) 和plotly。因此，您必须从图例中删除开头的圆括号和结尾的 ,1)。用gsub 试试这个正则表达式：

for (i in 1:length(myplot$x$data)){
  if (!is.null(myplot$x$data[[i]]$name)){
    myplot$x$data[[i]]$name = gsub('^\\(|,\\d+\\)$', '', myplot$x$data[[i]]$name)
  }
}

如前所述，我不确定它是否总是,1) 或者也可以是,2)，所以为了更安全，我使用了\\d+，它会在最后删除任何数字字符串。