R语言详解二

一，列表详解

创建一个列表

> myList<-list(id=2,name="张三",age=20)
> myList
$id
[1] 2
 
$name
[1] "张三"
 
$age
[1] 20

获取第一个元素

> myList[[2]]
[1] "张三"

获取第一个子列表

> myList[2]
$name
[1] "张三"

使用$

> myList$name
[1] "张三"

获取列表每一个子列表的名称

> names(myList)
[1] "id"   "name" "age" 

修改列表子列表的名称

> names(myList)<-c("myId","myName","myAge")
 
> myList
$myId
[1] 2
 
$myName
[1] "张三"
 
$myAge
[1] 20

添加元素

> myList$address <- "淄博市"
> myList
$myId
[1] 2
 
$myName
[1] "张三"
 
$myAge
[1] 20
 
$address
[1] "淄博市"

获取列表的长度

> length(myList)
[1] 4

删除元素

> myList<-myList[-4]
> myList
$myId
[1] 2
 
$myName
[1] "张三"
 
$myAge
[1] 20

拼接列表

> other<-list(name="李白",age=20)
> other
$name
[1] "李白"
 
$age
[1] 20
 
 
> list<-c(myList,other)
> list
$myId
[1] 2
 
$myName
[1] "张三"
 
$myAge
[1] 20
 
$name
[1] "李白"
 
$age
[1] 20

转换为向量

> unlist(list)
  myId myName  myAge   name    age 
   "2" "张三"   "20" "李白"   "20" 

二，R的数据的导入方法

 2.1从键盘导入数据

> mydata<-data.frame(age=numeric(0),name=character(0),address =character(0))
> mydata<-edit(mydata)

> mydata
  age name address
1  20 袁震    淄博

> fix(mydata)
> mydata
  age  name address
1  20  袁震    淄博
2  30 袁震1    淄博

2.2 文本文件导入

> data<- read.table("D:/shuju/yinzi/25Statistics/data/design1.txt",header=T)
> data
   SampleID BarcodeSequence LinkerPrimerSequence      ReversePrimer group genotype    site Description
1       KO1      ACGCTCGACA  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     A       KO Beijing   BeijingKO
2       KO2      ATCAGACACG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     A       KO Beijing   BeijingKO
3       KO3      ATATCGCGAG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     A       KO   Sanya     SanyaKO
4       KO4      CACGAGACAG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     A       KO   Sanya     SanyaKO
5       KO5      CTCGCGTGTC  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     A       KO  Harbin    HarbinKO
6       KO6      TAGTATCAGC  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     A       KO  Harbin    HarbinKO
7       OE1      TCTCTATGCG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     B       OE Beijing   BeijingOE
8       OE2      TACTGAGCTA  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     B       OE Beijing   BeijingOE
9       OE3      CATAGTAGTG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     B       OE   Sanya     SanyaOE
10      OE4      CGAGAGATAC  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     B       OE   Sanya     SanyaOE
11      OE5      ATACGACGTA  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     B       OE  Harbin    HarbinOE
12      OE6      TCACGTACTA  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     B       OE  Harbin    HarbinOE
13      WT1      CGTCTAGTAC  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     C       WT Beijing   BeijingWT
14      WT2      TCTACGTAGC  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     C       WT Beijing   BeijingWT
15      WT3      CACGCGAGTC  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     C       WT   Sanya     SanyaWT
16      WT4      ACGACTACAG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     C       WT   Sanya     SanyaWT
17      WT5      CGTAGACTAG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     C       WT  Harbin    HarbinWT
18      WT6      TACGAGTATG  AACMGGATTAGATACCCKG ACGTCATCCCCACCTTCC     C       WT  Harbin    HarbinWT

 注意：需要转换为ANSI编码

2.3 xlsx文件导入

> data1<-read.table("D:/shuju/1112.csv")
> data1
                                                                                                                                                                                                                                                                                    V1
1                                                                                                             事件,操作,床头分机,床旁分机,医护主机,门口分机,值班室分机,走廊显示屏,卫生间分机,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2                                                                                                卫生间分机（卫生间接在门口机上）--i系列房间统一后缀为“室”不可修改，安卓可以修改后缀,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
3                                                               卫生间分机呼叫,卫生间分机发起呼叫,本房间床头的门灯闪卫生间的颜色,本房间床旁的门灯闪卫生间的颜色,"1、收到卫生间呼叫请求，显示SOS列表（SOS数量无限制，列表显示不开时可滑动查看，未处理列表顺序按照分机呼叫时间正序排序）
4                                                                                                                                                                          2、免提语音报号（根据设置的播报内容、播报次数进行播报，列表循环播报）","跨终端配置-关闭门口机清除呼叫开关：
5                                                                                                                                                                                                                                                      终端--门口分机--设置为非广播机:
6                                                                                                                                                                                                              1、收到卫生间呼叫请求，本科室本房间的门口机，灯光亮设置的卫生间呼叫颜色
7                                                                                                                                                                                                                                                    2、本科室其他房间门口机不接收呼叫
8                                                                                                                                                                                                                                                  跨终端配置-关闭门口机清除呼叫开关：

注意，遇到编码错误，需要转为UTF-8

三，自定义函数

自定义函数的格式：

myfunction<-function(arg1,arg2,...){
  函数体
  return(object)
}

switch 

 
 
> myDate<-function(type){
+   switch(type,
+          long =format(Sys.time(),"%A %B %d %Y"),
+          short=format(Sys.time(),"%m-%d-%y"),
+          cat(type,"没有这个类型")
+          )
+ }
 
> myDate("long")
[1] "星期三 四月 24 2024"
> myDate("short")
[1] "04-24-24"
> myDate("dd")
dd 没有这个类型

for循环

sum<-function(num){
  x<-0
  for(i in 1:num ){
    x<-x+i
  }
  return(x)
}
sum(3)
[1] 6