R语言笔记2

<13: Simulation>

> sample(1:6,4,replace=TRUE)

[1] 4 5 2 6

在1-6的整数中随机生成4个整数,且数字可以重复,即每个数字均可重复选择;

>sample(LETTERS)

随机生成26个英文字母

>sample(c(0,1),100,replace = TRUE,prob = c(0.3,0.7))

> rbinom(1,size = 100,prob = 0.7)

[1] 72

>rbinom(100,1,0.7)

> rnorm(10)

生成符合正态分布的10个数,平均数为0,标准差为1

> rnorm(10,mean = 100,sd=25)

生成符合正态分布的10个数,平均数为100,标准差为25

> rpois(5,10)

[1]  5  8  9 11  9

>my_pois <- replicate(100,rpois(5,10))

>cm <- colMeans(my_pois)

各列的平均数

> hist(cm)

显示直方图

<14: Dates and Times>

Sys.Date():显示当前日期,"Date"类型

"2017-07-24"

d2 <- as.Date("1969-01-01"):早于1970-01-01的日期使用as.Date()函数存储;

Sys.time():显示当前系统时间,为"POSIXct" "POSIXt" 类型

"2017-07-24 15:55:49 CST"

as.POSIXlt(Sys.time()):转为化POSIlt类型

weekdays():返回星期几

months():返回月份

quarters():返回季度

strptime(t3,"%B %d, %Y %H:%M"):日期格式化函数

difftime(Sys.time(),t1,units = 'days'):计算时间差,并以'days'为单位显示
 
  <15: Base Graphics >

plot(x=cars$speed,y=cars$dist,xlab = "Speed",ylab = "Stopping Distance",main = "My Plot", sub="My Plot Subtitle")