plot issue with median

# R 2.3.1

I have:

median(x, na.rm = FALSE)
[1] 179
median(y, na.rm = FALSE)
[1] 165

for

x y x-y
195 146 49
145 155 -10
205 178 27
159 146 13
244 208 36
166 147 19
250 202 48
236 215 21
192 184 8
224 208 16
238 206 32
197 169 28
169 182 -13
158 127 31
151 149 2
197 178 19
180 161 19
222 187 35
168 176 -8
168 145 23
167 154 13
161 153 8
178 137 41
137 125 12

How do you generate plots for the values below median and for the
values above median?

thx much

.