简单的例子
library(heatmaply)
heatmaply(mtcars, k_col = 2, k_row = 3) %>% layout(margin = list(l = 130, b = 40))
1 from honda civic to ferrari dino
2 from valiant to dodge challendger
3 from chrysler imperial to maserati bora
我们还看到技术参数(变量)除以两个类
The first class **hp** and **disp**
The second class another parameters
如何在数据帧中输出那些观察的名称(或数字),一方面,它们在第一个集群中(第一个集群的汽车), 它们位于第一组技术变量的区域。 换句话说,我在下面的屏幕上确定了这个区域
因此,必须输出以观察不同技术变量集群中的所有汽车集群。 很容易计算它将是6个区域。
答案 0 :(得分:1)
以下是使用heatmapr(hotmaply背后的函数)获取相同内容的示例:
$scope.deleteEntry = function(event) {
console.log("delete"); // sometimes this does not log
}
$interval(function() {
$scope.items = someService.getItems();
}, 1000, 0, true);
输出将是:
example_data <- mtcars # replace this with your data.
library(dendextend) # how to cite it, see citation("heatmaply")
x <- heatmapr(example_data )
library(dendextend) # how to cite it, see citation("dendextend")
data_groups <- cutree(x$rows, k = 3) # choose the k/number of clusters you see/want.
data_groups
# This is how to see the groups of your data
split(example_data, data_groups )