日録2010年12月のバックアップ差分(No.1)

追加された行はこの色です。
削除された行はこの色です。

[[過去の日録]]
&htmlinsert(amazon,transitional,"asins=4627848412");&htmlinsert(amazon,transitional,"asins=4431712186");&htmlinsert(amazon,transitional,"asins=4431713123");
&htmlinsert(amazon,transitional,"asins=4431100113");&htmlinsert(amazon,transitional,"asins=4431100474");&htmlinsert(amazon,transitional,"asins=4431100695");
&htmlinsert(amazon,transitional,"asins=4431100881");



//#ref(R_Lattice/lattice113.png)
//&htmlinsert(amazontext,asin=4431100695,text=ショーカー著『R グラフィックス自由自在』シュプリンガー社); 
//[[Lattice Multivariate Data Visualization with R:http://www.springer.com/statistics/computational/book/978-0-387-75968-5]]

//#htmlinsert(twitter,user=R_Linux,count=2)
// &htmlinsert(amazontext,asin=,text=); 

//#htmlinsert(amazonads)
// &htmlinsert(amazontext,asin=,text=); 

* 2010 年 12 月 01 日 （水） 晴 [#n2878025]
-- 06:10 起床
-- 07:30 研究室
- 午前
-- 08:40-10:10 演習
- 午後
-- 14:35-16:05
-- &htmlinsert(amazontext,asin=0387981403,text=ggplot2 ー Elegant Graphics for Data Analysis); の翻訳作業
-- [[RMeCab]]のdocMatrix2の出力を頻度順に並び替えるコードを泥縄で書いたが，もう少し，ましな方法があるわな

 res2 <- docMatrix2("writers", pos = c("名詞","形容詞"), 
                       minFreq = 5)
 
 #　各行（ターム）の頻度合計を列に追加したデータフレームを作成する
 #  あるいはオブジェクトを上書きしてしまう．
 #　ついでに降順に並び替える
 
 z <- data.frame(term = rownames(res2)[ order(rowSums(res2),
                       decreasing= T ) ] ,
                    sums = rowSums(res2)[order(rowSums(res2),
                       decreasing  = T )] )
 # 頻度別の単語数は
 table(z$sums)
 # 頻度が100を超えるタームを抽出
 z[z$sums > 100,]
 # Termが"の"の行を確認
 res[rownames(res)  == "の", ]

アールメカブ

日録2010年12月 のバックアップ差分(No.1)

日録2010年12月のバックアップ差分(No.1)