当 R 中只有一条轨迹时，图例未显示在堆积的条形图中

Question

当我在plotly堆积条形图中只添加了一条轨迹时，图例丢失了。

我的数据集如下：

myDF <- structure(list(Year = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "2017", class = "factor"), 
    Month = c("Mar", "Mar", "Mar", "Apr", "Apr", "Apr"), Date = structure(c(17241, 
    17242, 17242, 17259, 17260, 17261), class = "Date"), Quarter = c("Q1", 
    "Q1", "Q1", "Q2", "Q2", "Q2"), Week = structure(c(2L, 2L, 
    2L, 3L, 3L, 3L), .Label = c("2017-03-05", "2017-03-12", "2017-04-02"
    ), class = "factor"), NPS = structure(c(NA, NA, NA, 3L, 3L, 
    3L), .Label = c("Detractor", "Passive", "Promoter"), class = "factor")), .Names = c("Year", 
"Month", "Date", "Quarter", "Week", "NPS"), row.names = 7:12, class = "data.frame")

由于每个用户的选择我来过滤该数据集的基础上Week，Month，Quarter或Year。

此代码是以下之一：

  myDF %>% select(one_of(c("Week","NPS"))) -> myDF
  myDF %>% select(one_of(c("Month","NPS"))) -> myDF
  myDF %>% select(one_of(c("Quarter","NPS"))) -> myDF
  myDF %>% select(one_of(c("Year","NPS"))) -> myDF
  colnames(myDF)[1] <- "Group"

对于情节这是我的代码：

 dcast(na.omit(melt(myDF, id.vars = 'Group')), Group ~ value, fun.aggregate = length) -> tab
 tab
#        Group  Promoter
#1  2017-04-02         3


x <- list(
  title = ""
)
y <- list(
  title = "Count"
)

p <- plot_ly(tab, x = ~Group)

if ("Detractors" %in% colnames(tab[-1])){
  p <- add_trace(p, y = ~`Detractors`, name = 'Detractors', type = 'bar',
                 marker = list(color = '#D52728')) #red
}
if ("Passive" %in% colnames(tab[-1])){
  p <- add_trace(p, y = ~`Passive`, name = 'Passive', type = 'bar', 
                 marker = list(color = '#1F78B4')) #orange
}
if ("Promoter" %in% colnames(tab[-1])){
  p <- add_trace(p, y = ~`Promoter`, name = 'Promoter', type = 'bar', 
                 marker = list(color = '#2BA02D')) #green
}
p <- layout(p, xaxis = x, yaxis = y, barmode = 'stack', legend = list(orientation = 'h'))

p

这是我得到的情节。在这种情况下我没有看到任何传说，因为只有一个痕迹 -Promoter

但是，如果使用具有多个跟踪的数据集（如下所示）并执行相同的步骤，我会得到图例。

myDF <- structure(list(Year = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "2017", class = "factor"), 
        Month = c("Mar", "Mar", "Mar", "Apr", "Apr", "Apr"), Date = structure(c(17241, 
        17242, 17242, 17259, 17260, 17261), class = "Date"), Quarter = c("Q1", 
        "Q1", "Q1", "Q2", "Q2", "Q2"), Week = structure(c(2L, 2L, 
        2L, 3L, 3L, 3L), .Label = c("2017-03-05", "2017-03-12", "2017-04-02"
        ), class = "factor"), NPS = structure(c(NA, NA, NA, 2L, 3L, 
        3L), .Label = c("Detractor", "Passive", "Promoter"), class = "factor")), .Names = c("Year", 
    "Month", "Date", "Quarter", "Week", "NPS"), row.names = 7:12, class = "data.frame")

当数据中只有一条轨迹可用于识别颜色时，有没有办法显示图例？

Answer 1

你可以添加showlegend=TRUE到你的layout

plot_ly(x = c(1), 
        y=c(5), 
        type = 'bar',
        name = 'lonely bar') %>% 
    layout(showlegend=T)

从而强制显示图例与轨迹数量无关。