r语言 siar 代码_R语言实践代码汇总

持续更新一波最近遇到的R语言实践过程中的问题。竖着生成一列data frame并把生产的值传给另一个data frame的一列

ID

label

label1

ID

label

label2

data.label

data.label

x$label = data.label$label

2. 给data frame重新命名

names(x)

3. 生成n个重复的sequence

rep(1, times=40)

4. 生成n个不重复按照步数迭代的sequence

seq(1, n,1) #迭代步数为1

5. 去除plot坐标轴的默认坐标

plot(x, s1,xaxt='n')#去除x做标

6. 给x做标对应位置添加标记

axis(1,at=seq(0.00, 0.28, 0.04),labels=seq(0.00, 0.28, 0.04))

7. 数据框同一乘以10

x$x1 = x$x1*10

8. VIF检测多重共线性

library(car)

vif(model)

说明：

得到各个系数的方差膨胀因子，一般认为，当0=100，多重共线性非常严重。

9. 用函数kappa()检验多重共线性

df

df_cor=cor(df)

kappa(df_cor, exact=T)

说明：

当κ<100κ<100, 说明共线性程度小；

当1