柏/SoftwareRef/R
の編集
https://floss-lab.org/pukiwiki/?%E6%9F%8F/SoftwareRef/R
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
[[柏/SoftwareRef]] *memo [#rbb86900] *入力 [#h334cf98] -csv読み込み~ Time<-read.csv("/Users/s141015/Dropbox/myfolder/research/学会/SES/exp/データ/アホモデル/all-a+1/comp1,2/Compare_time.csv",header=FALSE) --option ---列名：row.names=1 *データ加工 [#g37f4e60] --併合~ rbind~ cbind~ *plot [#la99c3b0] -棒グラフ~ barplot() --列名利用：names.arg=rownames(a) --題名：main=colnames(a[1]) -散布図~ plot() **x軸の目盛 [#ue407915] -斜めに~ a<-barplot(t(B[2]))~ text(a, -.01, t(B[1]), srt = 45, adj = c(1, 1), xpd = TRUE)~ **複数の変数と比較 [#q9485033] -データの方向が縦~ x<-rbind(,)~ barplot(x,beside=True) **パラメータ [#s6a9475b] -線の太さ~ lwd=数字 -色~ col="色" -ラベル名~ names=c(,,,,,) -ラベル名の回転~ las=数字~ 0:通常~ 1:水平~ 2:xが垂直,yが水平~ 3:垂直~ 4:xが水平,yが垂直~ *線を挿入 [#l516879e] lines(x,y) *qcc [#cb11a52a] -パレート図~ --簡易~ library(qcc)~ pareto.chart(x)~ --一般 パレート図~ a<-barplot(t(B[1]),lwd=2, las=1,ylim=c(0,120),xlim=c(0,30),col="white")~ par(new=T)~ plot(a,t(B[2]),type="o",axes=F,xlab="",ylab="",ylim=c(0,100),xlim=c(0,30))~ axis(side=4,lwd=2,las=1)~ *出力 [#xfbac908] -多行多列プロット~ par(mfrow=c(m,n))~ plot.....~ --空白指定~ par(mfrow=c(2,2),mar=c(1,1,1,1),oma=c(1,1,1,1))~ oma:作図の全体画面の上下左右の余白~ mar:各作図に対する上下左右の余白~ 1:下，2:左，3:上，4右~ -簡易~ dev.copy2eps(file="ファイル名.eps")~ dev.copy2pdf(file="ファイル名.pdf")~ -一般 --eps~ setEPS() #いらんかも~ postscript("hoge.eps", family="Japan1GothicBBB")~ curve(...) # 図を描く~ dev.off() ~ --jpeg~ jpeg("test.jpg",width = 1500,height = 900)~ 図を書く~ dev.off()~ -フォント指定 par(family="")~ --フォント一覧 Hiragino Mincho Pro W3~ Hiragino Mincho Pro W6~ Hiragino Mincho Pro W3~ Hiragino Mincho Pro W6~ Hiragino Kaku Gothic Pro W3~ Hiragino Kaku Gothic Pro W6~ Hiragino Kaku Gothic Pro W3~ Hiragino Kaku Gothic Pro W6~ ---pdf用~ Japan1~ Japan1GothicBBB~ Japan1HeiMin~ -文字の大きさ指定~ par(ps = 28) *エラー対処 [#y5022720] **不正なマルチバイトがあります [#f31283a5] read.csv(file("ファイル名",encoding="Shift-JIS"),row.names=1)~
タイムスタンプを変更しない
[[柏/SoftwareRef]] *memo [#rbb86900] *入力 [#h334cf98] -csv読み込み~ Time<-read.csv("/Users/s141015/Dropbox/myfolder/research/学会/SES/exp/データ/アホモデル/all-a+1/comp1,2/Compare_time.csv",header=FALSE) --option ---列名：row.names=1 *データ加工 [#g37f4e60] --併合~ rbind~ cbind~ *plot [#la99c3b0] -棒グラフ~ barplot() --列名利用：names.arg=rownames(a) --題名：main=colnames(a[1]) -散布図~ plot() **x軸の目盛 [#ue407915] -斜めに~ a<-barplot(t(B[2]))~ text(a, -.01, t(B[1]), srt = 45, adj = c(1, 1), xpd = TRUE)~ **複数の変数と比較 [#q9485033] -データの方向が縦~ x<-rbind(,)~ barplot(x,beside=True) **パラメータ [#s6a9475b] -線の太さ~ lwd=数字 -色~ col="色" -ラベル名~ names=c(,,,,,) -ラベル名の回転~ las=数字~ 0:通常~ 1:水平~ 2:xが垂直,yが水平~ 3:垂直~ 4:xが水平,yが垂直~ *線を挿入 [#l516879e] lines(x,y) *qcc [#cb11a52a] -パレート図~ --簡易~ library(qcc)~ pareto.chart(x)~ --一般 パレート図~ a<-barplot(t(B[1]),lwd=2, las=1,ylim=c(0,120),xlim=c(0,30),col="white")~ par(new=T)~ plot(a,t(B[2]),type="o",axes=F,xlab="",ylab="",ylim=c(0,100),xlim=c(0,30))~ axis(side=4,lwd=2,las=1)~ *出力 [#xfbac908] -多行多列プロット~ par(mfrow=c(m,n))~ plot.....~ --空白指定~ par(mfrow=c(2,2),mar=c(1,1,1,1),oma=c(1,1,1,1))~ oma:作図の全体画面の上下左右の余白~ mar:各作図に対する上下左右の余白~ 1:下，2:左，3:上，4右~ -簡易~ dev.copy2eps(file="ファイル名.eps")~ dev.copy2pdf(file="ファイル名.pdf")~ -一般 --eps~ setEPS() #いらんかも~ postscript("hoge.eps", family="Japan1GothicBBB")~ curve(...) # 図を描く~ dev.off() ~ --jpeg~ jpeg("test.jpg",width = 1500,height = 900)~ 図を書く~ dev.off()~ -フォント指定 par(family="")~ --フォント一覧 Hiragino Mincho Pro W3~ Hiragino Mincho Pro W6~ Hiragino Mincho Pro W3~ Hiragino Mincho Pro W6~ Hiragino Kaku Gothic Pro W3~ Hiragino Kaku Gothic Pro W6~ Hiragino Kaku Gothic Pro W3~ Hiragino Kaku Gothic Pro W6~ ---pdf用~ Japan1~ Japan1GothicBBB~ Japan1HeiMin~ -文字の大きさ指定~ par(ps = 28) *エラー対処 [#y5022720] **不正なマルチバイトがあります [#f31283a5] read.csv(file("ファイル名",encoding="Shift-JIS"),row.names=1)~
テキスト整形のルールを表示する
![[PukiWiki]](image/wadanyan.png "[PukiWiki]")
