R：保留分类列名称，但不要绘制它们

Question

使用此对象：

fullDT <-
structure(list(QuarterAndYear = structure(1:12, .Label = c("2015 Q1", 
"2015 Q2", "2015 Q3", "2015 Q4", "2016 Q1", "2016 Q2", "2016 Q3", 
"2016 Q4", "2017 Q1", "2017 Q2", "2017 Q3", "2017 Q4"), class = "factor"), 
    `TRUE` = c(3, 0, 1, 0, 2, 1, 0, 1, 3, 0, 0, 0), `FALSE` = c(0, 
    0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0), OTHER = c(0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0)), class = c("data.table", "data.frame"
), row.names = c(NA, -12L), sorted = "QuarterAndYear")

我可以绘制这样的图形：

plot_ly(fullDT,x = ~QuarterAndYear,y=0,type = "scatter",mode = "lines")%>%add_trace(y = ~`TRUE`)%>%add_trace(y = ~`FALSE`)%>%add_trace(y = ~OTHER)%>%layout(xaxis= list(type = "category"))

几乎给了我所需的一切。即，它为我提供了第一列类别名称，作为x轴的刻度标签。但是，图例中将显示“迹线0”。如果我删除了此内容：

plot_ly(fullDT,type = "scatter",mode = "lines")%>%add_trace(y = ~`TRUE`)%>%add_trace(y = ~`FALSE`)%>%add_trace(y = ~OTHER)%>%layout(xaxis= list(type = "category"))

x轴现在未标记。 我不确定如何使两者同时工作。我可以做某种传奇魔法，也许吗？但我觉得有一种更清洁的方法。

我尝试了一些布局(xaxis = list(...))，但无济于事...

Answer 1

在绘制图时，您可以从空开始并随需添加。当您绘制不带y的x时，它将添加trace0。因此，绘制所需的图，然后使用colNames子集添加迹线，从中删除x，然后循环绘制。

p <- plot_ly(type = 'scatter', mode = 'lines') %>% 
  layout(yaxis = list(title = "TRUE"))
colNames <- names(fullDT)
colNames <- colNames[-which(colNames == 'QuarterAndYear')]
for(trace in colNames){
  p <- p %>% plotly::add_trace(data = fullDT, x = ~ QuarterAndYear, y = as.formula(paste0("~`", trace, "`")), name = trace)
  print(paste0("~`", trace, "`"))
}
p