如何更改绘图散点图上未选择点的不透明度？

问：

我的代码如下。我想让它，当我从键中选择一个特定的提供程序时，未选择的点（即其他提供程序）只是稍微淡化（即不透明度略有降低），以便您仍然可以看到它们并将鼠标悬停在它们上并使用工具提示。

y_intercept = 0.5

p1 <- df %>% filter(Specialty == "Sarcoma") %>%
ggplot(aes(x=X, y=Y, Provider = Provider, Specialty = Specialty)) +
  geom_point(aes(col = Provider, size = PTL)) +
  theme_minimal() +
  geom_hline(yintercept = y_intercept) +
  labs(title = "TITLE",
       x = "X",
        y = "Y",
       color = "ORG")

ggplotly(p1, tooltip = c("Provider", "Specialty"))

我找到了似乎与我想做的事情相关的文档（请参阅此处未选择的不透明度：https://plotly.com/r/reference/parcoords/#parcoords-unselected），但我无法弄清楚这在代码中会是什么样子，因为没有示例。