R语言实战-如何分析QQ群记录4-发言前20名

user<-data$name
userFrame<-data.frame(user)

userFenzu<-sqldf("select user users,count(*) Freq from userFrame group by user")

names(userFenzu)[1]<-"name"
top20<-userFenzu[order(userFenzu$Freq,decreasing=TRUE),][1:20,]

ggplot(top20)+
  #reorder(),根据第二列的值，来重新拍一下第一列的Levels。
  geom_bar(aes(x=reorder(name,Freq),y=Freq,fill=name),stat="identity")+
　#转置，纵的变成横的
  coord_flip()

#mydf<-as.data.frame(table(data$name))
#names(mydf)[1]<-"name"
#top20 <- mydf[order(mydf$Freq, decreasing = TRUE),][1:20,]
#ggplot(top20,aes(x=name,weight=Freq,fill=name))+
#  geom_bar()+
#  coord_flip()

　　生成图如下：