更改条形图的颜色

Change color of bar plots

我有一个情节:

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

Candidate 是真实的唐纳德特朗普和希拉里克林顿,而总和是 10000 和 5000。

是否可以为每个候选人的栏设置颜色? IE。特朗普是红色的,希拉里是蓝色的。

正在寻找这样的东西吗?:

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)

它绘制为垂直条形图,我需要交换 x 轴和 y 轴的值。

这也应该有效:

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