当R中只有一条迹线时，图形不会显示在条形堆积的条形图中

当我只有一条跟踪添加到plotly堆积条形图时，图例缺失。当R中只有一条迹线时，图形不会显示在条形堆积的条形图中

我的数据集是如下：

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")

有没有一种方式来展现传说当只有一个跟踪是在数据可用于识别的颜色？

来源

2017-04-20 krish

你可以添加showlegend=TRUE您layout

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

，从而执行那个传说将显示独立的引线的数量。

来源

2017-04-20 17:50:19

当R中只有一条迹线时，图形不会显示在条形堆积的条形图中

回答

相关问题