In[]:=
Row[{g1,g2}=WordCloud[#,ImageSize->250]&/@{intersection,c2},Spacer[25]]
Out[]=
In[]:=
Show[Graphics[Gray,Thick,Circle[{13,-20},100],Circle[{0,0},85],Darker[Red],Style[Text["空",{110,-110}],12],Style[Text["悟",{105,-80}],12],Style[Text["幽",{100,-100}],12],Style[Text["性",{85,-105}],12],Black,Style[Text["莊子",{50,-110}],48],Style[Text["道德經",{-55,80}],48],Inset[g2/.Inset[z_,{x_,y_},Center,Automatic]:>Inset[z,{x,y}/4,Center,Automatic]/.Scaled[x_]:>Scaled[x/5],{77,-74}]],g1/.Scaled[x_]:>Scaled[x/1.5],PlotRange->Automatic,ImageSize->500]
Out[]=
