setwd("/Users/alexandrashaw/Documents/R")
getwd()
x1 <- c(171,175,159,155,152,158,154,164,168,166,159,164)
x2 <- c(57,64,41,38,35,44,41,51,57,49,47,46)
rbind(x1,x2)#row combine按行合併
cbind(x1,x2)#col combine按列合併
matrix(x1,nrow=3,ncol=4)
matrix(x1,nrow=4,ncol=3)

A=B=matrix(1:12,nrow=3,ncol=4);A+B
A=B=matrix(1:9,nrow=3,ncol=3);A*B#元素相乘
A%*%B #矩陣相乘
A=matrix(1:16,nrow=4,ncol=4)
diag(A)#獲得對角線元素
diag(diag(A))#形成對角陣
A=matrix(rnorm(16),4,4);solve(A)#矩陣求逆
A=matrix(1:12,3,4);dim(A)#多少行多少列，看維數
nrow(A)#矩陣行數
ncol(A)#矩陣列數
rowSums(A)#矩陣按行求和
rowMeans(A)#矩陣按行求均值
colSums(A)#矩陣按列求和
colMeans(A)#矩陣按列求均值

apply(A,1,sum)#矩陣按行求和
apply(A,1,mean)#矩陣按行求均值
###行是1，列是2
A=matrix(rnorm(100),20,5);apply(A,2,var)
B=matrix(1:12,3,4);apply(B,2,function(x,a)x*a,a=2)

X=data.frame(x1,x2);X#產生由x1和x2構建的資料框
X=data.frame('身高'=x1,'體重'=x2);X#賦予資料框新的列標籤

#dat = read.table("clipboard",header=TRUE)第一行是變數名用TRUE
#dat = read.table("xxx.txt",header=TRUE)
#dat = read.csv("xxx.csv")

d2.1= read.table("clipboard",header=F)
hist(x1)#直方圖
plot(x1,x2)#散點圖
 

前面都是些請客吃飯型基礎知識，很基礎，但是對實際分析幾乎沒卵用。

**dat=read.csv("datachapter2.csv",header=T,fileEncoding = "UTF-8")**

目前為止使用頻率最高的一條程式碼，讀取csv格式的資料。

head(dat)#顯示前六組資料但為什麼後面都是NA
attach(dat)####資料繫結（綁完了要記得解綁 見後面）
table(年齡)#一維的頻數表
barplot(table(年齡),col=1:7)
barplot(table(年齡),col=1:6)

os系統真是orz了，總是要跪著找很多問題的解決方法

**par(family='STKaiti') #############不出中文的解決方案之一**
 

解決了的問題就是不重要的問題，接著往下。

pie(table(結果))#餅圖

barplot(table(年齡,性別),beside=T,col=1:7)#七個一組

barplot(table(性別,年齡),beside=T,col=1:2)#兩個一組

ftable(年齡,性別,結果)

detach(dat)#########資料解綁！！！！