密谋，无法更改R中的单个条形颜色

Question

我对使用plotly真的很陌生，在阅读了文档之后，我似乎无法弄清楚为什么这段代码不会更改各个条形的颜色。

我的数据集是mtcars，仅还原为MPG和CYL列。

这是我正在使用的代码：

df=mtcars_reduced

 p <- plot_ly(
                     x = df$cyl,
                     y = df$mpg, 
                     type = "bar",
                     marker = list(color = c('rgba(204,204,204,1)', 'rgba(222,45,38,0.8)',
                                             'rgba(204,204,204,1)')
                                             )) %>%


                     layout(title = "Test Chart",
                            xaxis = list(title = "Cylinders"),
                            yaxis = list(title = "MPG")
                            )

由于某种原因，它仅将所有3条（4/6/8圆柱）显示为黑色。我在做什么错了？

谢谢。

Answer 1

感谢@ mischva11！

是的，我知道我的数据不合适。以下内容解决了该问题，并实现了我最初尝试执行的操作：

lookUp :: [String] -> String -> Int
lookUp [] s = error "String no encontrado"
lookUp (x:xs) s | not(x == s) = 1 + (lookUp xs s)
                | otherwise = 0

并按需工作。谢谢。

Answer 2

仅使用dplyr的另一种解决方案：

pd.merge(df_datetime, df_regular[["col"]], left_index=True, right_index=True, how='left')

输出：