编程中的小tips

perl 小知识点

1. defined ()

 重点是defined ()函数运用，NICE✌️
需要迭代记录前一个元素值的时候，defined函数很受用

2. 哈希的长度

my $len = keys %hash;   哈希的长度

3. 数组的uniq

my %key;
    my @uniq = grep {++$key{$_}<2}@array;          ##数组进行uniq
    print "@uniq\n";

R 小知识点

1. rowMeans() 和 colMeans()

学习了函数rowMeans() 和 colMeans()
可以直接对矩阵的行和列求均值
出来还是矩阵

2. for 循环

循环读取文件每一行  for（i in 1:dim(All_id)）{}

3. 合并矩阵，cbind（）

必要的时候需要先定义一个空矩阵，一列就好，行号必须和其他矩阵保持一致。eg：mat<- matrix(12328, 1)      #空矩阵
all <-cbin(test, mat)        #合并
all_new <-all[, -1]        #记得将空矩阵的那一列数据删掉

4. 如果read.table（）出错
   可能是每行长度不同，或者是有特殊字符等
   详情看上篇讲解https://www.jianshu.com/p/5b66763c0b3e

方案一：
id <- read.table(File, sep = "\t", skip = 0, header = TRUE,
                        comment.char = "", check.names = FALSE)

方案二：
id <- read.table("my_data.txt",           # Using fill argument
           header = TRUE,
           fill = TRUE)

方案三
id<-read.table("file.txt", sep = "\t", fill = TRUE, 
col.names = paste("V", 1:38, sep = ""))

使用col.names = paste("V", 1:38, sep = "")
一开始，可使用1:100比较大点的，保证最大行中的全部列数据都可以加载进来
然后再根据具体显示进行调整为最大列的那个数值就好啦。

5. paste() 字符串连接

file<-sig_id[i, ]
out<-paste(file, 'dataset', sep=".")
#将file的名字和 字符dataset 用. 进行连接。类似perl的join() 函数