我一直在研究R中的交互式绘图。我知道有几个包可以创建交互式绘图,特别是散点图,但我正在寻找某些功能。
例如此绘图。人们可以用鼠标悬停在按钮上,以获取有关该点后面数据的小数字摘要,即工具提示。
当您有一个具有更多变量的数据集时,通常很好探索/可视化来自PCA的分数,或进行多维缩放(MDS)。但是,如果像上面的示例那样以交互方式绘制数据,则悬停在点上时的摘要提供的信息不多,即只有一长串数字。能够生成自定义绘图以显示将更好,而不仅仅是显示数字值。
因此,我的问题是:
是否可能(在R中可用的某些包中)在散点图上悬停在点上时生成视觉摘要。这可以是条形图,也可以是一些用户指定的绘图函数,该函数以数据框的一行作为参数。
如果可能的话,这将极大地帮助快速了解MDS结果。
编辑:
以下是对鸢尾花数据集执行MDS的代码:
例如此绘图。人们可以用鼠标悬停在按钮上,以获取有关该点后面数据的小数字摘要,即工具提示。
当您有一个具有更多变量的数据集时,通常很好探索/可视化来自PCA的分数,或进行多维缩放(MDS)。但是,如果像上面的示例那样以交互方式绘制数据,则悬停在点上时的摘要提供的信息不多,即只有一长串数字。能够生成自定义绘图以显示将更好,而不仅仅是显示数字值。
因此,我的问题是:
是否可能(在R中可用的某些包中)在散点图上悬停在点上时生成视觉摘要。这可以是条形图,也可以是一些用户指定的绘图函数,该函数以数据框的一行作为参数。
如果可能的话,这将极大地帮助快速了解MDS结果。
编辑:
以下是对鸢尾花数据集执行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个数值提供更多的视觉信息。