R语言的基础语法及常用命令

R其实对于数据分析来说只是工具而已，所以刚开始不需要学习多么深多么细，只需要能够满足当前需求就行，之后的在实践中慢慢学习。
毕竟想要把R学精并不是容易的事情。正确的做法就是边做边学，不会就google翻文档。
本片主要是R的基础语法及常用的命令操作

赋值

R赋值采用<-或者->或者=，建议采用标准的第一个。
由于R中内置了同名函数c()，最好不要在编码时使用c作为对象名，否则可能产生一些不易察觉的问题

a <- 133
"hello" -> b  # 注意无论哪种写法，大于或小于号都是指向变量名
d = 'This'  # 不建议这么用，有可能会造成问题

a
b
d

133

'hello'

'This'

查看帮助

help(mean)
# 或者
?mean

包的安装和加载

# 获取包含R包的库位置
.libPaths()

# 查看已经安装的包
library()

# 安装包
install.packages("packagename")

# 加载包
library(packagesname)

# 查看已经加载的包
(.packages())

# 卸载加载的包（注意不是删除包）
detach("package:packagename")

# 删除包
remove.packages("packagename")

数据的读取与保存

读取

# 读取csv
data <- read.csv('.\\统计学\\example\\ch1\\table1_1.csv') 
head(data,6)    # 读取前 6行的数据

# 读取 Excel数据
library(xlsx)    #需要安装 xlsx 包
data <- read.xlsx("file",n)    # n 为要导入工作表的序号

# 读取 spss数据
library(foregin) # 已经默认安装
data <- read.spss("file",use.value.labels=TRUE,as.data.frame=TRUE)

# 读取 R格式数据
data <- load('.\\统计学\\example\\ch1\\example1_1.RData')

保存

# 保存 R格式数据
save(data,file = '.\\...\\name.Rdata')

# 保存 csv格式数据
write.csv(data,file = '.\\...\\name.csv')

# 保存 xlsx格式
library(xlsx)
write.xlsx(data, "data.xlsx",sheet.name="sheet1")

if条件语句

if语句

x <- 30L  # R语言中，在正整数后加 L来表示整型数据（正整数）
if(is.integer(x)) {
   print("X is an Integer")
}

[1] "X is an Integer"

if…else语句

y <- list('a', 'v', 'd')
if('a' %in% y){    # %in% 运算符 检查元素是否在向量中
    print('a is in list')
}else{      # 注意这里的 else语句并不在if的花括号当中
    print('a is not in list')

}

[1] "a is in list"

x <- c("what","is","truth")

if("Truth" %in% x) {
   print("Truth is found the first time")
} else if ("truth" %in% x) {
   print("truth is found the second time")
} else {
   print("No truth found")
}

[1] "truth is found the second time"

switch语句

# 创建一个函数，输入的值和选择的函数类型来输出结果。
centre <- function(x, type) {

switch(type,

       mean = mean(x),

       median = median(x),

       trimmed = mean(x, trim = .1))

 }
centre(c(1,2,4,5),'mean')

3

循环语句

while循环

ant <- 2
while(ant<5){
    print('hello')
    ant = ant + 1
}

[1] "hello"
[1] "hello"
[1] "hello"

for循环

v <- LETTERS[1:4]  # LETTERS为26个大写字母向量。

for(i in v){
    print(i)
}

[1] "A"
[1] "B"
[1] "C"
[1] "D"

repeat循环

i <- 1
sum <- 0
repeat
{
   sum = sum + i
   if( i >= 100)   #如果已循环加到了100，则使用break跳出repeat循环
       break
   i <- i + 1
}
print(sum)

[1] 5050

next语句

R语言存在next语句，当我们想跳过循环的当前迭代而不终止它时便可使用next。 遇到next时，R解析器跳过本次迭代，并开始循环的下一次迭代。

k <- LETTERS[1:6]
for ( i in k) {
   if (i == "D") {
      next
   }
   print(i)
}

[1] "A"
[1] "B"
[1] "C"
[1] "E"
[1] "F"

R常用的常量

# 26个大写字母
LETTERS

# 26个小写字母
letters

# 月份简写
month.abb

# 月份名称
month.name

# π 值
pi

'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V' 'W' 'X' 'Y' 'Z'
'a' 'b' 'c' 'd' 'e' 'f' 'g' 'h' 'i' 'j' 'k' 'l' 'm' 'n' 'o' 'p' 'q' 'r' 's' 't' 'u' 'v' 'w' 'x' 'y' 'z'
'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'
'January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December'
3.14159265358979