r - Rでfactoextraを使用して補助列の色を変更する

Question

fviz_ca_col() パッケージのfactoextraからコレスポンデンス分析で補足欄の色を変えようとしているのですが、色をデフォルトから変えても反応がないようですcol.col.sup = "darkred"。再現可能な例:

library(FactoMineR)
library(factoextra)

# Load example data
data("housetasks")

# Perform correspondence analysis
resca <- CA(housetasks, 
                 col.sup = which(names(housetasks) == "Alternating"),  
                 graph = FALSE)

# Call to plot
fviz_ca_col(resca, col.col.sup = "black")

結果のプロットには"Alternating"、デフォルトの暗赤色の補助列があります。