revised r plots