From 23c65589ebfe4ced141d0d62c52cac79d7ad2914 Mon Sep 17 00:00:00 2001 From: paul Date: Wed, 15 Mar 2017 21:18:12 +0800 Subject: [PATCH] add url portrait --- female.png | Bin 0 -> 10656 bytes male.png | Bin 0 -> 7063 bytes url_portrait.R | 31 +++++++++++++++++++++++++++++++ 3 files changed, 31 insertions(+) create mode 100644 female.png create mode 100644 male.png create mode 100644 url_portrait.R diff --git a/female.png b/female.png new file mode 100644 index 0000000000000000000000000000000000000000..52330d9e83abdcda7db2d3d53e58eb9cfda7bdd6 GIT binary patch literal 10656 zcmaiac{tQ<`0v=IkZeh)R8+EW8Edw@mPjbOtd*rk3|Y&XL`v3(7DTqmHpWh5##$nb z-5@dceLMHO@9$jKxz73Hc(3xho*5cwGc%oFLLd;#I@dIAAP`im z@c&CjY8dJ3ri+7r=1Gy1Qm}eO6qkb`^)OKu|w~x_2c`A&_$+3HG z%Ed{GQDuC7_NB{J*;iGyDvP@%jIBs1^i)UN&fc!0*HnjbLIfc#87Ugu@&SQ(`_0B1 zA+P4^>l+xjPaeY6?yV2LdiBb_CC0?mv={z<{i36#4Gjwmi->6X_s`kEVRf$mt68D7 zk&zL`n8sl0&J;`g`ut#GYAP;pZ`%szEh8uA7xez!yAhc_OV2^Ka;3#OnhO^$G@qmO z=OVHEI>F29>FMd*@pkJQx6RB+JPEb7FcQ=h$reJ-jKW%89j7uBM(2z#`EXq}m-bzr z93Q_^EQnqh-uskjT}eu?Xkt0MDT3!49w@!v_xidr*1m;hLiFKu8oFkE;QpaQhnlUZ z7uf%s3p|Q)Gs4=+5?bnbnKIVzyH;rZ-JYn0X{8_cli4 zR^B&8upUgS9Q^UdwO0v`o{dME-!M0S3=5ba!u9Ryjy!DP!(y?SnVC~ICmta1e2F*B z%@u6xf*TsH-lp1K`&$mnmvtNX&V=~QeV<%WG0_rBaP!tQQa;#S!I3NTYHF%^|eq0tAHqy&XzYG87OPt91V6M7(CR`O%xp} zvJ08x2v#Z*33(U)=FO*%AHhhiEI(dFM^mm^nY!3@(TTj-8h^o9WOy#>z5hzPoNj_h z988kRiEPNBdEwHfzeKF3n_K?esr;RGkHD`UBg!f&Q|DB5H~FYFjpBV*ruyIab823B zFk09Ag4Zz{@g)Wo0UJK-Gr`<{;bxJUxhhkFW5y(jwDz~}x;GQ&(~ywsZ{^w8*iIuE zZLQjfnP1FH|M8~vnw_0h-W;XrzktyFK+JRc4tTfIx_}0|) zo1CZyc3~Az7J((h{Q*Nk2Rk-{GPw7`+A$|Dh>0b_>_zcIeL7pA=|}z6=i>ON{{7CU z@aUR1?F%L*CI@ZAm*=PruTP&oVFXXG8pb50Cn6ob909HPiHr9V3Y7)x_>p zes%7|$7IA=t?ME_W)K6?0xn^)vb4Nu>nerOHqImSoc+J}T%K43*{jEQbs6@vNn<=v zb+qxg!ux||`E!gXO7H&s-&gm2HWq>lqMkp0{XbLs*3v?NhX)+oqSjM|mqkY(feZf8 z)&1WWtj+Zsd(&Pfx}!J9Llomurk$Le>|K>TkZ&R9ou+yOzz*JEj5Co?ie9kZQLaCf6q1bO&@|d! z{o~olEce}D?9HG@ZJHB<`L{Mcm41vPq3#KdW422efiwX3di7Ze!ESrC5tm+5(a_&I zC{E5)kN7bcESH3xaQ^n~8!RbdPu3XcJrCKZuh?F@Uk$+vLH+LBxpR(=j;-L%QqCP8 z`>DhvJX;Q2+}&&D%LbKq7uEaKM5TQeM;!?Xtp-%T=}9q%-@JKa<@L*ivbQ0-bNEYz zZ3Ke76i=O>2x0VUcX#*wz5?dMhas+nii?Zy_kPLjr!t|0ac8;`q_VxeJx2y3g-0_* z;Mt*}v@nm)rYB@KA9tpT|C_=kcW|V}E~tNcCNr>U+CM4-nLbWJ9;Vz4<@0^et)wt6$nE zwzjqkYDN33c5AC&y}BApKdOl5JHg4tC2C$GEF_ejk)hi7=k)2*kh~u+)-!luNnGWF zmlgR(Cxp>6CWeMZc8%e?ySq>p=0|F4i;I_TXqUMSu7i!MwrBG^D*t5hdQ?eBOZT+B z4Zfa9JblC1_~*t*kj;%7H>|Ao8d+7O<>W3!ft&Hb8U+M`wn&Kt7RF5`JRjm@q!2rz z?ujrO@!-_IUr`JQhWA9O|6}OdKDx)YCO0>iYgn)p_x<}d2-+>5XRXscy}jPEJ%8Gg zr7$7K9b01fvgVapZ*dVMm4)Qw`syi35~>`;z@+^Y*|VT}eL$>s_l7qU4IMpwLVSEt zEVKVfDf9^DexInb9HbFuW@e9?tt?2K4)HjTvxVnx`tKUMk5R&c`JBh3gY41f!%8C99dJS$SoAT~C+f1=7KcTvXFtFlT?i_;% zg2WD+h-abxUf(uk28pf}onmFg5!(VDeiG8(T}UirA^PPH#u@~Ic8$E5R9WytLMN3T zKN_m^!Wbvz=jL7%64L&k@wRs=BlW4RCAL#-$wZT<9^>J;D``lysD#AQ=F$Wv0eQ>R9QnS>|026k-eYp3$-w5unAf)1c;wtV~6%0itK zm5ghIT|QXpR7p&`ngtc7&nC!<@{o93V|%(%YVF(hcPh1+nQAb0GamQa#LP_0y6ToU z)0V+o`QpcG_h2c;Mr4CBpQSs)<5yw_a~EZZhF%zcrN?taI5Tgiyx(7)um6|U^cvcR zikFv{UDj>z9UTdLRN|~8@-5|xWIY0xn6;&m(P_x_$M8eRcs$;;!14kzthA@6N5s73 z8oc~$JWi^5fBWy++8W0AR>zmyUsF<3Ay>AkVv&ZPo>GPLmN(VZ>Y+CO&tO-j*IyP& z{Rq=s(mU%z2R4_F)wY4%$FrYdfgF>fZJ*QEf zMUIELL~`=-UZ+uubCJlx@M@3hwS+kiQ!{Jp8viX6tli#-9D{M~$6zp${TEz=2Xh}N z;)jeX-pqc25E84|yb4oSjmLS;4Oja?LBkmTrhko==OvL(mb|%0NVtsjnvDlxlCQBHws^`LKfD`jW#uy{QGl*%UA7Ygi9*hRhag;T^V3Ow~k!cmFKKH{4S@{)(!FTyd?tVfBZ+#Z3 zHypByE}52$!k*5zr^+qB^I&ej8^R7_xtXUkiSzlz#SiPB(!rnwq-Fzy7?`DPJgz$5 zx_bL}u|16Qmz#_!!pJjoF%~AKW0Emjp=U>6v#qVu_a7quW)R)xa0@j%ldrF@#{Ps@ z7;B99E1(_4Ca9&Mt^HRZq7`{E993R?#dFF>k$-O@`s5W%(82z8OWb%kulw;UsE_*( z!3%tMHy`dzAh^bk{a_Kd(bw0{Hb}d8@#3Qxc1}){n>TOXzMcH?<*Bnttx-`?ckJzr zjg576b-h?*9P#l>6D@~z=&rT24HYDa+0~u69BXqx8kBf^dAt~wj z$&@g`GC266u0aFy>i!?PDJ_I5@N0{7oZNlLD=x?rGoClWphnc9Rg%Bqb%a7JCB;c2Gj+2TFf(Grx>Z#faE`&FIzWHxO;kj_0LbSZ8P?Td@J1g_c+1FT8PQ_ zM7Ix_nPcs8BRyBHy;BZwhso*g^{uWxDj&>WIX3kGYx(ETpTzA#fGJSW3)7cUQ&Oyh z_Pmq?5hx>aS+W1tGN98xC(mBGloxhz;@GiQZ{L1_8?Wi<9bskl7z+kmX}u`_(tKsQ zvoJ63C#-{wh$Y&8bH7OsjU5iZ5dtkx2u8AE~_x3L9U?T&__*;N0_|-VKTo)~O zWnz4sKWO)%l373CFd!YDooQ9M@I&-aM^T=hYtf_A({guzob`x#bOU=SYI%31v%E@r z|(Elhlz>FA0E5K(R!uFtBX_LdwOoB>GGUsWMsUitGhDweP(6`V8I`( zsk=M*&(G|&Xv8&e{+6y)SwJ1AfcZWTuBB7t!R?XL(Z2`cVyPUz_9c3}Q{wtAKsG3>NHVM)1$}=BG~mtyya3m64H2 zxz3=cg|$fRu=q?Nv1?{CRSrw2KJWK~^XpDD;kp1lEX!Pzr+!kN%mt`yv0Gc0;~;)mWlb*AS}OQnC%j*W?q?(wgDBaqbn zx}Ajb#WFW)&O;g6S)Yfuw@r?#*Kysnuowidh1*?_N*6EYf>}G$FLH8nJ|3Qx?g3O+ z=!^YR1tIL-kI@{&vMMgty*j76YRM|U!FBAm51gG5}V-4!^ zc2`$#d`fqC)fo{D*6HX-L$1x8R))-ZdQic9B|SIirdajrt0^&;&Q!U=;$ov~N9yF` zaikevYDs`XaoYTB#~S-d!?1WLJr;vl?O6T*D0ZPuh-h#CT}{nzQJj~g-zobpJ1lH8 zxFyRZI?`r6Ui!u@6Qq`!?_?Vgk1L(=WtO~rd47Lqf&0x_C8eQx@8>7<850R_($hun zmB1e)>U+oysI@<^tWvhp_@S$c{ITin4gdnAuWJTfK6_T9)4)Ot(n8M`M;G0B{S*!k zj*s(1;2MYYs2R1f7T?2}d8Iv+l9H3RvQ_qUT>10z+Za240_tet_tP81dVs1EtFkXF z%X;c4$^GE z^?KQ$JA113(vxJ!;lPM}w*O?8rXlb5idZj(I~tKqB|L_!va-&*O&h#Zwi*+1`E}LT{E=T-;r8cUh`a z(Gz&VefcGogRR(f)?7q$Ch@Y`N`4RI_ELZWcN*XJ5s8YZ$!mgIy{OTuxn-Q85e-YnXw1~**gwOph>NchOnNH zKm`N@n46pH=sX)>x4&~I=H!(#v)^o0Ih@GLcLQg}$+!jCoc_PFv(2#r9!=jBUhv8l zl$G^H#)Uk6TC!&YE;E^Hk{3En_2@nETwXzeb>*Ya;p}_6yXWlZ!HbQ!U8xpHpe7Yz;t^ZcO8!y&tW@-w1 zHdpfrY8sji z5dU7iy3;fYypdPh<>kQFtLo}NXz%s2b~Z3bcqZx$vcG)t7V+dVnU2XpBLSSGZ9UUDM7p+OEn|4#85oH#i0enkSRI#nT z+I>eH$dx3}Ev-vj;?zQ}rzx1s3-E%|0!n#qJ0+?HNXy(jWk9J2Qswigs558IgieF* zrmL^N2aXyV>-w~!q5|k+czE~;iA{A@r4nFNCfOyxBTGu8<>h}zDh6*PVRglUJ~HEY zWB8E0krajW$44Dmiew1`PF-Ksqu%Q!OKQ%?*k)gUXAK2J%@?sC;VEa~=H}+_Up2rz z1D?-x`0$IQcLU@3pAtYM=H}pdG}BcdS^v&|S*P^Ai;~~EgB&#lHM=fUt;B@q8v%cC z?!q_DbboLg0{IZcMg3IS_KfEeY85-y(@7wM(Y#&>@|uL1>>K7j4+pC6xM z?t&o_#B3lXcnfN|kJRi%vI*WyyJ2Hfxb=KG_-Grk-T3xx9&Tr zX#BkjrT|HMBqP?v%*-tNw%3cVs?Sz+k*)#l+hPWA93 z5@*`-3TtMIDBBLq8pMH(=;K#JMD*qplmWRe)E?BZ*&#f{J>{OYO#JE1AA}-$Gp!Uw z!c!`fPZIE8QLD<|8~y8CkLCx~z;o6&Hn^2hR#sN#<^$ayw5wG}Q>h-qpzSW6r6_2r z4l7gb_fq$A^9r^n1P)v@j$720_F#Y-xQ{i2fn|Zj0IthZa0DgjUeFIJ;FPaje5fVC z$r_tO^C`qo&E_E{@)^5Ox{@CxHi3ZEZkU5lP*uxBciFR}8GyOMDSXDF+~C&*2=E%v z?xPu{oZ61#D6e7{GN@X{UxHTwn*lUwl3lgdYeB!KLsJrsl4}GC`D^{Isc8b6j`Ggj zSDE|0$0abIs&Zrqs&+8m1j+aHgkb>ShoS2QlgjrpBaFyP^wL`+umMz-NHq|We@U9^A)`3l5&lKiQLfu2>upm zc0**`Wfx#VMbr7MHiy+X|=y0TKC zl-2LIxxM`aNGOmdW_v#8#yIEkB*jh>Ur=h$rGkov9RY_#!rI8eez|jJdc$kb^6lq- z7dJ$dRzQkY4%j{}vFs7FGYG}{Hz5RMMNq6=yIMS+JijyL{$*~?)g;J&7<@xZ+RxW_ z3%odt^?m>)Z@6qP|IiilJ;=CcZ~vieA(JKrqSO%55YXGIAgk~5-a&h7eINy~r#nD0 z1%Sq({N*x;==cnDJ-KSdU_nkV=EV!hSl3ilgV}U~ZS1GqGd}4i=00YFaL$AmLZ+

yXXoIE8q}Cu)sIWrB!Zv6Co+GW)$9rmMufN{pd?~4GwUPc z+{Q-hL+CF*b8v9j-RcZl-}iCPYtR!R9Cw6*0rhrmf3tRP-b1S@mr{Mf44a#ss0bE5 z7CwcZGB=AcK}aeev$OpU)QUfW)}EfOiiR0rd!$ zZ_Uk20$Z?uR#1)e^VgkzYQ>7m%5BioWzWz*IL)eY|K7cS{`qHlKiigA@ldM? zc0T-Jt?L|RYXA;u?HVS&dE;A~@h&B0fJk)JI5L`;gnhnI&mh3T&F$y=0OZs3fc4vB zJixz&Hx5h7$nZS0S2v2!$;oj}_iZMGu<|K@L@U64A=*ACbB6GU-(KH)mA z&!=7S)Y>faF87`{U)VTe=m_mL(DFByZPTBH9;(Q^_&ZKe8_H)&N=nrgd4TRkMTVP# zk2N(l!D&`V&Vv?Rz?6Z!A76Tw2aK?v;3wo>j?2h6B_UztLqB>T;mIw6L=F-tMFcFP zrRYCD;c>ZCL`5YCK(bb}qU-M>gER$SPX`c0zt%otyaZ+J24JYGR~vvbz)NLi%iwX+ z(l=e{ht2Pq+_>=rfFq!#(Ac+WX?u|6;oh4!dmxvEgoK1SBRcG-M1L%k2-OsRkRG(} zJJwEK@`)Z~=#~IUj(Na!y10d3S4U@Q>ihCCDrBFUYFA_StAfGAp0+HAC6;DpLW-)O zL}k{RpA>`@V=y;1V{2O`mi8sqfed#`n}^sFI~?!<``(L3ue z8{-o}ZCNI0Meo+puu{C!a}xLk4Cx9=BA5u0)Nc|KZT#j-hfgLaB&-8uWMW+$xL*ju zIg>!|XX}79lhTp0wQwM4%Yy#Xw1+BC7` z3Yr5*krT}?*!Le#Ds2$IqDcP~+i%A}R`VIHd(sdw1VIgo35O==VF9zBvw;NE`qrvY zQ7VR?MY;QYU!j0XY>JgQezBhQ1WqZ5278?$WLFKliu+}8yfXX?Jj{5SvQSo@3m432hSaQ}aAVLEWB@Wq$rqS@+ z%Rp;CWoP&G^$}RcrCF6$Uv3O4P@6Wl4J9;3^QeF2wQGHK&L&{(4Je(6HsZW9^cbKB zP6>6KqG4c>o)H`fPENuOMn`yD=9z;wc7H|ntNRBC#33EZS%8Nh;5O@cT)T)(jXz{b zjIlg1$LPaR71-X+KQnm4wdh_0oBY^>|iVOG62swWG@~9+vk1$3?11n(9@WQ z%_V;V&2ef^Iftan04upE9dTPzVmd z!``G(8v@t-1nv6gPUTO*=CZP~cmt}Oy0)Q8$bZlx^6eQoLus363k2K*P28f5n1AWg zCAc~UWZJK%sa!)*=I$Ur3uGdwprJ-wowI}adq*5+V4agL+z zn}laM?XWrKGn6+<*=uTo{j`is#`#||EBM&&mRni*81M`90l4eitT3L_9aaES6$jmI zfT6>&f_c!M=1$ceWDvVwxerwaK#0Magh^0a`2ll*=TZ(2Bzy!niCO##S-&*~L20ul z+{z__vsX$jiv-dEu|NRV9E7kA^12U{7EUBWa?oo*#i-OMC*Gd+(-5+s8!!pRN0IF$1g zOAcJl$pw!kQu?(e4NRoKe#gXr+v`kq29#zhz{*vHWKFf4}Mkop^;}=ozQ!U;GCe0$yIF@w(btTIo=9 z@t>%6;Dk)!*>mSwE2V#WtJ2{4tm7)?46rmO49Sa3@W8_)mO?{va5a35YGQB_M*nw> zyr*-Y_`e@@u3ZD^^d;)96FHbZ9$7WMu<#Dr6r>;V$P6kHi-*qbaj#Z~yS@?_*q51dYYiIJ<*cjMMW+f`v z9{R@hlPKo_78fnJ>@^{c4y`JM=er0CgIzMrguDR_+$^gYM;^-f>{%h9RPW2y*Xg9; zRR4{VI@7Ud=Ep$X7SRyMDY|Qm>N5@ z3QnGMZ3qLavBG0Fx3+*UB|kXLMWmwq?$kk<`ivS@T?Wrrq>Sgwg`He8A{)LyF?@+d zMcj)=+6KT`C_yBRYgSE74RBGA|C_DONJ~?WIW@mvmFJg2=WuawIINbWL=dUcgwZZ` ztN0`LC4&v(ktG>Ks^_qPux?TZ7>}LAayeQQT~kjxqk&aF4CbT!NC!Uo&4}Ff9&81N z37TJY!m6I3BD9+IhoPrFQ10Q;H5we7LClPMNa`rz>wsy>Ov5((VFURRzyCz*8cr{@-v%B#M=VB_=BB zn6k*|eVDtm1{OWr(@H`e65v{tffY#Q5W`{*Z9)fq089gNURMDGJjgY7T0Rn~K(ce0 z_QtUvJJuAVgQdA@Nbb_yq?nWuOv*h*>L{=aJ{pgFWH-ff3s!H{l;8)4Lo#g^X#5%A zYvrRqXC9P*s}0*yhr$ANQ7BBEf|EY|(J)kmC>$FA>FvGNg!{!)5D3+@qBto}28~Q& zW?~&G_W5&m8IFIC5u7U`f=f`wxxtilFh$+bpD*K)r=kcGOW!*Xen`(LJrJVTV%d)$ zzhzyEl;+yL^dp(V|)pHmY}2HKX7t@@ziAcMOX~% z7UJ~AO)wwWfm+;?;Y&Cw0s(sf7NUhc&V!Q)s+N|P&^zf+`|XD~8VNs(CSC&c+sOzZ z3RKaf91IXkYL5!q;BZhk$h=H6!KjGi3h%-l>iLd7r+joKi&W6uF(MyTcgDg(o8A*o zhj*Z+dG&&C#Uq<23a_VjJj4f_Zo5NEPd|Ix-0n6#rj)b*;|(r>Cw|O(w=^|H zGSh6zQwGwpEA;HAPLf#cq!W>7W2!M&)(0%{_5+5{55&{aQ!;2g-%&^k;vgD<`<*a= zZG~$hKe{bL5^8|y=nP_zU<7covu>o0pOV23;*lCZ49QjXw8x*IBCeglE6K|Cj*N^% ziU*6qGhc7;=-JP-?%XV~5& zq&f1`F@iabEyyASgw`mVG-EFgy+9Fnb|z#z|8a@~T>k$)*zx}z c$~d6WpFhW29vZ#^M=lXMng$vLS8bpEFGJLV(EtDd literal 0 HcmV?d00001 diff --git a/male.png b/male.png new file mode 100644 index 0000000000000000000000000000000000000000..d84a200e6cb95caed3efd638490a9b3efa66c74c GIT binary patch literal 7063 zcmeHMc{CL4zn>A27=&aQyn1a}N|qS1X5X?!F|=5-g~{00-n1&&cUhxs$=1m7+M%G5w&$)lzbI-Zw{&6{uF+wH4ZRc6g| z>Rv3&xm=#A#j*0=zY7-YE;^XTIrkM-7oF-WGAqz^cfu5R@foJNyiS&rc6lKu5RrXp z)wGz3F{|zPZS&`^vcv@VPq3e^nXGD1`JB7WIrX>qFQvJl?%j<-R8s5EhRw>z$(`ij;JX;`4!*Lpvr9@SgT>ax#l^up>&H+iUK!_}=YMG2XW~=# zAl0l+x3{;n=*-a=bbOgX1=|pOCB(#Bzg4-@GV!{3dM-~b>*?vGNZo2Xezxv;Qqp{% zU)W6%{FaTHS`)WtU3uUprK(D!*AP_@&`;$F7uE zVdL8yNym;IYuFhmJt=Ob+IoaZtF~GA(c{OK#n&uMO{X5y8XFneR(p)*>c$4GPK0rZ z;GN&(=YOA5Iq>)Ottw@@R&!_4?qFxAtn8c}A9WJTEUK$!lu|tw;JUFe@bu}^oiusB zm5GhTA?d%5*v$%~5szvDHWoJPH$OOhN+1s|$)y$-6)h0P_bHjb*M%L~CX@{*J&j`@ z0_VP@f9vVtXTLu9<|?4pYbP0 z1jAn)=rLCpm#Z~*Za6yTPo4^FWZv&4~%VW zAYf|h>Jd0*)l;)5&l;N&m%e;{=?%xdi2OBQ&|G~GtHv9f3B_N zop$CI6Vt~~W$|^QGtd~E4kqF#piTgd>|s*G`}K^C@t!y_74cU?F$03Ss;lt zspjC2$8|U%ibtLwx*nTFF`W?;gW2+Pb1%Vctet3Ha|;Vy?H&V7&A)Kes={%KO0SBG zjL|SZHc#>CqzBn`cnnOTL6c;qj3Qr@o~!E+ITlS3^Ss zQo_fl0>|tbv^5zu-To}m2s!_#1C2ew!cy)%t4C%VOH%L=>OvjA>8))kD<>CyN(z|F z2%~d>`smSw`1n-}rxkOo;`=k=;!B>PyQ#QGl&keY3SB5y7_cdR_3cbLek{hQS5Qhy z%IQlQdAy+kk`FN(P4TL=G0QhlxHA!kV`ieFqN1m#&j?r$CG&?d44$9Q07_W?TDcgb z%^QQ7YD$rHb@sL5j8&}b9Uhi<|N1VHmPwD6Op@+as&MM&RZ(%|u;Q@WU(vF%va+=u zOH=U4jl>BkC@6@DJ$8(0UFAU7E{qcJj*j0yoo#Td{+3s<*S#{?ytzECa=j4&Yo3EO z3k_4{By8(y4w3XgLRq=Krbb>!Nb8VFI?xw4n)!a0<>vmWpm0^L?UhLm?AO_Mg0~aR zbxP`H%Vcv@;#oV%%54Ad$xbLVM#lalb4(xdNH*!^(}{_R3uAuMDhJ!fZfWv^xj@6s0JojCvRw8V3KU96E90gp9wcszsdQ`t!uZ>e~ZF(oSF2 zXVip@(zbRMOI3E}bFSr4v1!#>V*>*N-QC>{4GlFknxArC0BZFdeSdfPb#{5Vl(_h3 zkLtr{3JBbsXbeY1-D(U&ehAp0KX!~vQNu5fVS)MJ5^W?CITXyy%?Yvwk z)eK7#{^_>eNBO_6* zUkWPW_S)Rpt8XtI;3ug@HEYFOSEpK+>vv0V^fcSMyBsG^DzCP%64kfJ~SFW7wqPWV+%7R*mH$nzU zbYj((?AKSv0+)eW>rc9J4#XuUKI4+r!~7)(**)0be=jOZpB9N}nkh+HU&oQ@uJjU# zZ~fOC$!w}~Nu+pUZ!ZfUU+8QnJDLBARLI^Ilgi#@3{B55A$(rYN)xRNAp^yy97G{0 zzyM(peBK>Vi%?EZP9jT~QCWfsZ8Z-w3kL_DOcW%HN}{Q^LX$`X}>Vv)x^?BMUM8f1fv@+NF;J#VBiQXDh@>z6y1TPfw^p~t+}fO!d{-M zP35iTIrl)D*MDZX{1#C(tXt||O)p-&AQDZjgw_`Ye=3@>{}M?GzXa{IM55+nf{ z)n1Spat2K;m)dobn|l$5+22b_=6_bI?(?auD{tiKG=P^cXeAs+-{_b_>WWT((!0VL zu2z;HCFP-TT{U?3SMlrD$B!M0K~cTF<$a<2^JjyUQRkGD6mK6Nxc@jpayjyxkn-7c zRDdOglUn# z*H!kNTN1ZWpamk2GVaX88s|nfa)S&4cmQd=Kv5mP;e8)ygXg$1nXT+( z=P1u`M-n=fbN)%?lVhYhf9W%47Am@xV^LJg8M`?Vq6kw`4>cJ*q9u&Hw!KPaWED!E?3TqxTuP zoqc6NRs#}XS$ZLSj=q6`xR_Y15z?K3TW$#ijxPa=q3ds-@o*Lt6qF(8N!rxhnfb^9 z-KjfAdurl}cqLz}^SyC+^18TKLQbygux8V}leyj)2EfY7;wST8=7}YE{TOe^bhPXS zI{&paayp%AA&2zzar%>@;m@kHZyXqk3JW_X@BE{u=-zRhI%Q>M#>&eJsd@&0`YJ7r zCk1N(K^z$wA&O?ncaCNacf5Mq#Srwg@(Ihp;9y%@TUB+nK5cmE@Q+_Ub6-H78(`?- zT4y{iB_}7#5WbQ;E*O8AFf*WN$@ne}1MBJ)gn72Mx7*eE#aOd6YA2Bx3+n399IL4c z`utZW)W~d?PtJPC+uW`|DG#ln2hX=bv0y!MBF(4($2|XsxcD2eLGtoe7&^9=84qzy zO-&iXT`*#lua){3n*K|*+@IQ>a_5~^wRCfwI1LBP&C3&nJA_7}T2^LQSlGhCLiiC{ zJ=*Zwu(myz5*fn4yUI#0F{&-9Sr7gt`!^5aeBqT(O#aLDBcXc#!!pP`xIs-{U%4)i zt8hjlOBN`toTPI%)V;jQar7S_L`Rnt75!YhH5}o%b@MzmoNJ;HNoHgA0sr*(-|BEe z`dJS;?h76>qH(PN)US|GbPpdsbZ~GWit>xf$h-rT8D}cPe(8kp{=!CSStDM%zkZNN zHZYcUR`OY5^)xSljM2!F%h-(N1uW1nh`Z?LzT-@Awk&UWG>6rMmH1Tw*{Pr117g!61#m2<^ zfkvLmA_yjAJf@U18&z62xW>4k6Ao>1W%LiQmQTari)=H})+3f`A6G>0H`0VfRk z?h!|L^5h9ahV&$I_;Xg2)u)djs<)uTLVDHg?d_!*If1~!F(BD=8BA=gPTy*ehO%gO(|hP!eekZc zFODVAVp6sf>$zm#a~JNiu8(o-CF$-!fB(B%?I<$axu-ijJNvtva6C~H%KNWX?%zPF z0K*y#e{NKaBa{qxWD%-7$3qqeC7?H7CsqZF9Yh^Yavt==p|7L)9OXS^eC5g&U{f4@ z5>qOtU-(e%q7$jct34VG`My^E?FVQejr$Bx9;9!04|TwCU3~r8fB5=T9tBCUc&{OC z{vlN74Er2w5q!G6gM+Si*h6g1op7g+`IDVkCWvtToyiE8o;%T^S0awU3mcm|FD-3- z?HcS>Mg*Vf>gxLKt;1vJGWMTTkgry|%TpbG?+S!^5&GN`K2i+KvleTt9Akv^$sz?m z{-&y~0qJjD?E!)Nj}~h;#~#f%f@gWGiK(AoO@A-YGuYVY7_^Xj?QTz{>kzf)5l(h? z!MpE%js>k57Uqn4;Gur>lh3hqjz$4W#P4!{eDL4_r?le(o?@k_W~snmOYMB2HfI`v z8Ee>)O4+1fojbzPo?~_367}>TFNB+kg zXA>~j{5v{2XRcaqr%}KozU^I2TpbFrE9U7d#JHX2v;* zW|qRL{fsyMJ)`}lOD%7%R$Pj%dXSWq6sQ8p|GSAPgr7ZhY9_?2Yg)E zS9~3Wv)$g7lge(g`IC!*zib*punV|Te6uAVAmzd3>ZjK`_X-r|6!VLSh{(%tJr zlV2U%u-LDxs-h1`ZrT#T|CpVf)g3+hLcg&7Bo|k}cxfG&4FO#@Icq?EfA2ZvPHbR= zBBx~D&R5Ivi!0N72Q^T#1a3s56@RU^^F8KaoX#Q14w6W9AfaP&nwy)!wTXJayBoAI zD+O5%xO%B`iuI1yP1ap25qR7q z?;%rPUtd?(*B^Ur^x|djF7yXh3-*jdIZaJX)r`I$V?w$1A|Tzs&(BX!@6pHJns$$B z{r%m5-CyqY@u%xyyn%zmEI2dGXxp;u$VAgtu*c7)*A~#`;NZ9*EBla#u{oP08=H`D#oS!x?t(dCv}CT9RoI9JtbB&> z)Z%>T>*SuEo`KhvP{4IAx`f?;9R(~D7WgiY1uyg$*80pX_)1$z=5c9zd;h$5jCEZ> zOh90&x?#V#kGuzdl9`jUu=^$89vi5ut4k)6=ejfP%5SzNdY+#>Zlfp5g}%QD<*5GG zS68EgHGISFs0P!;nZ@brrg4N)2F~;LV8DPK8n#-`f`6IIG4r!5>dl4M6m9L@`6fub zonPNPEiEkee2)5a@#Dt@#+j5>o3>3o*|%QPZT_ogt1~ml z*U5eQdV0XgW3i!INbXrlN{4VJ$eTH^&)>hKFD@^SZ;XG0F*UQF67l z@N(gG6i||GUX^c3(M;6 z_(6S9(QPob@YG`W+Zf>USS|8sUVeVaw&m2+)L;oV5UA18*1r|MY<<)%j?nbiy?bwL zYTssOPw^dWwfDT#a3@U+xm|f<<+V%;|{rfk(kb>`s#xdi%6_@Ky zqmfryM34yjY!XscElv?3^1z!GL1RKeWbt>R5p0)gkAy{t;1QRZXHoy_o#>yV5TA}Q zFc|3R{oK0Y)SdAmaI*yEPg$GrgOCQ?N7gyw38O^L30BJzo5Ir44ZdiwfzKl)_C^HD)x;X!R!6?kQK?!&KdtxO)Co|`VG5SUwY|NAHW zzZmuZ-_w618IVNebviJr@Yc1Hw$Y=(ba%Gd)Xa=8bkEB!YP)D<<<346jf~SjFhwA^ iZb=;ZpJmZ{=rs*jj@w!}JMf=2gs!I1r4se)5&s5#MJ$~F literal 0 HcmV?d00001 diff --git a/url_portrait.R b/url_portrait.R new file mode 100644 index 0000000..3b33fc1 --- /dev/null +++ b/url_portrait.R @@ -0,0 +1,31 @@ +library(jiebaR) +library(wordcloud2) + +#文件路径 +readChineseWords<-function(path){ + rawstring = readLines(path) + rawstring = paste0(rawstring,collapse = ' ') + s <- gsub('\\w','',rawstring,perl = T) + s <- gsub('[[:punct:]]',' ',s) + return(s) +} + +#url +male_link <- 'https://s.taobao.com/search?q=男' +female_link <- 'https://s.taobao.com/search?q=女' + +male_str <- readChineseWords(male_link) +female_str <- readChineseWords(female_link) + +#分词 +cc <- worker() +new_user_word(cc,'打底裤','n') +male_words <- cc[male_str] +female_words <- cc[female_str] + +male_df <- freq(male_words) +wordcloud2(male_df,figPath = 'male.png',backgroundColor = 'black',color = 'random-light') + +female_df <- freq(female_words) +wordcloud2(female_df,figPath = 'female.png',backgroundColor = 'black',color = 'random-light') +