Four graphics done by my own R codes