R光栅图像失真

Question

我试图创建一个包含栅格和多边形shapefile的地图。因为我还想添加一个使用Room.query.join(Room.users_id).order_by(User.has_payed) 命令的图例。但是，我发现绘制栅格会覆盖class User(UserMixin, Base): __tablename__ = 'users' id = Column(Integer, primary_key=True) username = Column(Text, nullable=False, unique=True) password = Column(Text, nullable=False) has_payed = Column(Boolean, default=False) vorname = Column(Text, nullable=True) nachname = Column(Text, nullable=True) email_verified = Column(Boolean, default=False) handynummer = Column(Text, nullable=True) email = Column(Text, unique=True) # foreign key addresses = relationship('Room', back_populates="users") class Room(Base): __tablename__ = 'zimmer' id = Column(Integer, primary_key=True) art = Column(Text, nullable=False) personen = Column(Integer, nullable=False) preis = Column(Integer, nullable=False) infofeld = Column(Text, nullable=False) land = Column(Text, nullable=False) bundesland = Column(Text, nullable=False) stadt = Column(Text, nullable=False) plz = Column(Text, nullable=False) strasse = Column(Text, nullable=False) hausnr = Column(Text, nullable=True) zimmer_lat = Column(Float, nullable=False) zimmer_lng = Column(Float, nullable=False) # foreign key users_id = Column(Integer, ForeignKey('users.id')) users = relationship("User", back_populates="addresses") ，因此建议使用layout()而不是layout()作为栅格（"R - plotting multiple rasters using matrix layout"。它完全正常image()命令和多边形shapefile的叠加也没问题。但是，地图完全失真，有plot()和layout()方向的压缩（见图）。左边的图层是按比例绘制的，右边的地图是扭曲的：

以下是我的代码的一部分：

y

我是R的新手，我不知道如何解决问题，在绘制光栅时图层不能正确重叠，当对光栅进行成像时，地图会变形。是否有人之前遇到过这个问题，或者谁有解决问题的方法？