R trama de datos ordenada por una columna

escenarios de uso: valor generado aleatoriamente como se, por lo que ninguna secuencia x distinción (el trazado de la figura 1), de manera a utilizar para ordenar los datos re-mapping (mapeo Figura II)
x <-rnorm (n-, 0 ,. 5)
E <-rnorm (n-, 0, 0,01)
Y <-10 0,8 + X. 3 + x ^ 2 + 0,1 X ^ + E. 3
Y1 <-11,7 + 0.538 X + 2,93 * X ^{2 * X + 0,097} . 3
DATOS2 <-data.frame (X, Y1)
DATA3 <-DATA2 [Sort (DATOS2 $x, index.return = TRUE)$ ix,]
plot (x, y)
#lines (x, y1)
líneas (Data3 $x, Data3$ Y1, COL = '# fe8463', LWD = 2)
Figura 1:
Figura 2: