new dow plotting with R