> which.max(apply(x[c("x1","x2","x3")], 1, sum))
49

> x$num[which.max(apply(x[c("x1","x2","x3")], 1, sum))]
[1] 2005138149

> hist(x$x1)

> plot(x$x1,x$x2)

> table(x$x1)

80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100
2 3 4 3 8 3 6 6 6 7 4 6 4 8 8 3 5 6 6 2

> barplot(table(x$x1))

> pie(table(x$x2))

> boxplot(x$x1, x$x2, x$x3)

> boxplot(x[2:4], col=c("red", "blue", "green"), notch=T)

> stars(x[c("x1","x2","x3")])

> stars(x[c("x1","x2","x3")],full=T, draw.segment=T)

> faces(x[c("x1","x2","x3")])

> stem(x$x1)

The decimal point is at the |

80 | 00000
82 | 0000000
84 | 00000000000
86 | 000000000000
88 | 0000000000000
90 | 0000000000
92 | 000000000000
94 | 00000000
96 | 00000000
98 | 000000000000
100 | 00

> stem(x$x2, scale = 1, width = 80, atom = 1e-08)

The decimal point is 1 digit(s) to the right of the |

6 | 23
6 | 7788889
7 | 00001222333444444
7 | 55666677777788888999
8 | 0000000000111122233333344444
8 | 5566666677778999
9 | 001112234
9 | 5

> stem(x$x3, scale = 1, width = 80, atom = 1e-08)

The decimal point is 1 digit(s) to the right of the |

3 | 9
4 |
5 | 0022346788
6 | 1112233344555667789
7 | 022223344444555667889
8 | 0122333444455677999
9 | 000112223345666777889
10 | 000000000

> qqnorm(x1)
> qqline(x1)

> qqnorm(x2)

> qqline(x2)