一，列表详解
创建一个列表
> 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
