#author("2019-07-17T09:03:48+09:00","","") [[R_old_tips2]] [[Rサーチ:http://seekr.jp/]] [[R関係のスライドやビデオ>R_Slide_Video]] # $ fc-list : family # $ xlsfonts -fn -ipamona-gothic-*-*-*-*-*-*-*-*-*-*-*-* grDevices::X11.options( fonts=c("-ipamona-gothic-*-*-*-*-*-*-*-*-*-*-*-*", ## "-kochi-gothic-%s-%s-*-*-%d-*-*-*-*-*-*-*", "-adobe-symbol-medium-r-*-*-%d-*-*-*-*-*-*-*")) grDevices::pdf.options(family="Japan1GothicBBB") grDevices::ps.options(family="Japan1GothicBBB") // grDevices::X11.options(fonts = c("-*-gothic-%s-%s-normal--%d-*-*-*-*-*-*-*", // "-adobe-symbol-*-*-*-*-%d-*-*-*-*-*-*-*")) //ps.options(family= "Japan1")# 2010 06 01 Ubuntu 10.04 //sazanamiがいやんばかんと言うことだったと思いますので, IPAfont等を持って来て(例えば/usr/local/share/fonts/ipafontにほりこむ)もらって, /etc/ghostscript/cidfmap.ja に ///KozMinPro-Regular-Acro << /FileType /TrueType /Path (/usr/local/share/fonts/ipafont/ipam.ttf) /CSI [(Japan1) 6] >> ; //みたいに記述すれば良いと思います. - #contents //http://gensen.dl.itc.u-tokyo.ac.jp/ //http://cse.niaes.affrc.go.jp/miwa/ja/R/setup290/index.html //http://www2.hyo-med.ac.jp/~tanimura/R/R.html * 自作パッケージ [#x2383529] - &size(20){&color(blue){[[RMeCab]]パッケージ};}; データ解析・グラフィックス環境 &size(18){[[R:http://cran.md.tsukuba.ac.jp/]]}; から日本語形態素解析ソフト''&color(blue){和布蕪};( [[MeCab:http://mecab.sourceforge.net/]] )''を呼び出して使うインターフェイス -- [[R2MeCab]] :[[RMeCab]]のサブセット.実装関数は三つだけです. -&size(20){&color(blue){[[RCaBoCha]]パッケージ};}; データ解析・グラフィックス環境 &size(18){[[R:http://cran.md.tsukuba.ac.jp/]]}; から日本語係り受け判定ソフト''&color(blue){南瓜};( [[CaBoCha:http://sourceforge.net/projects/cabocha/]] )''を呼び出して使うインターフェイス //** [[R_source>RSource]] [#p537302d] * Rを最新版にした結果、RExcel が起動しなくなった場合 [#p9ecaa9a] R を管理者権限で実行し + R のメニュー パッケージ を使って Rcmdr をインストール + R のメニュー パッケージ を使って RExcelInstaller をインストール + library(RExcelInstaller) を実行 + installRExcel() を実行する + Setup ウイザードの指示に従って next, install をクリックしていく + 念のため RExcel を管理者権限で実行 以上です RExcel を含め、古いRにインストールしていたパッケージをすべて新しい環境に移したい場合は http://sunsite.univie.ac.at/rcom/ トップメニュー Wiki -> 左フレーム How to upgrade R with our packages installed その他,[[中澤先生のサイト:http://phi.med.gunma-u.ac.jp/swtips/R.html]]も参照ください * [[RExcel]] [#ve2b7ff1] * R の参考書 [#b1682569] //&htmlinsert(amazontext,asin=,text=); -&htmlinsert(amazontext,asin=4627848412,text=『Rによるテキストマイニング入門』森北出版); :R でコーパス・テキスト・言語処理を行うための入門書ですが,第3章にRの包括的な入門があります. -&htmlinsert(amazontext,asin=4431712186,text=U・リゲス著『Rの基礎とプログラミング技法』シュプリンガー社); 中級者になるために. -&htmlinsert(amazontext,asin=4431713123,text=B・エヴェリット著『RとS-PLUSによる多変量解析』シュプリンガー社); 解析をばりばり行うために. -&htmlinsert(amazontext,asin=4431100474,text=P・スペクター著『Rデータ自由自在』シュプリンガー社); データをばりばり処理するために. -&htmlinsert(amazontext,asin=4274067572,text=青木繁伸『Rによる統計解析』オーム社); R のプログラミングテクニックを学ぶために. - &htmlinsert(amazontext,asin=4627096011,text=金明哲『Rによるデータサイエンス』森北書店); R での解析手法に慣れるために. - &htmlinsert(amazontext,asin=4777511847,text=舟尾暢男『データ解析環境「R」』工学社); とにかく R を使ってみたい. -&htmlinsert(amazontext,asin=4894717573,text=中澤港『Rによる統計解析の基礎』ピアソンエデュケーション); 統計学と R を同時に学びたい. * 資料 [#sb73f487] - [[統計数理研究所公開講座:http://www.ism.ac.jp/lectures/21n.html]] 準備途上 Windows 用実行ファイル &ref(ism20091124.R); -第91回行動計量シンポジウム &ref(管理者/TextMining2.pdf); -行動計量学会第35回全国大会 関係 (チュートリアルpdf &ref(管理者/HowToR.pdf); &発表pdf &ref(管理者/bsj2007.pdf); ) //&発表pdf):http://150.59.18.68/]] -[[統計的言語処理]] - ラプラス近似.[[ここによいメモ:http://d.hatena.ne.jp/triadsou/20090217/1234865055]] -------------------------------- &size(22){R についての最近のメモ}; //CENTER:&size(22){&color(red){R を使い始めた頃からのメモ};}; //////////////////////////////// ////////////////////////////// //-[[R_入力ソースの判定]] *************** [#g26842d3] *[[RとEmacsとGDBでデバッグ>http://rmecab.jp/new/?p=413]] [#t5cc9b8a] *[[Rcpp]] [#v4afd978] *[[Rcpp_DataFrame]] [#w5039e37] * Rの正規表現で URL 抽出. [#o3492630] とりあえず,手っ取り早くこんなもん.ただし,抽出できない場合もあるので注意. str <- "これはhttp://cran.r-project.org/で,あれはhttp://www.yahoo.co.jp/です." tmp <- gregexpr ("https?://.+/(.+/)*?", str) substring(str, tmp[[1]], tmp[[1]] + attr (tmp[[1]], 'match.length') -1) *[[Rでシフト演算>R_Shift]] [#y94fde7b] *[[animation]] [#e350c871] * [[RHIPE - R and Hadoop Integrated Processing Environment:http://www.stat.purdue.edu/~sguha/rhipe/]] [#w6de7ec1] * [[Putting Robust Standard Errors into LaTeX Tables An Extension of mtable:http://www.r-bloggers.com/putting-robust-standard-errors-into-latex-tables-an-extension-of-mtable/]] [#d8dd009b] * [[Building and checking R source packages for Windows:http://win-builder.r-project.org/]] [#b85d86a3] *[[R 2.12 to 2.13 package upgrade:http://www.r-bloggers.com/r-2-12-to-2-13-package-upgrade/]] [#zcf739b1] *[[How to upgrade R on windows 7:http://www.r-bloggers.com/how-to-upgrade-r-on-windows-7/]] [#b3ad4419] *[[Server版RStudio Ubuntu]] [#zd988f76] *[[分割表をもとのデータに>ConvertTableToRawData]] [#k402aba2] *[[Rで曜日と月の数を数える:]] [#jb3978bd] *[[CRANberries:http://dirk.eddelbuettel.com/blog/2011/01/23/#cranberries_tweets]] [#z8786505] *[[zapsmall]] [#j74a01f9] *[[R_Connection]] [#x84cba65] *[[R_sqLite_Excel]] [#y7e7d66e] *[[if_else]] [#r32eaf2c] *[[rawToChar]] [#v9ecf77e] *[[Unicode_utf8]] [#f06a440a] *[[ReferenceClasses]] [#l6ddcd31] とりあえず[[ここを参考:http://www.inside-r.org/r-doc/methods/ReferenceClasses]]にサンプルを実行してみる ## a simple editor for matrix objects. Method $edit() changes some ## range of values; method $undo() undoes the last edit. mEditor <- setRefClass("matrixEditor", fields = list( data = "matrix", edits = "list"), methods = list( edit = function(i, j, value) { ## the following string documents the edit method 'Replaces the range [i, j] of the object by value. ' backup <- list(i, j, data[i,j]) data[i,j] <<- value edits <<- c(list(backup), edits) invisible(value) }, undo = function() { 'Undoes the last edit() operation and update the edits field accordingly. ' prev <- edits if(length(prev)) prev <- prev[[1]] else stop("No more edits to undo") edit(prev[[1]], prev[[2]], prev[[3]]) ## trim the edits list length(edits) <<- length(edits) - 2 invisible(prev) } )) xMat <- matrix(1:12,4,3) xx <- mEditor$new(data = xMat) xx$edit(2, 2, 0) xx$data xx$undo() mEditor$help("undo") stopifnot(all.equal(xx$data, xMat)) ## add a method to save the object mEditor$methods( save = function(file) { 'Save the current object on the file in R external object format. ' base::save(.self, file = file) } ) tf <- tempfile() xx$save(tf) #$ *[[Rcpp]] [#i282f9f6] *[[疎行列を作成する>Sparse_Document_Term_Matrix]] [#jba11081] * [[boxplot]] [#l2d153b8] * 適合度の検定における最小期待値 [#i53dc7f0] 期待値が5未満のセルが20%あるといけないなどというが,一度,この根拠をしらべてみたことがある.このWikiのどこかにあるはずなのだが,みつからない.で,[[青木先生のサイトに情報:http://aoki2.si.gunma-u.ac.jp/lecture/Cross/warning.html]]があった. * CS3とEPS [#o03d3f54] Rで作成した日本語入りEPSを, Windows の CS3 で確実に読みこんでもらうには library(Cairo) CairoFonts( regular="IPA P明朝,IPAPMincho:style=Regular", bold="IPA Pゴシック,IPAPGothic:style=Regular,Bold", italic="IPA P明朝,IPAPMincho:style=Regular,Italic", bolditalic="IPA Pゴシック,IPAPGothic:style=Regular,Bold Italic,BoldItalic") CairoPS(file = "/home/ishida/cairo.ps", bg="white") plot(1:10, 1:10, main ="テスト", cex = 1.2) dev.off() embedFonts(file ="~/cairo.ps", outfile ="~/Cairo2.eps" ) としておく.[[ここ>R_fromOldHtml3#nc4d8299]]も参照 * PDF [#j326112e] 根本的解決に至っていないが R 上で日本語を含む PDF を作成できない. とりあえず library(Cairo) # CairoFonts(regular="VL ゴシック,VL Gothic:style=regular") CairoFonts(regular="IPA P明朝,IPAPMincho:style=Regular") CairoPS(file = "Fig", bg="white") hogehoge dev.off() として ps を作成し,変換しておく * RCurl [#t0c8b845] twitteR のインストールに必要だが,'curl' と 'libcurl3 に加えて,以下のコマンドの出力が示すように libcurl4-openssl-dev が必要 $ apt-cache search libcurl3-dev libcurl4-openssl-dev - Development files and documentation for libcurl (OpenSSL) $ apt-get install libcurl4-openssl-dev [[ここ:https://stat.ethz.ch/pipermail/r-help/2007-October/143351.html]] を参照 * if の返り値 [#y0541570] x <- 0 y <- if(x + 1){ x + 100 }else{ x - 100 } y [1] 100 # y <- if(x + 1) cat("TRUE\n")# else cat("FALSE\n") if(y <- x + 1) cat("TRUE\n") else cat("FALSE\n") * lme による分散成分の標準誤差 [#z6bda2d5] -- Rjpwikiに lme の出力から分散成分の標準誤差を取り出したいという議論があるが,Batesがしばしば指摘しているよう[[A:http://www.mail-archive.com/r-help@stat.math.ethz.ch/msg67236.html]],[[B:https://stat.ethz.ch/pipermail/r-sig-mixed-models/2010q1/003373.html]]) に,確率区間を使うべき.確率区間の計算は interval.lme() だから getS3method("interval", "lme") を実行して,一度アルゴリズムを確認すれば良いかなと思うのだけど. * .Primitives [#p4ecb1dd] 2校演算子の定義するためにはクオートするが,呼び出しは以下のように,ダブルコーテーションも使えるのか > str(`*`) function (e1, e2) > get("*") function (e1, e2) .Primitive("*") > `*`(3,3) [1] 9 > get("*") function (e1, e2) .Primitive("*") > "*"(3,3) [1] 9 > `like this` <- 2 > "like that" <- 3 > print(`like this`) [1] 2 > print("like that") [1] "like that" [[R-helpより:http://www.mail-archive.com/r-help@stat.math.ethz.ch/msg76430.html]] *[[Cairo]] [#g9b156f4]