mulangege
搜了一下,levels=c(0.8,0.9,0.95,0.99)即可
效果:
x1 <-
c(
0.879481089019167,
0.160694352632001 ,
0.164129570132112,
0.16041594142251,
0.116155433983363 ,
0.1561742054152,
10.5310199894012,
0.430014114842725,
0.150131269174832,
0.194457516883272,
0.144177127343796,
0.183494711075649 ,
0.353689854350685,
0.10829150307271,
0.342095727390637,
0.11943212962979,
0.349377585112328 ,
0.374783403299427,
0.535553266867071,
0.430615170257246
)
x2 <-
c(
0.133311618541059,
0.134818432251679,
0.158350453049079,
0.223612502811835,
0.14621381146844,
0.105389791188953,
0.117439991844861,
0.102255174922605,
0.104726037517517,
0.216199232210462,
0.121684989663224,
0.139351637619087,
0.13459898712572,
0.118490167684567,
0.153293118973695,
0.107113365526364,
0.14930250226715,
0.140202194969812,
0.100197208015189,
0.105495569968288
)
library(car)
#> Loading required package: carData
dataEllipse(
x1,
x2,
levels=c(0.8,0.9,0.95,0.99),
xlim = c(-10, 12),
ylim = c(0, 0.3)
)
<sup>Created on 2018-10-05 by the reprex package (v0.2.1)</sup>