Как изменить цвета гистограммы группы?

Question

Я довольно новичок в R, и у меня возникают проблемы при изменении цвета сгруппированного гистограммы. Мой код, который я ввел, выглядит следующим образом:

library(plotly)
Samples <- c("1" , "2" , "P3")
D0 <- c(5.55, 5.605, 5.414)
D28 <- c(5.642, 1.658, 5.551)
data <- data.frame(Samples, D0, D28)
p <- plot_ly(data, x = ~Samples, y = ~D0, type = 'bar' , name = 'D0') %>%
  add_trace(y = ~D28, name = 'D28') %>%
  layout(yaxis = list(title = 'Concentration (mM)'), barmode = 'group')
p

это результирующий график. меня интересует просто изменение цвета синего и оранжевого цвета и сохранение того же формата, в котором они окрашены (первый столбец = один цвет, а второй столбец = другой цвет). Я пробовал другой код, но в результате все они окрашены в один и тот же цвет. Кто-нибудь знает, какой код использовать, чтобы получить то, что я хочу? Заранее спасибо!

Answer 1

Вы можете использовать опцию marker в plotly, чтобы иметь свой собственный цвет для каждого графика:

Ниже приведен измененный код:

library(plotly)
Samples <- c("1" , "2" , "P3")
D0 <- c(5.55, 5.605, 5.414)
D28 <- c(5.642, 1.658, 5.551)
data <- data.frame(Samples, D0, D28)
p <- plot_ly(data, x = ~Samples, y = ~D0, type = 'bar' , name = 'D0',marker = list(color=c('green'))) %>%
  add_trace(y = ~D28, name = 'D28',marker = list(color=c('red'))) %>%
  layout(yaxis = list(title = 'Concentration (mM)'), barmode = 'group')

p

Вывод:

Answer 2

Вам просто нужно указать цвет для каждого отдельно, так как вы вызываете D0 в plot_ly и D28 в add_trace.

plot_ly(data, x = ~Samples, y = ~D0, type = 'bar' , name = 'D0', color = I("black")) %>%
    add_trace(y = ~D28, name = 'D28', color = I("yellow")) %>%
    layout(yaxis = list(title = 'Concentration (mM)'), barmode = 'group')