r - 使用 R 中的随机数据生成特定异常值

Question

我正在尝试生成如下图所示的集群异常值，以更深入地调查这种情况。

我试过了，但一无所获，因为该图只有一个因变量和自变量。我想要相同的情况但有多个自变量。 所以，它将是一个因变量和一个矩阵自变量。

我尝试的 R-Code 如下所示

n=50
p=2
x <- matrix(rnorm(n*p),ncol = p)
y <- rnorm(n)
b=quantile(x,probs = 0.95)
id=which(x>b)
no=length(id)
x[id]=rnorm(no,5,0.5)
y[id]=rnorm(1)+10

更新

我试了下面的代码还是和图中的不一样

xa=rnorm(50)
xb=runif(50,min = 0,max=400)
x=rbind(xa,xb)
y=rnorm(100)
plot(x,y)

Answer 1

你可以重现你的情节

set.seed(1)

xa = runif(20,0,20)
xb = runif(5,50,60)
x  = c(xa,xb)

y  = c(runif(20,25,120),runif(5,30,40))

plot(x,y,xlab="Independent variable",ylab="Response variable",xlim=c(0,60),ylim=c(25,120),pch=16)