我有这样一个情节:

Especie <- c("Perros","Gatos","Pájaros","Total")
Cantidad <- c(3,2,4,9)

df <- data.frame(Especie,Cantidad)

grafico <- plot_ly(df,
        x = ~Especie,
        y = ~Cantidad,
        type = "bar")

有没有可能有条件地让"Total"条根据"ESpecie"列上的那个特定值被涂成不同的 colored颜色 ? 或者,有没有可能让‘cantida’上的值最高的条被涂成不同的 colored颜色 ? 谢谢!

推荐答案

另一种 Select 是使用条件语句ifelse来 Select marker种 colored颜色 ,如下所示:

library(plotly)
grafico <- plot_ly(df,
                   x = ~Especie,
                   y = ~Cantidad,
                   type = "bar",
                   marker = list(color = ifelse(df$Especie == 'Total', "red", "blue")))
grafico

创建于2023-03-28年第reprex v2.0.2

R相关问答推荐

制作等距离的线串副本

R函数‘paste`正在颠倒其参数的顺序

无法定义沿边轨迹的 colored颜色 渐变(与值无关)

更新R中的数据表(使用data.table)

根据另一列中的值和条件查找新列的值

R -使用矩阵reshape 列表

停止ggplot将多行减少到一行

如何将宽格式的患者信息数据高效地转换为患者计数的时间序列?

填充图例什么时候会有点?

如何在Quarto中使用美人鱼图表中的标记来加粗文本

如何用不同长度的向量填充列表?

使用一个标签共享多个组图图例符号

我有2011-2022年的年度数据.如何计算最低年份和最高年份之间的差额?

Data.table条件合并

如何在R曲线图弹出窗口中更改r和theta标签

以R表示的分组和计数日期

如何在R中使用ggplot2将面图与面标签对齐

根据R中另一个表中的变量,删除符合特定条件的数据集中的随机记录

更新表内容时,如何在DT中保留选中的行?

提取R中没有重复顶点属性的所有子图