rplot modified