r - R 中的交互式散点图，叠加/悬停摘要/工具提示作为用户提供的绘图功能

Question

我一直在研究 R 中的交互式绘图。我知道有几个包可以创建交互式绘图，尤其是散点图，但我正在寻找某种功能。

例如 this plot .可以将鼠标悬停在按钮上，以获得该点背后数据的小数字摘要，即工具提示。

当您拥有包含更多变量的数据集时，从 PCA 中探索/可视化分数或进行多维缩放 (MDS) 通常会很好。但是，如果以交互方式绘制数据，如上面的示例，则悬停在该点上时的摘要不会提供太多信息，即只是一长串数字。能够生成要显示的自定义图会更好，而不仅仅是显示数值。

所以我的问题是:

当将鼠标悬停在散点图中的某个点上时，是否有可能(在 R 中可用的一些包中)生成视觉摘要。这可能是一个条形图，或者只是一些用户指定的绘图函数，它将 data.frame 中的一行作为参数。

如果这是可能的，那么它将非常有助于快速了解 MDS 的结果。

编辑:

下面是一些在 iris 数据集上做 MDS 的代码:

library(ggplot2)
library(plotly)
d <- dist(iris[,-5]) # euclidean distances between the rows
fit <- cmdscale(d,eig=TRUE, k=2) # k is the number of dim

# Put coordinates and original data in one data.frame
x <- fit$points[,1]
y <- fit$points[,2]
pDat <- data.frame(x=x,y=y)
pDat <- cbind(pDat,iris)
p <- ggplot(pDat) + geom_point(aes(x,y))
ggplotly(p)

首先，现在工具提示只包含 x,y 坐标。我希望工具提示包含原始 4 个变量的值。然后，而不是数据点后面的原始 4 个变量，我想将工具提示显示为条形图。 MDS 保留了数据点之间的距离，因此可以用鼠标逐渐悬停，并看到条形图，几乎是连续变化的，因为距离是保留的。在我的使用案例中，我在每个点后面有 30 个变量，因此条形图摘要比 30 个数值提供了更多的视觉信息。

Answer 1

如果您使用的是 RStudio，plotly 包应该足够友好以供使用。
例如:

library(ggplot2)
library(plotly) 
p <- ggplot(iris, aes(Sepal.Length, Petal.Length, colour=Species)) + geom_point()
 ggplotly(p)

悬停在一个点上时显示的信息如下所示: