r语言 如何只画正方形的一半