2017-09-15 112 views
0

我有一些實時twitter數據,我正在使用這些數據來查找情感分析。我寫的情感分析代碼,並獲得準確的結果,像這樣的:使用Plotly繪製餅圖時出現錯誤R

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

我如何可以繪製sentiment_type列R中使用plotly包在餅圖的百分比,請給我建議。

+0

不[它](https://stackoverflow.com/a/46236889/4836511)回答你的問題? – Prradep

回答

2

你在找這樣的嗎?

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 

enter image description here

+0

謝謝。是的,我看起來像這樣。 – Sandeep

+0

我很高興它幫助你。 [我應該怎麼做,當有人回答我的問題?](https://stackoverflow.com/help/someone-answers) – Prradep

+0

我想從你一個更多的建議,我在R使用syuzhet包找到推文的情緒但是這個軟件包會在推文中爲每個單詞找到感情。我希望每個句子的情感都不在一個字上。有沒有可能找到它? – Sandeep