成对反变换函数（lmer分析）

我正在运行lme4，我正在处理一个数据集，其中变量a、d、e经过对数变换。我想知道如何处理有关“pairs”函数的反向转换。如何获得对比度？它被设置为一个函数，因为在现实中有许多列我将循环

另外，如果我在lmer模型中运行数据集之前对其进行了logtransform，那么即使数据在模型中没有作为log（df[，I]）运行，我是否可以判断数据是经过logtransformed的？ 非常感谢

a <- runif(21)
d <- runif(21)
e <- runif(21)
trt <- rep(LETTERS[1:3],7)
id <- rep(1:7, each=3)
df <- data.frame(id,trt,a,d,e)

func <- function(i){
  dflmer <- lmer(formula= log(df[,i]) ~trt+(1|id), data=df)
  emm <- emmeans(dflmer,"trt")
  emm_df <- data.frame(emm)# I could get the data back-transformed like this
  exp(emm[,c(2,5,6)])
  emm_pairs<- pairs(emm, adjust="fdr") # but how about the pairs function?
  contrast(regrid(e, type="log")) #?
}

a