Plotly - 使用连续色标创建饼图

Question

我希望创建一个图表图表，其中每个切片的颜色在数据框中是另一个变量。这在ggplot2中非常简单，但是，我很难将其转换为情节。

我的示例代码在这里：

Product <- c("Product1","Product2","Product3","Product4","Product5","Product6","Product7")
Value <- c(1000000,200002,599996,1399994,2199992,2999990,3799988)
Rating = c(0.24, 0.28, 0.17, 0.1, 0.5, 0.6, 0.34)
df <- data.frame(Product,Value, Rating)

plot_ly(df, labels = ~Product, values = ~Value, type = 'pie', textinfo = 'label+percent',
         marker = list(color = ~Rating)) %>%
layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
     yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

这是输出：

似乎我没有采用＆＃34;颜色＆＃34;属性。我希望有一个连续的比例颜色方案，当Rating变量接近0时最好是红色，当接近1时接近绿色。

感谢。

Answer 1

你可以

• 对数据框进行排序

  sorted_df <- df[order(df$Rating),]
  

• 使用colorRampPalette

  添加自定义颜色

  gradient <- colorRampPalette(c('red', 'green'))
  sorted_df$colors <- gradient(dim(df)[1])[as.numeric(cut(sorted_df$Rating,
                                                          breaks = dim(df)[1]))]
  

• 为您的情节指定颜色

  marker = list(colors = ~colors)
  

给你

色标可以使用一些调整。

Product <- c("Product1","Product2","Product3","Product4","Product5","Product6","Product7")
Value <- c(1000000,200002,599996,1399994,2199992,2999990,3799988)
Rating = c(0.24, 0.28, 0.17, 0.1, 0.5, 0.6, 0.34)
df <- data.frame(Product,Value, Rating)
sorted_df <- df[order(df$Rating),]
gradient <- colorRampPalette(c('red', 'green'))

sorted_df$colors <- gradient(dim(df)[1])[as.numeric(cut(sorted_df$Rating,
                                                        breaks = dim(df)[1]))]


plot_ly(sorted_df, labels = ~Product, values = ~Value, type = 'pie', textinfo = 'label+percent',
        marker = list(colors = ~colors)) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))