Изменение цвета стержневых участков

Question

У меня есть сюжет:

p <- plot_ly(
    x = c(data$sum), 
    y = c(data$candidate), 
    name = "Trump v Clinton", 
    type = "bar" 
) 

Candidate является realDonaldTrump и HilaryClinton в то время как сумма 10000 и 5000.

Можно ли установить цвет для бара каждого кандидата? То есть Трамп должен быть красным и синим.

Answer 1

Ищет что-то вроде этого ?:

library(plotly) 

data<-data.frame(sum=c(10000, 5000), candidate=c("DonaldTrump", "HilaryClinton")) 
data$color<-c("red", "blue") 

p <- plot_ly(
    y = data$sum, 
    x = data$candidate, 
    color = I(data$color), 
    type = "bar" 
) 
p<-layout(p, title = "Trump vs Clinton") 
print(p) 

Это сюжета в виде вертикальное barplot, мне нужно поменять места значения для й и у оси.

Answer 2

Это также должно работать:

library(plotly) 
data.frame(sum=c(10000, 5000), candidate=c("DonaldTrump", "HilaryClinton")) %>% 
    plot_ly(x = candidate, y = sum, type = "bar", color = candidate)