add vizualization with R