数据没有以公认的冲积形式

发布于 2025-01-24 14:07:10 字数 769 浏览 0 评论 0原文

我正在尝试做一个冲积图，以比较聚类后的合并方法。这个想法是在X轴上具有3个变量，与PCA，PCOA和PLN模型相对应。

我想将其中的每一个切成4个部分（我的层次聚类给出了4个簇）。

这是我的数据集：

data_alluvial <- read.table(text = "
Var1 Freq method
1     1    4    ACP
2     2    9    ACP
3     3    8    ACP
4     4    4    ACP
5     1    6 PLNPCA
6     2    7 PLNPCA
7     3    5 PLNPCA
8     4    7 PLNPCA
9     1    8   PCoA
10    2    4   PCoA
11    3    9   PCoA
12    4    4   PCoA", header = TRUE)

这是我尝试的：

ggplot(data = data_alluvial, aes(x = method, stratum = Var1, alluvium = Freq, label = Var1)) + geom_alluvium(aes(fill = Var1))

我收到消息：

数据不采用公认的冲积形式（请参阅help（'luckial-data'）有关详细信息）。

我真的没有得到我的数据集有什么问题...有人可以帮我吗？

原文

I am trying to do an alluvial plot which compares ordination methods after clustering. The idea is to have 3 variables on the x axis, corresponding to PCA, PCoA and PLN Model.

I would like to "cut" each one of these into 4 parts (4 clusters given by my hierarchical clustering).

Here is my dataset :

data_alluvial <- read.table(text = "
Var1 Freq method
1     1    4    ACP
2     2    9    ACP
3     3    8    ACP
4     4    4    ACP
5     1    6 PLNPCA
6     2    7 PLNPCA
7     3    5 PLNPCA
8     4    7 PLNPCA
9     1    8   PCoA
10    2    4   PCoA
11    3    9   PCoA
12    4    4   PCoA", header = TRUE)

and here is what I tried :

ggplot(data = data_alluvial, aes(x = method, stratum = Var1, alluvium = Freq, label = Var1)) + geom_alluvium(aes(fill = Var1))

I get the message :

Data is not in a recognized alluvial form (see help('alluvial-data') for details).

I don't really get what is wrong with my dataset...can someone help me ?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

断舍离 2025-01-31 14:07:10

尝试一下：

#convert to factor
data_alluvial$Var1 <- as.factor(data_alluvial$Var1)

ggplot(data = data_alluvial,
       aes(x = method, y = Freq, alluvium = Var1, 
           fill = Var1, stratum = Var1)) +
  geom_alluvium() +
  geom_stratum()

Try this:

#convert to factor
data_alluvial$Var1 <- as.factor(data_alluvial$Var1)

ggplot(data = data_alluvial,
       aes(x = method, y = Freq, alluvium = Var1, 
           fill = Var1, stratum = Var1)) +
  geom_alluvium() +
  geom_stratum()