尝试使用Friedman_test（硬币），但出现错误：
Error in .local(.Object, ...) : ‘x’ is not a balanced factor.
我想比较一个较大数据框中的两个“处理”，并将“主题”用作块。 提取相关数据后，这就是df：
Subject Treatment Itching.Duration
1 BG Pentobarbital 108
2 BG Tripelennamine 141
3 JF Pentobarbital 341
4 JF Tripelennamine 184
5 BS Pentobarbital 159
6 BS Tripelennamine 125
7 SI Pentobarbital 135
8 SI Tripelennamine 227
9 BW Pentobarbital 239
10 BW Tripelennamine 194
11 TS Pentobarbital 136
12 TS Tripelennamine 155
13 GM Pentobarbital 140
14 GM Tripelennamine 121
15 SS Pentobarbital 134
16 SS Tripelennamine 129
17 MU Pentobarbital 185
18 MU Tripelennamine 79
19 OS Pentobarbital 188
20 OS Tripelennamine 317
我得到的错误是：
> friedman_test(Itching.Duration~Treatment|as.factor(Subject), data = df1)
Error in .local(.Object, ...) : ‘x’ is not a balanced factor
我了解我的数据不平衡，但是我不知道该怎么做。 如果我在提取数据之前对所有数据帧执行相同的命令，那么它将起作用。