代码之家  ›  专栏  ›  技术社区  ›  bbroxler

如何将条形图轮廓添加到R绘图条形图中?

  •  0
  • bbroxler  · 技术社区  · 2 年前

    我正在创建一个基于变量类别编码的条形图。在保留条形图的颜色分类的同时,我在向条形图添加黑色轮廓时遇到问题。

    下面是我当前的代码。我需要添加什么才能在每个条形图上包含黑色轮廓?非常感谢。

    library(plotly)
    library(tidyverse) 
    
    my_tibble <- tibble(mins = runif(10,10,30),
                         week = 1:10,
                         exercise = c("a", "b", "b", "b", "a", "a", "b", "b", "b", "a"))
    
    example_hex <- c('#70AD47', '#404040', '#CAE1F1', '#24608B')
    
    plot_ly(
      data = my_tibble,
      type = 'bar',
      x = ~week,
      y = ~mins,
      color = ~exercise,
      colors = example_hex)
    
    1 回复  |  直到 2 年前
        1
  •  4
  •   Claudio Paladini    2 年前

    这个 marker 参数是您所追求的。

    library(plotly)
    library(tidyverse) 
    
    my_tibble <- tibble(mins = runif(10,10,30),
                        week = 1:10,
                        exercise = c("a", "b", "b", "b", "a", "a", "b", "b", "b", "a"))
    
    example_hex <- c('#70AD47', '#404040', '#CAE1F1', '#24608B')
    
    plot_ly(data = my_tibble) %>% 
      add_trace(
        type = 'bar',
        x = ~week,
        y = ~mins,
        color = ~exercise,
        marker = list(line = list(color = "black", width = 5)))
    

    输出

    enter image description here