1_R基本语法

#R语言入门常用语法#
#包的声明：library（***）

R语言三种数据结构
	Array数组 
	List
	DataFrame

R中变量的操作
	rm()	#里面填变量名，删除变量
	ls()	#列出所有的变量，不填东西

数值型向量赋值:
	x <- 1      	#x==1
	y <- c(1,2,3)	#行向量直接赋值，加c;	y==[1 2 3]
	y <- c(1:3)	#':'步进为1，和上面的相同	y==[1 2 3]
	z <- rep(y,times=3)	#将y赋值给z，次数为3	z==[1 2 3 1 2 3 1 2 3]
	i <- rep(y,time=2,length.out=5,each=2)	#y赋值给i，y重复两次，每个元素重复两次，i总长不超过5	i=[1 1 2 2 3]
	i <- rep(y,2,5,2)	#简写，与上面的相同。i=[1 1 2 2 3]
	j <- rep(y,times=c(1,2,3))	#times对应每一个元素进行循环	j=[1 2 2 3 3 3]
	h <- seq(from =160,to = 181,by =3)	#生成等差数列

数值型向量计算，求值，排列：
	3+2	#[1]5
	3-2	#[1]1
	3*2 #[1]6
	3/2 #[1]1.5
	3^2	#[1] 9
	3%%2#[1] 1  #取余
	1:5 * 1:5	#[1] 1 4 9 16 25	# 行向量，对应元素乘对应元素
	1:6 * 1:2	#[1] 1 4 3 8 5 12	# 1:6是1:2的倍数，1:2扩展成[1 2 1 2 1 2];如果不是倍数，会报错
	1:2 * 1:6	#[1] 1 4 3 8 5 12	# 扩展，同上
	1:2 + 1:6	#[1] 2 4 4 6 6 8 	# 扩展，同上
	1:2 - 1:6	#[1]  0  0 -2 -2 -4 -4	# 扩展，同上
	exp(4)	#[1] 54.59815 计算自然对数 exp(x)=e^x
	sqrt(4)	#[1] 2	#平方根
	sin() cos() tan()	#角度
	max() min()	#向量取大取小	max(1:5*1:5)==[1] 25
	range(1:5 * 1:5)	#[1]  1 25	取最大最小
	unique()	#删除重复元素，只留一个
	mean()	median()#平均数 中位数
	sum() prod()	#向量中的值求和 求积
	cumsum()	#求积累和 cumsum(1:4)==[1]  1  3  6 10 不能在括号里赋值 比如cumsum(1,8,5)报错
	cumprod()	#求累积（从左向右）乘积
	cummax() cummin()	#求累积最大最小值（从左向右）
	pmax(x,y) pmin(x,y)	#求向量x和y在相应位置的元素的最大者、最小值
	var() sd()	#方差（用n-1做分母）标准差(均方差)
	rev() sort()	#取逆序 元素升序排列
	length()	#判断长度
	which.max() which.min()	#求最大最小值的下标

R语言定义函数

		myfunction <- function(arg1, arg2, ... ){
		statements
		return(object)
		}
	
索引及逻辑：
	x <- 1:4  x[2]	#x向量里的第二个元素	位置索引
	x <- 1:4  x[x>2]	#查找符合条件的内容显示 顺序不变

数值型向量处理：
	首先定义： “x <- 1:5” 一个五维行向量
	1.判断是否为数值型向量 is.numeric(x) 
	  其他向量转换为数值型向量： as.numeric()
	  同样判断是否为字符、逻辑的函数： is.character()、is.logical()
	  转化为字符、逻辑的函数： as.character()、as.logical()
	2.修改一个元素 x[3] <- 8
	  增加一个元素为6. x[6] <- 6 如果直接写“ x[8] <- 6 ”那么x的第六和第七个元素自动赋值为“NA”，表示缺失值。
	  删除最后一个元素 x <- x[1:(length(x)-1)]

字符串向量：
	字符串向量写在双引号“中
	赋值：
		paste("水浒传",1:30,"集",sep=" ")	#组合起来 分隔符是sep里的内容
		
		
数组,数据框,列表：		
	1.	数组
			a <- array(data=x,dim=c(3,4))	
				#若x==(1:12)，则获得数组a		
				#	   [,1] [,2] [,3] [,4]
				#[1,]    1    4    7   10
				#[2,]    2    5    8   11
				#[3,]    3    6    9   12
														
			a[2,2]	#5 取数值
			a[2, ]	#[1]  2  5  8 11	取行、列
		
	2.	数据框(类似excel的东西)：
			city <- c('beijing','shanghai','chengdu','shanghai','chengdu')
			age <- c(23,95,6,32,45)
			sex <- c('F',&#