白萝卜de学习笔记

基本按键&基础知识
???Ctrl+L 清空命令窗口（全清）
???Ctrl+S 存盘
???Ctrl+enter 笔记显示
???Ctrl enter  在左上角显示R语言的自带数据
???objeck()或ls()查看当前变量
???rm()删除变量
???Ctrl +/- 加大/减小字号
???dev.new() 新开一个窗口
???assign("g", c(10.4, 5.6, 3.1, 6.4, 21.7))起名
???plot.new 新开一个画图窗口，扫空右下角窗口
???e+06   10的6次方   1.37e+06 1.37乘以10的6次方

???

data的处理
???data("iris")#加载iris数据    as.data.frame()
???setwd(' \\   \\   ') 打开文件  or /
  ???install.packages('e1071')
???read.csv("snsdata.csv")
read.csv(file='airquality.csv',header = T)
read.table('usedcars.csv',header=T,sep=',')
read.table(file = 'HW.txt',header = T,sep=' ')
read.table('mushrooms.csv',header=T,sep=',')
read_xlsx("temp_1.xlsx")
scan(file = 'wine178.csv',sep=',',skip=1)#向下一行再读，第一行不
???write.table(temp_1,file='D:\\Ryuyan\\temp_1.txt')
write.csv(temp_1,file='D:\\Ryuyan\\temp_1.csv')
write.table(iris_sub,file = 'iris_sub.txt',row.names = F)
write.csv(fruit, file = "fruit.csv", 
          row.names = F, 把列名去掉
          quote = F,
          sep:??字段分隔符字符串
          na = "")去掉NA
如果表没有列，则仅在row.names = TRUE时才写入行名称，反之亦然。保存数据为文件的函数
???save(iris_sub,file = 'iris_sub.Rdata')
save(list = ls(all=TRUE),file="D:\\Ryuyan\\.Rdata")#把environment里所有变量存到盘上
???
???判断数据类型
is.numeric() ?? 是否数值型数据
is.character() ????是否字符型数据
is.vector() ????是否向量数据
is.matrix() ????是否矩阵数据
is.data.frame() ????是否数据框数据
is.factor() ?? ??是否因子数据
is.logical() ????是否逻辑型数据
以上为判断数据类型的函数，其返回TRUE或FALSE
???转换数据类型  as.
???factor()#生成因子
???mode(a) 数据类型
cat()   paste()
a<-c(1,2,3,4)
b<-c(4,5,6,7)
c<-c('hi','hello')
paste(a,b,c)
cat(a,b,c)
> paste(a,b,c)
[1] "1 4 hi" ?? ??"2 5 hello" "3 6 hi" ?? ??"4 7 hello"
> cat(a,b,c)
1 2 3 4 4 5 6 7 hi hello
???

???

数组
???取元素
q<-c(x,x,1,2,3)
q[3]第三个
q[2:10] 第2到第十个元素
e<-c(d[1],d[7]) 取第一个和第七个元素组成子数组
???z<-2*1:15
???n<-20
a<-(n-1):1
???mean(c(2,4,NA,6,8),na.rm = T)
???seq(2,10)  #产生2:10的数据
seq(-10,10,by=0.1)  #以0.1为间隔，-10到10的数
x<-seq(length=51,from = -1,by=.2) #个数， 起始点，间隔
???x<-c(1,2,3,4,5)
y<-rep(x,time=5) #循环重复5遍
y<-rep(x,each=5)  #每个重复5遍
c("x","y")[rep(c(1,2,2,1), times=4)]
???labs<-paste(c("x","y"),1:10)  #粘合
labs<-paste(c("x","y"),1:10，sep='+')  #x+1,y+2......
paste(1:12,c("a","b",rep("c"),10))
#[1] "x" "y" "y" "x" "x" "y" "y" "x" "x" "y"
#[11] "y" "x" "x" "y" "y" "x"
???x[-(1:5)]  #前一到五个不要
???a<-gl(2,5)
[1] 1 1 1 1 1 2 2 2 2 2
Levels: 1 2
???gl(2,6,labels = c("Male","Female"))
[1] Male   Male   Male   Male   Male   Male   Female
[8] Female Female Female Female Female
???Mode
mode中将integer和double显示为numeric
mode是指变量的类型如：数值型、字符型、逻辑型等
???Class
class是指变量的类别如：矩阵、列表、数据框等
???Typeof
typeof是对变量类型的细分
???scores<-scan() #输入数字
???cut(scores,breaks = c(0,59,70,85,100))#显示所在区间
???sexes<-sample(c('M','F'),length(scores),replace = T)#有放回随机变量)
sample(85:100,39,replace=T)
???a<-numeric()
a[3]<-7
a[5:8]<-c(6,7,10,-2)
???length(a)<-5 #去掉a中第五个元素
???x<-cbind(a=1:3, pi=pi)#col合并
???options(digits = 5)#改变小数点后的位数
???b1<-lapply(iris[,1:4],mean)
> b1[[1]]#看b的第一个位置
[1] 5.843333
> b1[1]
$Sepal.Length
[1] 5.843333
???which(iris$Sepal.Length<5 & iris$Species=='virginica')
???xx<-c(1:100,100:1)
yy<-rev(cumsum(xx))