add some R chart