Plotlyを使用して円グラフをプロット中のエラー

Question

リアルタイムのTwitterデータがあり、これらのデータを使用して感情分析を行っています。私はこれらのように、感情分析のためのコードを記述し、正確な結果を得た：

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 

しかし、私はエラーを得た円グラフのパーセンテージでsentiment_type列データをプロットしようとしています。ここに私のコードは次のとおりです。

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)) 

どのように私はRでplotlyパッケージを使用して円グラフの割合としてsentiment_type列をプロットすることができ、私を提案してください。

Answer 1

このようなものをお探しですか？

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