为了创建一个像下面这样的哈斯图
一个是使用以下库
library(rPref)
library(Rgraphviz)
一个是从一个人的数据中抽取一个小样本
df <- data[1:10,]
然后创建首选项
pref <- low(time) * low(MAPE)
还有比图更好（BTG）
btg <- get_btg(df, pref)
为了显示包含相关值的节点的标签，一个是创建标签如下
labels <- paste0(df$time, "\n", df$MAPE)
然而，当一个人用
plot_btg(df, pref, labels)
一个人只能看到第一个标签，而不是两个。这是一个人看到的
