r - 如何获得与“cld”功能的显着差异？

Question

library(dplyr)
 library(tidyr)
 library(ggpmisc)
 library(jmv)
 library(Rmisc)
 library(emmeans) 
 library(multcomp)
 library(Hmisc)
 library(lattice)
 library(multcompView)
 library(agricolae)
                
     
                                
 names(data)
 data$pH 
 data$Fs<- as.factor(data$Fs)
 data$Treatments<-as.factor(data$Treatments)
 data$Pot_Inc<-as.factor(data$Pot_Inc)
                       
           
 m1 <- aov(pH ~ Fs * Treatments * Pot_Inc, data=data)
 summary(m1)
       
l1 <- emmeans(m1, list(pairwise ~ Treatments*Pot_Inc | Fs), adjust =c("tukey"))
cld(l1, Letters=letters, alpha=0.05, reversed=T)

我正在尝试运行 cld 函数以显示显着差异。但最后这显示： UseMethod("cld") 中的错误：没有适用于 'cld' 的方法应用于类 "c('emm_list', 'list')" 的对象。如果有人可以帮助我，我将不胜感激