內容

? 循環(huán)-數(shù)組|數(shù)據(jù)框
? 循環(huán)-因子
? 循環(huán)-while| if else
? 數(shù)據(jù)處理-排序|集合|長寬
? 字符操作及其他

心得：

聽曉娟老師的課程，總有一種豁然開朗的感覺，第一天的課程如此，今天亦是如此。
今天下午的學習，了解并初步掌握了lapply、sapply循環(huán)，因子，數(shù)據(jù)處理，while、ifelse循環(huán)，正則表達式等。尤其是正則表達式，感覺一連串字符組合在一起竟然有如此神奇的作用，初步掌握后覺得異常酷炫，突感每天噼里啪啦敲代碼有了點意思。
但，正所謂“師傅領進門，修行靠個人”。對概念的解釋，對函數(shù)的真正理解以及如何實現(xiàn)自己的需求，還需要后期自己消化成自己的語言。接下來的單細胞課程也會非常難，所以還需要保持好心態(tài)，繼續(xù)加油。

正則表達式

概念：

正則表達式(regular expression)描述了一種字符串匹配的模式（pattern），可以用來檢查一個串是否含有某種子串，將匹配的子串替換或者從某個串中取出符合某個條件的子串等。

常用參數(shù)

grep('\\d',a,value = T)###\d表示數(shù)字
grep('\\D',a,value = T)###\D表示非數(shù)字
grep('\\w',a,value = T)###\w表示字母、數(shù)字、下劃線[A-Za-z0-9_]
grep('\\W',a,value = T)###\W表示匹配非字母、數(shù)字、下劃線
grep('\\s',a,value = T)###\s匹配空白字符
grep('\\S',a,value = T)###\S匹配非空白字符

1.用gsub結合正則表達式將pd$title進行操作，實現(xiàn)如下效果

小練習

答案

> rm(list=ls())
> options(stringsAsFactors = F)
> load('pd.Rdata')
> levels(pd$title) <- c(levels(pd$title),'EGF 12h replicate 3')
> pd$title[12] <- 'EGF 12h replicate 3'
> pd$title
 [1] EGF 4h replicate 1              EGF 4h replicate 2             
 [3] EGF 4h replicate 3              Control for EGF 4h replicate 1 
 [5] Control for EGF 4h replicate 2  Control for EGF 4h replicate 3 
 [7] Control for EGF 12h replicate 1 Control for EGF 12h replicate 2
 [9] Control for EGF 12h replicate 3 EGF 12h replicate 1            
[11] EGF 12h replicate 2             EGF 12h replicate 3            
13 Levels: Control for EGF 12h replicate 1 ... EGF 12h replicate 3
> a <- gsub('\\sfor|\\sr\\w+\\s\\d','',pd$title)
> a
 [1] "EGF 4h"          "EGF 4h"          "EGF 4h"          "Control EGF 4h" 
 [5] "Control EGF 4h"  "Control EGF 4h"  "Control EGF 12h" "Control EGF 12h"
 [9] "Control EGF 12h" "EGF 12h"         "EGF 12h"         "EGF 12h"        
> a <- gsub('\\s','_',a)
> a
 [1] "EGF_4h"          "EGF_4h"          "EGF_4h"          "Control_EGF_4h" 
 [5] "Control_EGF_4h"  "Control_EGF_4h"  "Control_EGF_12h" "Control_EGF_12h"
 [9] "Control_EGF_12h" "EGF_12h"         "EGF_12h"         "EGF_12h"       

循環(huán)-數(shù)組|數(shù)據(jù)框

創(chuàng)建數(shù)組

z <- array(1:24, dim = 2:4)###z <- array(1:24, dim = c(2,3,4))
> dim(z)
[1] 2 3 4

apply循環(huán)

> zseq <- apply(z, 1:2, max)
> zseq
     [,1] [,2] [,3]
[1,]   19   21   23
[2,]   20   22   24
> #####so margin其實不止1,2
> d<- apply(z, 3, max)
> d
[1]  6 12 18 24

lapply sapply

lapply(X, FUN, ...)
sapply(X, FUN, ..., simplify = TRUE, USE.NAMES = TRUE)
作用于list，即對list的每一個元素進行操作
list的每一列相當于一個元素

循環(huán)-因子

因子：包括level和基本元素
level：相當于通訊錄中的group_list(親人，朋友，同學)
?無序因子和有序因子-ordered
?用于分組計算
?可直接由label對因子進行更改
?所有factor必須是level中的元素
?因子順序可決定繪圖順序

下載數(shù)據(jù)

> rm(list=ls())
> load('flag.Rdata')###加載要用的數(shù)據(jù)

創(chuàng)建因子

> topleft <- flag$topleft
> set.seed(0709)
####源于向量的因子
> topleft1 <- factor(topleft,ordered = TRUE)
> class(topleft1)
[1] "ordered" "factor" 

查看level

> levels(topleft1)
[1] "black"  "blue"   "gold"   "green"  "orange" "red"    "white" 

在因子中添加元素

必須先在level中添加元素，然后在factor中添加元素，否則會在factor中生成“NA”

正確操作如下：

levels(topleft3)<- c(levels(topleft3),'pink')
topleft3[1] <- 'pink'

刪除冗余的level

先從因子中將元素刪除，然后從level中刪除

> topleft3[1] <- 'black'
> unique(topleft3)
[1] black  red    green  blue   white  orange gold  
Levels: black blue gold green orange red white pink
> topleft3<- droplevels(topleft3)
> levels(topleft3)
[1] "black"  "blue"   "gold"   "green"  "orange" "red"    "white"