#工作空間操作
setwd('F:/1software/R/R dir')? #修改當(dāng)前工作目錄
dir.create()? #創(chuàng)建新目錄
getwd() #顯示當(dāng)前工作目錄
rm() #移除一個(gè)或多個(gè)對(duì)象
ls()? #查看當(dāng)前工作空間中的所有對(duì)象
options() #顯示或設(shè)置當(dāng)前選項(xiàng)
history()
save.image("myfile") #保存工作空間到文件myfile中（包括向量）鱼响，默認(rèn)為.RData
load("myfile")? #讀取一個(gè)工作空間到當(dāng)前對(duì)話，默認(rèn)為.RData
q()
#創(chuàng)建變量（一般由字母、點(diǎn)瘩蚪、下劃線身坐、數(shù)字組成剩盒，以字母或點(diǎn)開(kāi)頭）纵竖；print()是輸出函數(shù)肩杈，函數(shù)記得加括號(hào)
myString <- "Hello, World!"
print ( myString )
#創(chuàng)建向量
x<-c(1:10);x
#創(chuàng)建矩陣
y<- matrix(c(1:20),4,5);y
#字符串一定加引號(hào)墓造，向量創(chuàng)建的是同類型的
x1<-c(1,2,"one","two");x1
#[1] "1"? "2"? "one" "two"
#[1] "myString" "x"? ? ? ? "x1"? ? ? "y"? ?
#一個(gè)等號(hào)是賦值堪伍，兩個(gè)等號(hào)是“相等;變量使用前要賦值
a=5;b=3;a==b
#[1] FALSE
#查看安裝包位置
#運(yùn)算優(yōu)先級(jí)：常用；使用括號(hào)（括號(hào)最大）
#heatmap（）熱圖函數(shù)
heatmap(y)
#幫助命令
help.start() #打開(kāi)help窗口
help('option')? #具體的指令
?ls()? ? #?[具體的幫助]
# 安裝包
install.packages('gglog2')
update.packages()
library(ggplot2) #包的載入（一次對(duì)話載入一次就可以）
remove.packages("ggplot2")? #包的卸載
installed.packages()
.libPaths()
#若安裝不成功觅闽，在配置文件Rprofile中添加鏡像下載鏈接）
# 獲取數(shù)據(jù)：1鍵盤輸入帝雇；2 讀取儲(chǔ)存在外部文件的數(shù)據(jù)；3.通過(guò)訪問(wèn)數(shù)據(jù)庫(kù)
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可視化填寫數(shù)據(jù)
data2<-data.frame(patientid=character(0),age=numeric(0),diabetes=character(),status=character())
data2<-edit(data2) #一定要事先創(chuàng)建變量蛉拙，然后再用edit編輯賦值尸闸；linux中使用vim打開(kāi)
fix(data2) #添加數(shù)據(jù)
##3.通過(guò)訪問(wèn)數(shù)據(jù)庫(kù)
install.packages('RODBC')
example(Arthritis)? #運(yùn)行數(shù)據(jù)集自帶的例子
# 讀入文件
read.table("input.txt",sep="",stringsAsFactors = FALSE)? #默認(rèn)分隔符為空格
readLines() #以行讀入文件,讀入字符串
read.csv()? #默認(rèn)分隔符為逗號(hào)
#read.table()還可以讀取網(wǎng)頁(yè)數(shù)據(jù)，將網(wǎng)址放在file位置
install.packages("XML")
library(XML) #導(dǎo)入XML
?readHTMLTable
readClipboard()? #讀取剪切板上文件
scan() #復(fù)雜文件的讀入
help(package="foreign")?
# 寫入文件
?write.table()
?write.csv
#將控制臺(tái)輸出寫入文件
?cat() #注意是覆蓋輸出孕锄，若是追加吮廉，則append=TRUE
sink("/Users/runoob/runoob-test/r_test.txt", split=TRUE) #文件寫入，控制臺(tái)也顯示
install.packages("openxlsx")? #該包可以直接讀取xlsx文件
library(openxlsx)
b<-read.xlsx("C:/Users/Desktop/Q1.xlsx",sheet = 1)
#多行備注
if(FALSE){
? "這是一個(gè)多行備注畸肆，
? 注釋文字放在雙引號(hào)或單引號(hào)之間
? "
}
