改变条形图的颜色

Question

我有一个情节：

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

Candidate是真正的唐纳德特朗普和希拉里克林顿，而总和是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)

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

Answer 2

这也应该有效：

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