闪亮的仪表板图放大

Question

我是发光仪表板的新手。 我创建了一个非常简单的散点图，希望将其叠加到png图像上。 我需要一种方法来放大和缩小散点图和图像。

当前，放大和缩小适用于geom_points，但不适用于图像。

我在本教程中仿制了代码：

https://shiny.rstudio.com/gallery/plot-interaction-zoom.html

class FlaggedProperty():
    def __init__(self, key):
        self._key = key
        self._getter = None
        self._setter = None

    def __call__(self, getter):
        self._getter = getter
        return self

    def setter(self, setter):
        self._setter = setter
        return self

    def __get__(self, obj, cls=None):
        if obj is None:
            return self
        return self._getter(obj, self._key)

    def __set__(self, obj, value):
        if self._setter is None:
            raise AttributeError("Attribute is read-only")
        self._setter(obj, self._key, value)


def register_flagged_properties(cls):
    cls.registered_properties = set()
    for parent in cls.__mro__[1:]:
        parent_properties = getattr(parent, "registered_properties", None)
        if parent_properties:
            cls.registered_properties.update(parent_properties)
    for item in cls.__dict__.values():
        if isinstance(item, FlaggedProperty):
            cls.registered_properties.add(item._key)
    return cls

如上所述，当前，放大和缩小仅适用于geom_points，而不适用于图像。