#工作空间操作
setwd('F:/1software/R/R dir') #修改当前工作目录
dir.create() #创建新目录
getwd() #显示当前工作目录
rm() #移除一个或多个对象
ls() #查看当前工作空间中的所有对象
options() #显示或设置当前选项
history()
save.image("myfile") #保存工作空间到文件myfile中（包括向量），默认为.RData
load("myfile") #读取一个工作空间到当前对话，默认为.RData
q()
#创建变量（一般由字母、点、下划线、数字组成，以字母或点开头）；print()是输出函数，函数记得加括号
myString <- "Hello, World!"
print ( myString )
#创建向量
x<-c(1:10);x
#创建矩阵
y<- matrix(c(1:20),4,5);y
#字符串一定加引号，向量创建的是同类型的
x1<-c(1,2,"one","two");x1
#[1] "1" "2" "one" "two"
#[1] "myString" "x" "x1" "y"
#一个等号是赋值，两个等号是“相等;变量使用前要赋值
a=5;b=3;a==b
#[1] FALSE
#查看安装包位置
#运算优先级：常用；使用括号（括号最大）
#heatmap（）热图函数
heatmap(y)
#帮助命令
help.start() #打开help窗口
help('option') #具体的指令
?ls() #?[具体的帮助]
# 安装包
install.packages('gglog2')
update.packages()
library(ggplot2) #包的载入（一次对话载入一次就可以）
remove.packages("ggplot2") #包的卸载
installed.packages()
.libPaths()
#若安装不成功，在配置文件Rprofile中添加镜像下载链接）
# 获取数据：1键盘输入；2 读取储存在外部文件的数据；3.通过访问数据库
patientid<-c(1,2,3,4)
age<-c(25,34,28,52)
diabetes<-c('Type1','Type2','Type3','Type4')
status<-c('Poor','improved','excellent','poor')
data<- data.frame(patientid,age,diabetes,status)
data
#使用edit和fix可视化填写数据
data2<-data.frame(patientid=character(0),age=numeric(0),diabetes=character(),status=character())
data2<-edit(data2) #一定要事先创建变量，然后再用edit编辑赋值；linux中使用vim打开
fix(data2) #添加数据
##3.通过访问数据库
install.packages('RODBC')
example(Arthritis) #运行数据集自带的例子
# 读入文件
read.table("input.txt",sep="",stringsAsFactors = FALSE) #默认分隔符为空格
readLines() #以行读入文件,读入字符串
read.csv() #默认分隔符为逗号
#read.table()还可以读取网页数据，将网址放在file位置
install.packages("XML")
library(XML) #导入XML
?readHTMLTable
readClipboard() #读取剪切板上文件
scan() #复杂文件的读入
help(package="foreign")
# 写入文件
?write.table()
?write.csv
#将控制台输出写入文件
?cat() #注意是覆盖输出，若是追加，则append=TRUE
sink("/Users/runoob/runoob-test/r_test.txt", split=TRUE) #文件写入，控制台也显示
install.packages("openxlsx") #该包可以直接读取xlsx文件
library(openxlsx)
b<-read.xlsx("C:/Users/Desktop/Q1.xlsx",sheet = 1)
#多行备注
if(FALSE){
"这是一个多行备注，
注释文字放在双引号或单引号之间
"
}
