紅樓夢詞雲分析

~~~~~~~~~~~~~~~~~~~~步驟~~~~~~~~~~~~~~~~~~~~

~~　　　　　　　　　　　　　　　　　　　　　　   ~~

1）：紅樓夢文本　

《紅樓夢》
曹雪芹 　高鄂  著

第一回  甄士隱夢幻識通靈　賈雨村風塵懷閨秀
列位看官：你道此書從何而來？提及根由，雖近荒唐，細按則深有趣味。待在下將此來歷註明，方使閱者瞭然不惑。
原來女媧氏煉石補天之時，於大荒山無稽崖煉成高經十二丈、方經二十四丈頑石三萬六千五百零一塊。媧皇氏只用了三萬六千五百塊，只單單剩了一塊未用，便棄在此山青埂峯下。誰知此石自經煅煉以後，靈性已通，因見衆石俱得補天，獨本身無材不堪入選，遂自怨自嘆，日夜悲號慚愧。
一日，正當嗟悼之際，俄見一僧一道遠遠而來，生得骨格不凡，丰神迥別，說說笑笑，來至峯下，坐於石邊，高談快論：先是說些雲山霧海、神仙玄幻之事，後便說到紅塵中榮華富貴。此石聽了，不覺打動凡心，也想要到人間去享一享這榮華富貴，但自恨粗蠢，不得已，便口吐人言，向那僧道說道：「大師，弟子蠢物，不能見禮了！適聞二位談那人世間榮耀繁華，心切慕之。弟子質雖粗蠢，性卻稍通，況見二師仙形道體，定非凡品，必有補天濟世之材，利物濟人之德。如蒙發一點慈心，攜帶弟子得入紅塵，在那富貴場中，溫柔鄉里受享幾年，自當永佩洪恩，萬劫不忘也！」二仙師聽畢，齊憨笑道：「善哉，善哉！那紅塵中有卻有些樂事，但不能永遠依恃；況又有‘美中不足，好事多磨’八個字緊相連屬，瞬息間則又樂極悲生，人非物換，到底是到頭一夢，萬境歸空，倒不如不去的好。」這石凡心已熾，那裏聽得進這話去，乃復苦求再四。二仙知不可強制，乃嘆道：「此亦靜極思動，無中生有之數也！既如此，咱們便攜你去受享受享，只是到不得意時，切莫後悔！」石道：「天然，天然。」那僧又道：「若說你性靈，卻又如此質蠢，並更無奇貴之處。如此也只好踮腳而已。也罷！我現在大施佛法，助你助，待劫終之日，復還本質，以了此案。你道好否？」石頭聽了，感謝不盡。那僧便唸咒書符，大展幻術，將一塊大石登時變成一塊鮮明瑩潔的美玉，且又縮成扇墜大小的可佩可拿。那僧託於掌上，笑道：「形體倒也是個寶物了！還只沒有實在的好處，須得再鐫上數字，令人一見便知是奇物方妙。而後好攜你到那昌明隆盛之邦、詩禮簪纓之族、花柳繁華地、溫柔富貴鄉去安身樂業。」石頭聽了，喜不能禁，乃問：「不知賜了弟子那哪幾件奇處？又不知攜了弟子到何地方？望乞明示，使弟子不惑。」那僧笑道：「你且莫問，往後天然明白的。」說着，便袖了這石，同那道人飄然而去，竟不知投奔何方何舍。
後來，不知過了幾世幾劫，因有個空空道人訪道求仙，從這大荒山無稽崖青埂峯下通過，忽見一大塊石上字跡分明，編述歷歷。空空道人乃從頭一看，原來就是無材補天，幻形入世，蒙茫茫大士、渺渺真人攜入紅塵，歷盡離合悲歡、炎涼世態的一段故事。後面又有一首偈雲：
無材可去補蒼天，枉入紅塵若許年。此係身前身後事，倩誰記去做奇傳？
詩後即是此石墜落之鄉，投胎之處，親自經歷的一段陳跡故事。其中家庭閨閣雜事，以及閒情詩詞倒還全備，或可適趣解悶；然朝代年紀、地輿邦國卻反失落無考。
空空道人遂向石頭說道：「石兄，你這一段故事，據你本身說有些趣味，故編寫在此，意欲問世傳奇。據我看來：第一件，無朝代年紀可考；第二件，並沒有大賢大忠理朝廷、治風俗的善政，其中只不過幾個異樣女子，或情或癡，或小才微善，亦無班姑、蔡女之德能。我縱抄去，恐世人不愛看呢！」石頭笑答道：「我師何太癡耶！若雲無朝代可考，今我師竟借漢、唐等年紀添綴，又有何難？但我想，從來野史，皆蹈一轍，莫如我這不借此套者，反倒新奇別緻。不過只取其事體情理罷了，又何須拘拘於朝代年紀哉！再者，市井俗人喜看理治之書者甚少，愛適趣閒文者特多。從來野史，或訕謗君相，或貶人妻女，姦淫兇惡，不計其數。更有一種風月筆墨，其淫穢污臭，屠毒筆墨，壞人子弟，又不計其數。至若佳人才子等書，則又千部共出一套，且其中終不能不涉於淫濫，以至滿紙潘安、子建、西子、文君。不過做者要寫出本身的那兩首情詩豔賦來，故假擬出男女二人名姓，又必旁出一小人其間撥亂，亦如劇中之小丑然。且鬟婢開口即者也之乎，非文即理。故逐一看去，悉皆自相矛盾、大不近情理之話，竟不如我半世親睹親聞的這幾個女子，雖不敢說強似前代書中全部之人，但事蹟原委，亦能夠消愁破悶；也有幾首歪詩熟話，能夠噴飯供酒。至若離合悲歡，興衰際遇，則又追蹤躡跡，不敢稍加穿鑿，徒爲供人之目而反失其真傳者。今之人，貧者日爲衣食所累，富者又懷不足之心；縱然一時稍閒，又有貪淫戀色、好貨尋愁之事，哪裏有工夫去看那理治之書！因此，我這一段故事，也不肯世人稱奇道妙，也不定要世人喜悅檢讀，只願他們當那醉淫飽臥之時，或避世去愁之際，把此一玩，豈不省了些壽命筋力？就比那謀虛逐妄，卻也省了口舌是非之害、腿腳奔忙之苦。再者，亦令世人換新眼目，不比那些胡牽亂扯，忽離忽遇，滿紙才人淑女、子建、文君、紅娘、小玉等通共熟套之舊稿。我師意爲什麼如？」
空空道人聽如此說，思忖半晌，將一這《石頭記》再檢閱一遍，因見上面雖有些指奸責佞、貶惡誅邪之語，亦非傷時罵世之旨；及至君仁臣良、父慈子孝，凡倫常所關之處，皆是稱功頌德，眷眷無窮，實非別書之可比。雖其中大旨談情，亦不過實錄其事，又非假擬妄稱，一味淫邀豔約，私訂偷盟之可比。因絕不干涉時世，方從頭到尾抄錄回來，問世傳奇。因空見色，由色生情，傳情入色，自色悟空，空空道人遂易名爲情僧，改《石頭記》爲《情僧錄》。至?玉峯題曰《紅樓夢》。東魯孔梅溪則題曰《風月寶鑑》。後因曹雪芹於悼紅軒中，披閱十載，增刪五次，纂成目錄，分出章回，則題曰《金陵十二釵》，並題一絕雲：
滿紙荒唐言，一把辛酸淚！都雲做者癡，誰解其中味？
至脂硯齋甲戌抄閱再評，仍用《石頭記》。
出則既明，且看石上是何故事。按那石上書雲：
當日地陷東南，這東南一隅有處曰姑蘇，有城曰閶門者，最是紅塵中一二等富貴風流之地。這閶門外有個十里街，街內有個仁清巷，巷內有個古廟，因地方窄狹，人皆呼做葫蘆廟。廟旁住着一家鄉宦，姓甄名費，字士隱。嫡妻封氏，情性賢淑，深明禮義。家中雖不甚富貴，然本地便也推他爲望族了。只因這甄士隱稟性恬淡，不以功名爲念，每日只以觀花修竹、酌酒吟詩爲樂，卻是神仙一流人品。只是一件不足：現在年已半百，膝下無兒，只有一女，乳名英蓮，年方三歲。
一日，炎夏永晝，士隱於書房閒坐，至手倦拋書，伏几少憩，不覺朦朧睡去。夢至一處，不辨是何地方。忽見那廂來了一僧一道，且行且談。只聽道人問道：「你攜了這蠢物，意欲何往？」那僧笑道：「你放心，現在現有一段風流公案正該告終。這一干風流冤家，還沒有投胎入世。趁此機會，就將此蠢物夾帶於中，使他去經歷經歷。」那道人道：「原來近日風流冤孽又將造劫歷世去不成？但不知落於何方何處？」那僧笑道：「此事說來可笑，竟是千古未聞的罕事：只因西方靈河岸上三生石畔有絳珠草一株，時有赤瑕宮神瑛侍者，日以甘露灌溉，這絳珠草便得久延歲月。後來既受天地精華，復得雨露滋養，遂得脫卻草胎木質，得換人形，僅修成個女體，終日遊於離恨天外，飢則食蜜青果爲膳，渴則飲灌愁海水爲湯。只因還沒有酬報灌溉之德，故其五內便鬱結着一段纏綿不盡之意。恰近日這神瑛侍者凡心偶熾，乘此昌明太平朝世，意欲下凡造歷幻緣，已在警幻仙子案前掛了號。警幻亦曾問及，灌溉之情未償，趁此倒可告終的。那絳珠仙子道：‘他是甘露之惠，我並沒有此水可還。他既下世爲人，我也去下世爲人，但把我一輩子全部的眼淚還他，也償還得過他了。’所以一事，就勾出多少風流冤家來陪他們去告終此案。」那道人道：「果是罕聞。實未聞有‘還淚’之說。想來這一段故事，比從來風月事故更加瑣碎細膩了。」那僧道：「從來幾個風流人物，不過傳其大概，以及詩詞篇章而已；至家庭閨閣中一飲一食，總未述記。再者，大半風月故事，不過偷香竊玉，暗約私奔而已，並未曾將兒女之真情發泄一二。想這一干人入世，其情癡色鬼、賢愚不肖者，悉與前人傳述不一樣矣！」那道人道：「趁此你我何不也去下世度脫幾個，豈不是一場功德？」那僧道：「正合吾意。你且同我到警幻仙子宮中，將蠢物交割清楚，待這一干風流孽鬼下世已完，你我再去。現在雖已有一半落塵，然猶未全集。」道人道：「既如此，便隨你去來。」
卻說甄士隱俱聽得明白，但不知所云「蠢物」系何東西。遂不由上前施禮，笑問道：「二仙師請了。」那僧道也忙答禮相問。士隱因說道：「適聞仙師所談因果，實人世罕聞者。但弟子愚濁，不能洞悉明白，若蒙大開癡頑，備細一聞，弟子則洗耳諦聽，稍能警省，亦可免沉倫之苦。」二仙笑道：「此乃玄機不可預泄者。到那時，只不要忘了我二人，即可跳出火坑矣。」士隱聽了，不便再問，因笑道：「玄機不可預泄，但適雲‘蠢物’，不知爲什麼，或可一見否？」那僧道：「若問此物，倒有一面之緣。」說着，取出遞與士隱。士隱接了看時，原來是塊鮮明美玉，上面字跡分明，鐫着「通靈寶玉」四字，後面還有幾行小字。正欲細看時，那僧便說：「已到幻境！」便強從手中奪了去，與道人竟過一大石牌坊，上書四個大字，乃是「太虛幻境」。兩邊又有一幅對聯，道是：
假做真時真亦假，無爲有處有還無。
士隱意欲也跟了過去，方舉步時，忽聽一聲霹靂，有若山崩地陷。士隱大叫一聲，定睛一看，只見烈日炎炎，芭蕉冉冉，所夢之事，便忘了大半。又見奶母正抱了英蓮走來。士隱見女兒愈加生得粉妝玉琢，乖覺可喜，便伸手接來，抱在懷內，逗他玩耍一回；又帶至街前，看那過會的熱鬧。方欲進來時，只見從那邊來了一僧一道。那僧則癩頭跣腳，那道則跛足蓬頭，瘋瘋癲癲，揮霍談笑而至。及至到了他門前，看見士隱抱着英蓮，那僧便大哭起來，又向士隱道：「施主，你把這有命無運、累及爹孃之物，抱在懷內做甚？」士隱聽了，知是瘋話，也不去睬他。那僧還說：「舍我罷，舍我罷！」士隱不耐煩，便抱女兒撤身進去，那僧乃指着他大笑，口內唸了四句言詞，道是：
慣養嬌生笑你癡，菱花空對雪澌澌。好防佳節元宵後，即是煙消火滅時....

 

