Erreur lors du tracé de camembert en utilisant Plotly dans R

Question

J'ai des données Twitter en temps réel et j'utilise ces données pour trouver l'analyse de sentiment. Je vous écris un code pour l'analyse des sentiments et a obtenu le résultat précis, comme ceux-ci:

senti_value Sentiment_type 
1   0.00  Neutral 
2   -0.75  Negative 
3   0.00  Neutral 
4   -0.25  Negative 
5   -3.25  Negative 
6   -0.35  Negative 
7   0.35  Positve 
8   1.75  Positve 
9   -2.40  Negative 

Mais quand je suis en train de tracer des données de colonne sentiment_type en pourcentage dans le graphique circulaire j'ai eu une erreur. Voici mon code:

p <- plot_ly(data, labels = ~Sentiment_type, values = ~as.character(Sentiment_type), type = 'pie') %>% 
    layout(title = 'Sentiment Analysis', 
     xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
     yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)) 

Comment puis-je tracer sentiment_type colonne en pourcentage dans le graphique circulaire en utilisant package plotly dans R, s'il vous plaît me suggérer.

Answer 1

Vous cherchez quelque chose comme ça?

data <- read.table(text=" senti_value Sentiment_type 
1   0.00  Neutral 
2   -0.75  Negative 
3   0.00  Neutral 
4   -0.25  Negative 
5   -3.25  Negative 
6   -0.35  Negative 
7   0.35  Positve 
8   1.75  Positve 
9   -2.40  Negative", header=T) 
data 

p <- plot_ly(data %>% group_by(Sentiment_type) %>% 
       summarise(n=n()) %>% mutate(percent=n/sum(n)), 
      labels = ~Sentiment_type, values = ~percent, type = 'pie') %>% 
    layout(title = 'Sentiment Analysis', 
     xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
     yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)) 
p