我在R中使用plotly.我正在try 用相同的 colored颜色 绘制图表.下面可以看到数据和图表.

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)

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

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

enter image description here

最后,我想绘制一个与饼图 colored颜色 相同的条形图,如上所示.为此,我try 了以下命令行:

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

enter image description here

那么,有人能帮我用与饼图相同的 colored颜色 绘制条形图吗?

推荐答案

这里有一个有点老套但有效的解决方案:

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)

enter image description here

R相关问答推荐

pivot_longer:names_to和names_pattern

在集合群体模型中计算时间步依赖的速率/参数

返回句子中最长的偶数长单词

使用列表列作为case_when LHS的输入

寻找图片边缘

R创建一个数据透视表,计算多个组的百分比

在(g)子中使用asserable字符

如何通过Docker部署我的shiny 应用程序(多个文件)

在连续尺度上转置标签[瀑布图,R]

使用外部文件分配变量名及其值

将Posict转换为数字时的负时间(以秒为单位)

根据1个变量绘制 colored颜色 发散的 map ,由另一个变量绘制饱和度,ggplot2不工作

具有重复元素的维恩图

KM估计的差异:SvyKm与带权重的调查

使用R将简单的JSON解析为嵌套框架

如何使用字符串从重复的模式中提取多个数字?

变长向量的矢量化和

如何在R中创建条形图,使条形图在y轴上围绕0.5而不是0构建条形图?

是否从列中删除★符号?

如何使用循环从R中的聚合函数创建列,而不会在名称中给出&q;$&q;?