根据十六进制更改颜色条

Question

对于这个情节

数据：

df <- data.frame(stock = c("google", "google", "amazon", "amazon", "amazon", "yahoo", "yahoo", "yahoo"), status = c("open", "close", "open", "buy", "close", "open", "buy", "close"), category = c("daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily"), price = c(330379.36, 52324.62, 545240.22, 192574.83, 46721.34, 477658.62, 146724.44, 42721.78))

并绘制：

library(ggplot2)
ggplot(df, aes(fill=stock, y=price, x= status)) + 
    geom_bar(position="dodge", stat="identity") +
    ggtitle("Daily") +
    theme(axis.text.x = element_text(angle = 45, vjust = 0, hjust=0)) +
    geom_text(aes(label=price), position = position_dodge(width= 1), vjust=1) + coord_flip()

如何使用此特定的十六进制来更改股票的颜色：

google #ff53aa

amazon＃492ecb 雅虎＃5041ae

Answer 1

尝试这种方式

ggplot(df,8 aes(fill=stock, y=reorder(price, status), x= status)) +
  geom_bar(position="dodge", stat="identity") +
  ggtitle("Daily") +
  theme(axis.text.x = element_text(angle = 45, vjust = 0, hjust=0)) +
  geom_text(aes(label=price), position = position_dodge(width= 1), vjust=0.5) + 
  scale_fill_manual(values = c("#492ecb",  "#5041ae", "#ff53aa")) +
  coord_flip()