r - 绘制相同颜色的地 block

Question

我在 R 中使用 plotly。我正在尝试绘制具有相同颜色的图表。您可以在下方看到数据和图表。

library(plotly)
library(reshape2)
library(dplyr)

df<-data.frame(city=c("NYC","Seattle","Boston","LA","Seattle"),
               value=c(100,200,300,400,500))
df <-melt(df)

现在我正在绘制饼图，颜色如下所示:

fig<-df %>% 
  plot_ly(labels = ~city, values = ~value)
fig <- fig %>% add_pie(hole = 0.6)
fig

最后，我想绘制一个与饼图颜色相同的条形图，如上所示。为了做到这一点，我尝试了这个命令行:

df <-melt(df)
fig <- plot_ly(df, x = ~city, y = ~value, type = 'bar')
fig

那么谁能帮我绘制一个与饼图颜色相同的条形图？

Answer 1

这里有一个有点笨拙但有效的解决方案:

fig <- ggplot(df, aes(city, value, fill = city)) + 
       geom_col() +
       scale_fill_manual(values = c("#2ca02c", "#ff7f0e", 
                                    "#d62728", "#1f77b4")) +
       theme_minimal() +
       theme(panel.grid.major.x = element_blank())

ggplotly(fig)