From 93f6d0e40a67eda2743af922abd955d89a298d9e Mon Sep 17 00:00:00 2001
From: Caffery Yang <cafferychen7850@gmail.com>
Date: Wed, 24 Apr 2024 16:01:50 +0800
Subject: [PATCH] Update generate_alpha_spaghettiplot_long.R

---
 R/generate_alpha_spaghettiplot_long.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/generate_alpha_spaghettiplot_long.R b/R/generate_alpha_spaghettiplot_long.R
index 36389ed..55178ec 100644
--- a/R/generate_alpha_spaghettiplot_long.R
+++ b/R/generate_alpha_spaghettiplot_long.R
@@ -212,12 +212,12 @@ generate_alpha_spaghettiplot_long <-
 
       if (!is.null(adj.vars)) {
 
-        # 对非数值型协变量进行因子转换
+        # Covariate conversion for non-numeric variables
         data_subset <- sub_alpha.df %>%
           dplyr::select(all_of(adj.vars)) %>%
           dplyr::mutate(dplyr::across(where(is.character) & !is.factor, factor))
 
-        # 创建模型矩阵，并为非数值型协变量设定对比度
+        # Create a model matrix and set contrasts for non-numeric covariates
         M <- model.matrix(
           ~ 0 + .,
           data = data_subset,
@@ -230,13 +230,13 @@ generate_alpha_spaghettiplot_long <-
         # Fit the regression model
         fit <- lm(sub_alpha.df[[index]] ~ M_centered)
 
-        # 计算调整后的alpha多样性值
+        # Compute the adjusted alpha diversity value
         adjusted_value <- fit$coefficients[1] + residuals(fit)
 
-        # 在sub_alpha.df中更新alpha多样性值
+        # Update the alpha diversity values in sub_alpha.df
         sub_alpha.df[[index]] <- adjusted_value
 
-        # 显示消息，表示已经为特定的协变量调整了alpha多样性
+        # Display a message indicating that alpha diversity has been adjusted for a specific covariate
         message("Alpha diversity has been adjusted for the following covariates: ",
                 paste(adj.vars, collapse = ", "), ".")
       }