@竹蜻蜓
你要的鄧倫哥哥來(lái)了，請(qǐng)注意查收。
她想對(duì)鄧倫說(shuō)：倫哥的聲音！為了這么帥的倫哥，我有必要了解一下故宮了。
又風(fēng)風(fēng)火火的做了一天的實(shí)驗(yàn)，切玻璃，洗玻璃，水熱。這小日子，充實(shí)~~~
晚上準(zhǔn)備好好放松一下，聽(tīng)首音樂(lè)壓壓驚，打開(kāi)網(wǎng)易音樂(lè)飆升榜——鄧倫。鄧倫是誰(shuí)？上新了·故宮又是什么？
不管這么多了，在下先聽(tīng)為快。很不錯(cuò)，節(jié)奏很歡快，歌詞也很陽(yáng)光勵(lì)志，大概是故宮為宣傳自己而創(chuàng)作的文創(chuàng)歌曲。
不行，看見(jiàn)一打文字就想做一做詞云。
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')
效果圖出來(lái)了。
詞云顯示了各個(gè)詞語(yǔ)出現(xiàn)的詞頻，出現(xiàn)的次數(shù)越多，詞語(yǔ)的個(gè)頭越大。
暢快、超贊、嗨、高顏值奠定了歌詞的基調(diào)，節(jié)奏歡快。
這樣還不行，接著把熱門(mén)評(píng)論做一個(gè)詞云吧，看看大家對(duì)這首歌評(píng)價(jià)。
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')
形狀設(shè)置為星星，看一下效果怎么樣？
故宮個(gè)頭最大，看來(lái)大家都知道這是一首宣傳故宮的文創(chuàng)歌曲，同樣，大家也非常期待故宮這一次將要呈現(xiàn)的新面貌。
文物、歷史、文化承載了綿延五千年的涓涓長(zhǎng)河，是記憶中的那個(gè)中國(guó)時(shí)代，紅墻青瓦，是古老聲音的深情告白。
當(dāng)然啦，評(píng)論中不乏對(duì)鄧倫小哥哥的表白，作為代言人，向大家宣傳中華傳統(tǒng)文化與文物建筑，棒棒噠！?。?/p>
與大家一起期待 11·9 《上新了·故宮》
今天的作業(yè)已上交。
下期再見(jiàn)
你可能還想看
等你很久啦，長(zhǎng)按加入古同社區(qū)
