R语言随笔

生成随机数

生成随机小数

x1 = runif(10, 5.0, 7.5) 

生成随机整数

x1 = runif(10, 5.0, 7.5) 
x1 = ceiling(x1)  # 向下取整

各种分布的随机数生存函数

rnorm(n,mean=0, sd=1)   # 正态分布
rexp(n, rate=1)   # 指数
rgamma(n, shape, rate=1, scale=1/rate)   # r 分布
rpois(n, lambda)   # 泊松
rt(n, df, ncp)   # t 分布
rf(n, df1, df2, ncp)   # f 分布
rchisq(n, df, ncp=0)   # 卡方分布
rbinom(n, size, prob)   # 二项分布
rweibull(n, shape, scale=1)   # weibull 分布
rbata(n, shape1, shape2)   # bata 分布

抽样模拟

x1 <- sample(1:10, 1)  # 无放回
x2 <- sample(1:10, 5, replace=T)  # 有放回，让place默认为F

将数据乱序

a=c("Delaware","Vermont","Rhode Island","Tennessee","Arizona","Mississippi","Virginia","Alaska","Georgia","Louisiana")
a = sample(a,length(a))

随机数种子

set.seed(1234)  # 设置随机数种子
rm(.Random.seed)  # 删除随机数种子

读取xlsx文件制作热图

• data = read.xlsx(“birth.xlsx”, sheet = 1)
• draw_data <- as.matrix(data[,-1])
• heatmap(draw_data)

pdf导入到excel表

library(pdftools)
txt <- pdf_text("2017全国各地高考人数a.pdf")
# (txt[1])
data_6 <- txt[1]
tmp_1 <- strsplit(data_6,"\r\n")[[1]]
tmp_2 <- as.data.frame(strsplit(tmp_1,"( +)",fixed=F,perl=T),header=F)
tmp_3 <- t(tmp_2)
row.names(tmp_3) <- seq(1:33)
tmp_3

R语言打开Excel乱码

换成openxlsx打开就好啦嘿嘿，奥利给兄弟萌！！！