＃1.1 ####
RM（リスト= LS（））
年齢< - C（1,3,5,2,11,9,3,9,12,3）
重量<-c（4.4,5.3,7.2、 5.2,8.5,7.3,6.0,10.4,10.2,6.1）
の平均（重量）
SD（重量）
COR（年齢、体重）
プロット（年齢、体重）
#matrix ####
A < -マトリックス（1：20、nrow = 4、のNcoI = 5）;
細胞<-C（1,26,24,68）
rnames <-C（ "R1"、 "R2"）
CNAMES <-C（ "C1"、 "C2"）
mymatrix1 < -マトリックス（細胞、nrow = 2、のNcoI = 2、
byrow = FALSE、
dimnames =リスト（rnames、CNAMES））; mymatrix1
mymatrix2 < -マトリックス（細胞、nrow = 2、のNcoI = 2、
byrow = TRUE、
dimnames =リスト（rnames、CNAMES））; mymatrix2
X < -マトリックス（1:20、nrow = 2） nrow = 2）
X
X [2]
X [3]
X [2,5]
X [1、C（4,5）]
X [C（4：7）]
#array ####
DIM1 <-C（ "A1"、 "A2" ）
DIM2 <-C（ "B1"、 "B2"、 "B3"）
DIM3 <-C（ "C1"、 "C2"、 "C3"、 "C4"）
mnarray <-array（1：24、C（ 2,3,4）、dimnames =リスト（DIM1、DIM2、DIM3））
ビュー（mnarray）
#dataフレーム####
patientID <-c（1,2,3,4）
年齢<-c（25,34 、28,52）
糖尿病<-c（ "TYPE1"、 "TYPE2"、 "TYPE1"、 "TYPE1"）
状態<-c（ "悪い"、 "改善"、 "エクセレント"、 "悪い"）
patientdata < - data.frame（patientID、年齢、糖尿病、ステータス）
編集（patientdata）＃一時的に変更
修正（patientdata）データフレームに格納された関係の変化＃
rownames（patientdata）< - C（ 'A'、 'B'、 'C'、 'D'）
、[patientdataを1：2。 ]
patientdata [3 :. 4]
patientdata [C（ "糖尿病"、 "ステータス"）]
patientdataの$ステータス
テーブル（patientdata $ patientID、patientdata $歳）＃交叉验证
要約（patientID）
要約（年齢）
COR（年齢、patientID）
COV（年齢、patientID）
プロット（patientdataの$の年齢、patientdata $ patientID）
（CO2）を取り付け
編集（CO2）
のプロット（取り込み、濃塩酸）
切り離し（CO2）
ヘッド（mtcars）
（mtcars、{＃で（データ、{表現}）好处是不用频繁使用dataname $と
印刷（サマリー（MPG））
プロット（MPG、 DISP）
プロット（MPG、重量）
}
）
（mtcars、を有する
プリント（要約（MPG））
）
（mtcars、{と
nokeepstats <（MPG -summary）#with以内<<使用する必要があり、新たな変数に名前を付けます-
keepstats << -概要（MPG）は}）
keepstats
nokeepstatsを
ステータス<-factor（ステータス、オーダー= TRUE）
糖尿病<-factor（糖尿病）、
クラス（ステータス）
LS（patientdata）
patientdata <-data.frame（patientID、年齢、糖尿病ステータス）
STR（patientdata）＃ショーのデータ`sの構造の
概要（patientdata）
状態<-factor（ステータスは、= TRUE、注文した
（ "悪い"レベル= cを、 "改善"、 "エクセレント"））
性別<-c（ "1"、 "2"、 "2"、 "1"）
性別<-factor（性別、レベル= Cを（1,2）、ラベル= Cの（ "男性"、 "女性"））
#list ### ＃
G < - "私のリスト"
H <-c（25,26,18,39）
J < -マトリックス（1:20、nrow = 2）
K <-C（ "1"、 "2"、 "3"）
マイリスト<-list（タイトル= G、年齢の=さh、j、k）は
マイリスト
マイリスト[[3]]
マイリスト[[ "年齢"]]
新しい変量とrecodeの名前変更#create
）マネージャー<-c（1,2,3,4,5を
日付<-C（ "10/24/14"、 "10/28/14"、 "10/01/14"、 "10/02/14"、「05/01/14 "）
国<-c（" M」、 "F"、 "F"、 "M"、 "F"）
、年齢<-c（32,45,25,39,99）
Q1 <-c（5,3 、3,3,2）
Q2 <-C（4,54,4,3,2）
Q3 <-C（5,2,5,4,1）
Q4 <-C（5,5,5、NA、 2）
Q5 <-c（5,5,2、NA、1）
リーダーシップ<-data.frame（管理者、日付、国、年齢、Q1、Q2、Q3、Q4、Q5、
stringsAsFactors = FALSE）
リーダーシップ$年齢[リーダーシップ$年齢== 99] < - NAの
リーダーシップの$ agecat [リーダーシップ$年齢> 75 < - "長老"
リーダーシップの$ agecat [リーダーシップ$年齢<= 75＆
リーダーシップ$年齢> = 55] < - 」中年」
リーダーシップの$ agecat [リーダーシップ$年齢<55] < - "若い"
#or
{、リーダーシップ（-within <リーダーシップ
ageact <-NA
#or ####
ageact [年齢> 75 < - "長老"
ageact [年齢> = 55＆年齢<= 75] < - "中年"
ageact [年齢<55] < - "yough"}）
リーダーシップ<-within（リーダーシップ、{
グレード<-NA
グレード[Q1> 3 < - 」良い」＃の常用の语修改データフレーム时不用频繁使用データフレームの$
グレード[Q1 <= 3] < - "悪い"}）#compare 64で'は' ''内で
＃修改行名、列名
の名前（リーダーシップ）[ 2] < - 'testdate' ＃列名
の名前（リーダーシップ）
名row.names（リーダーシップ）＃行
install.packagesは（ "plyr"）
ライブラリー（plyr）
名前の変更（= "マネージャーID"）リーダーシップ、C（マネージャー）
#datetime ####
Sys.Date（）
日付（）
MyDateに該当<-as.Date（C（ "2018年1月12日"、 "2008-01-11"））デフォルトの書式も#must
MyDateに該当する
クラス（MyDateに該当）
strdate <-c（ "2018年1月12日"、 "2008年1月12日"）＃文字の
日付<-as.Date（strdate、 "％Y /％mは/％d個"）＃日付＃、デフォルトの書式
日付
マネージャ<-C（1,2,3,4,5）
日付<-C（ "10/24/14"、 "10/28/14"、 "10/01/14"、「10/02/14 」、 "05/01/14"）
国<-c（ "M"、 "F"、 "F"、 "M"、 "F"）
、年齢<-c（32,45,25,39,99）
Q1 <-C（5,3,3,3,2）
Q2 <-C（4,5,4,3,2）
Q3 <-C（5,2,5,4,1）
Q4 <-C（ 5,5,5、NA、2）
Q5 <-c（5,5,2、NA、1）
リーダーシップ<-data.frame（管理者、日付、国、年齢、Q1、Q2、Q3、Q4、Q5、
stringsAsFactors = FALSE）
#format ####
myformat < - '％のM /％D /％Y'
リーダーシップ$日<-as.Date（リーダーシップ$日、myformat）;リーダーシップ$日付
クラス（リーダーシップ$日付）
ビュー（リーダーシップ）
日付<-c（ "10/24/14"、 "10/28/14"、 "10/01/14"、 "10/02/14"、 "05/01/14"）
日付<-as。日付（日付、 "％のM /％D /％Y"）;日付
フォーマット（日付、形式= "％M-％D-％Y"）＃修改时间格式显示
フォーマット（日付、形式= "％のM /％ D /％Y "）
#or
今日<-Sys.Date（）
フォーマット（今日、形式=" ％のA "）
フォーマット（今日、形式=" ％のA "）
STARTDATE <-as.Date（今日）
endate < - as.Date（ "1994年1月21日"）
日<-endate-STARTDATE;日
＃のdifftime
今日<-Sys.Date（）
周年<-as.Date（ "2012年10月29日"）
difftime（今日、記念日、単位= "日"）
9145/365
今日<-as。文字（今日）
は本日
#more <{ヘルプ（ "as.Date"）！ "ヘルプ（"のstrftime」）、パッケージ（TIMEDATE）
#order ####
RM（リスト= LSを（））
マネージャ<-C（1,2,3,4,5）
日付<-C（ "10/24/14"、 "10/28/14"、「10/01/14 " "10/02/14"、 "05/01/14"）
国<-c（ "US"、 "US"、 "英国"、 "英国"、 "UK"）
性別<-c（" M 」、 "F"、 "F"、 "M"、 "F"）
年齢<-c（32,45,25,39,99）
Q1 <-c（5,3,3,3,2）
Q2 < -C（4,4,4,3,2）
Q3 <-C（5,2,5,4,1）
Q4 <-C（5,5,5、NA、2）
Q5 <C（5、 5,2、NA、1）
リーダーシップ<-data.frame（管理者、日付、国、性別、年齢、Q1、Q2、Q3、Q4、Q5、
stringsAsFactors = FALSE）
NEWDATA <-leadership [オーダー（-leadershipの$の年齢）、]; NEWDATA
NEWDATA <-leadership [オーダー（リーダーシップ$年齢）、];NEWDATA
#OR
添付する（withleadership）
NEWDATA <-leadership [注文（性別、年齢）、];並べ替えNEWDATA＃セックス
newdata1 <-leadership [オーダー（性別、-age）、]; newdata1
デタッチ（）
＃マージデータセット####
RM（リスト= LS（））
マネージャー<-c（1,2,3,4,5）
国<-c（ "US" 、 "US"、 "英国"、 "英国"、 "UK"）
性別<-c（ "M"、 "F"、 "F"、 "M"、 "F"）
、年齢<-c（32,45 、25,39,99）
Q1 <-c（5,3,3,3,2）
Q2 <-c（4,4,4,3,2）
leadership1 <-data.frame（管理者、国、性別、年齢、Q1、Q2、
stringsAsFactors = FALSE）
マネージャー<-c（1,2,3,4,5）
日付<-c（ "10/24/14"、 "10/28/14"、 "10/01 / 14" 、 "10/02/14"、 "05/01/14"）
Q3 <-C（5,2,5,4,1）
Q4 <-C（5,5,5、NA、2）
Q5 <-c（5,5,2、NA、1）
leadership2 <-data.frame（管理者、日付、Q3、Q4、Q5、
stringsAsFactors = FALSE）
ビュー（leadership1）
ビュー（leadership2）
合計<-merge（leadership1、leadership2、= "マネージャー"によります）
合計<-cbind（data.frame（leadership1）、data.frame（leadership2））
ビュー（合計）
#subset ####
RM（リスト= LS（））
マネージャ<-C（1,2,3,4、 5）
日付<-c（ "10/24/14"、 "10/28/14"、 "10/01/14"、 "10/02/14"、 "05/01/14"）
国< - C（ "US"、 "US"、 "英国"、 "英国"、 "UK"）
性別<-c（ "M"、 "F"、 "F"、 "M"、 "F"）
、年齢< - C（32,45,25,39,99）
Q1 <-C（5,3,3,3,2）
Q2 <-C（4,4,4,3,2）
Q3 <C（5,2 、5,4,1）
Q4 <-c（5,5,5、NA、2）
Q5 <-c（5,5,2、NA、1）
リーダーシップ<-data.frame（管理者、日付、国、性別、年齢、Q1、Q2、Q3、Q4、Q5、
stringsAsFactors = FALSE）
リーダーシップ[ "Q1"]
NEWDATA <-leadership [6：10]; NEWDATA
mycars <-C（ "Q1"、 "Q2"、 "Q3"、 "Q4"、 "Q5"）
newdata1 <-leadership [C（6：10）]; newdata1
#or
newdata2 <-leadership [mycars]; newdata2
#or
mycars1 <-paste（ "Q"、1：5、9月= ""）
; newdata3 newdata3 <-leadership [mycars1】
％でmycars2 <-names（リーダーシップ）％ C（ "Q3"、 "Q4"）; mycars2
newdata4 <-leadership [mycars2！]; newdata4
#or
newdata5 <-leadership [C（-8、-9）]; newdata5
#orの
リーダーシップの$ Q3 <-NULL
リーダーシップ$ Q3 <-leadership $ Q4 <-NULL
NEWDATA <-leadership [1：3、]; NEWDATA
NEWDATA <-leadership [1：3]; NEWDATA
#or
NEWDATA <-leadership [リーダーシップ$性別== "M" ＆
リーダーシップ$年齢> 30、]; NEWDATAは
#or
添付する（リーダーシップ）
NEWDATA <-leadership [性別== "M" ＆年齢> 30、]
デタッチ（リーダーシップ）
リーダーシップ$日付<-as.Date（リーダーシップ$日付、 "％のM /％D /％Y"）
STARTDATE <-as.Date（ "2014年10月2日"）
ENDDATE <-as.Date（「2014から10 -25" ）
NEWDATA <-leadership [（リーダーシップ$日付> = STARTDATE＆リーダーシップ$日付<=終了日）、]; NEWDATA
＃4-10-4サブセット（）####
NEWDATA <-subset（リーダーシップ、年齢> 30＆性別== "M"、
セレクト= Cの（Q1、Q2、Q3、Q4））
newdata6 <-subset（リーダーシップ、年齢> 30＆年齢<50、セレクト= Cの（Q1：Q5））; newdata6
newdata7 <-subset（リーダーシップ、年齢> 50 |年齢<30、セレクト=性別：Q1）; newdata7
MYSAMPLE <-leadership [サンプル（1：8、サイズ= 3、= TRUEを置き換える）]; MYSAMPLEは、ランダム列を#samples
patientID <-C（1,2- 、3,4）
年齢<-c（25,34,28,52）「、 "悪い"の向上"、 "エクセレント"、"悪い）
状態<-factor（ステータス、オーダー= TRUE）＃
糖尿病<-c（」TYPE1" 、 "TYPE2"、 "TYPE1"、 "TYPE1"）
ステータス<-c（ "悪い"、 "改善"、 "エクセレント"、 "悪い"）
糖尿病<-factor（糖尿病）
クラス（ステータス）
LS（patientdata）
patientdata <-data.frame（patientID、年齢、糖尿病、ステータス）
MYSAMPLE <-patientdata [サンプル（1：NcoI部位（patientdata）、サイズ= 3、FALSE =置き換える）]; MYSAMPLE
nrow（リーダーシップ）
#chapter 3 ####
アタッチ（mtcars）
プロット（WT、MPG）
abline（LM （MPGは〜重量））ベストフィットのライン#adds
タイトル（ "重量上のmpgの回帰"）
（mtcars）切り離し
PDF（ "mygraph.pdf"）
添付（mtcars）
プロット（重量、MPG）
abline（LM（MPG 〜重量））ベストフィットのライン#adds
タイトル（「重量上のmpgの回帰」）
デタッチ（mtcars）
dev.off（）