2）：輪廓清晰地圖片　　

 

3）：中止詞　（字型準備唄，網上挺多的）

4）：中文亂碼的話，記得設置字體偶，say simhei.ttf

5）：代碼實現以下：

 1 # -*- coding:utf-8 -*-
 2 # author:zxy
 3 # Date:2018-11-28
 4 
 5 from PIL import Image
 6 import numpy as np
 7 from wordcloud import WordCloud, ImageColorGenerator
 8 import jieba
 9 
10 
11 def stopwordslist(filepath):
12     stopwords = [line.strip() for line in open(filepath, 'r', encoding='gb18030').readlines()]
13     return stopwords
14 
15 stopword = stopwordslist('stoplist.txt')
16 with open('hongloumeng.txt', 'r', encoding='utf-8') as f:
17     txt = f.read()
18     name = f.name
19 words = jieba.lcut(txt,stopword)
20 counts = {}
21 for word in words:
22     if len(word) == 1 or len(word) >=4:
23         continue
24     elif word=="鳳姐兒" or word=="王熙鳳" or word=="二奶奶" or word=="鳳辣子" or word=="二奶" or word=="鳳姐":
25         counts["王熙鳳"] = counts.get("王熙鳳", 0) + 1
26     elif word == "賈璉" or word == "璉二爺" or word=="國舅老爺":
27         counts["賈璉"] = counts.get("賈璉", 0) + 1
28     elif word == "湘雲" or word == "史湘雲" :
29         counts["史湘雲"] = counts.get("史湘雲", 0) + 1
30     elif word == "湘雲" or word == "史湘雲" :
31         counts["史湘雲"] = counts.get("史湘雲", 0) + 1
32     elif word == "寶釵" or word == "薛寶釵" or word=="寶姐姐" or word=="薛大姑娘" or word=="蘅蕪君":
33         counts["薛寶釵"] = counts.get("薛寶釵", 0) + 1
34     elif word=="林妹妹" or word=="黛玉" or word=="林黛玉" or word=="林姑娘" or word=="顰顰":
35         counts["林黛玉"]=counts.get("林黛玉",0)+1
36     elif word=="寶哥哥" or word=="寶二爺" or word=="寶玉" or word=="賈寶玉" or word=="怡紅公子":
37         counts["賈寶玉"]=counts.get("賈寶玉",0)+1
38     else:
39         counts[word] = counts.get(word, 0) + 1
40 
41 items = list(counts.items())
42 items.sort(key=lambda x: x[1], reverse=True)
43 c = ' '
44 for i in range(len(items)):
45     a, b = items[i]
46     c += a + ' '
47 
48 
49 mark = np.array(Image.open('./image/timg.jpg'))
50 
51 stopword = stopwordslist('stoplist.txt')
52 font=r'C:\Windows\Fonts\simhei.ttf'
53 
54 wc = WordCloud(
55     mask=mark,
56     background_color='white',
57     max_words=200,
58     font_path=font,
59     contour_color='blue',
60     stopwords=stopword
61 )
62 wc.generate(c)
63 name = name.split('/')[-1].split('.')[0]
64 wc.to_file('image/'+name+'.jpg')
65 f.close()

 

6）：效果以下圖所示