How plot a pie chart colored with one scaled color and using plotly package

Question

I have this sample data frame :

> Data
                    Produits Pourcentages
1              Crème de jour        27.10
2                      sérum        14.50
3              Crème de nuit        13.80
4                     masque         8.82
5      démaquillant à rincer         7.73
6  démaquillant sans rincage         7.24
7                     lotion         6.57
8                eau florale         5.83
9                      huile         5.65
10          produits teintés         2.82

Then, I want to plot a pie chart using only the plotly package.

library(dplyr)
library(plotly)

p <- plot_ly(Data, labels = ~Produits, values = ~Pourcentages, type = 'pie') %>%
  layout(title = 'United States Personal Expenditures by Categories in 1960',
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

It gives me this pie chart:

But I don't need to get many colors, I just need one scaled color which has an intensity that increases in function of the variable Pourcentages.

In another word, I want a pie chart using plotly package like this:

Thank you for your help !

something like this? stackoverflow.com/questions/50625970/… — Ronak Shah
@RonakShah, no it si not the same because in that example it has many colors (red,green...). I need one color — Rprogrammer
@RonakShah, no it is not because I need to use only color, but in your example there is many color (red,green...) — Rprogrammer
There are very rare chances that you will get question exactly same as yours. You need to adapt the similar answers which are available according to your need as shown in the answer by @symbolrush — Ronak Shah

symbolrush symbolrush · Accepted Answer · 2018-08-03T06:50:16

Here's another solution expanding the answer from here:

Data <- data.frame(
  Produits = c("Crème de jour", "sérum", "Crème de nuit", "masque", "démaquillant à rincer", "démaquillant sans rincage", "lotion", "eau florale", "huile", "produits teintés"),
  Pourcentages = c(27.10, 14.50, 13.80, 8.82, 7.73, 7.24, 6.57, 5.83, 5.65, 2.82)
)
gradient <- colorRampPalette(c('lightblue', 'darkblue'))
Data$colors <- gradient(dim(Data)[1])[as.numeric(cut(Data$Pourcentages, breaks = dim(Data)[1]))]
plot_ly(Data, labels = ~Produits, values = ~Pourcentages, type = 'pie', marker = list(colors = ~colors))

How plot a pie chart colored with one scaled color and using plotly package

3 Answers