Create ui.R

ui for d visualisation