plotX.R cleaned