与邓伦一起相约故宫
2018-11-05 本文已影响3人
鲨瓜
@竹蜻蜓
你要的邓伦哥哥来了，请注意查收。
她想对邓伦说：伦哥的声音！为了这么帅的伦哥，我有必要了解一下故宫了。
又风风火火的做了一天的实验，切玻璃，洗玻璃，水热。这小日子，充实~~~
晚上准备好好放松一下，听首音乐压压惊，打开网易音乐飙升榜——邓伦。邓伦是谁？上新了·故宫又是什么？
image
不管这么多了，在下先听为快。很不错，节奏很欢快，歌词也很阳光励志，大概是故宫为宣传自己而创作的文创歌曲。
不行，看见一打文字就想做一做词云。
music <- read.csv('d:/gg.txt',header = FALSE)
text <- paste(music[,1])
library(jiebaR)
cutter <- worker(stop_word = 'd:/stop.txt')
segment <- segment(text,cutter)
segment <- gsub('0-9a-zA-Z','',segment)
segment <- table(segment)
library(wordcloud2)
wordcloud2(segment,size = 1,shape = 'circle')
效果图出来了。
image
词云显示了各个词语出现的词频，出现的次数越多，词语的个头越大。
畅快、超赞、嗨、高颜值奠定了歌词的基调，节奏欢快。
这样还不行，接着把热门评论做一个词云吧，看看大家对这首歌评价。
comment <- read.csv('d:/ggd.txt',sep = ',',header = FALSE)
text2 <- paste(comment[,1])
library(jiebaR)
cutter2 <- worker(stop_word = 'd:/stop.txt')
segment2 <- segment(text2,cutter)
segment2 <- gsub('0-9a-zA-Z','',segment2)
segment2 <- table(segment2)
library(wordcloud2)
wordcloud2(segment2,size = 1,shape = 'star')
形状设置为星星，看一下效果怎么样？
image
故宫个头最大，看来大家都知道这是一首宣传故宫的文创歌曲，同样，大家也非常期待故宫这一次将要呈现的新面貌。
文物、历史、文化承载了绵延五千年的涓涓长河，是记忆中的那个中国时代，红墙青瓦，是古老声音的深情告白。
当然啦，评论中不乏对邓伦小哥哥的表白，作为代言人，向大家宣传中华传统文化与文物建筑，棒棒哒！！！
与大家一起期待 11·9 《上新了·故宫》
今天的作业已上交。
下期再见
你可能还想看
等你很久啦，长按加入古同社区
image
