0

我为带有 fviz_cluster 的聚集散点图编写了以下脚本。根据该图，x 有负值，y 有负值。

dots <- dots %>%
  select(GRNHLin, RED2HLin)
    
dots <- dots %>%
  filter(RED2HLin >= 1.0)

dots.Mclust <- Mclust(dots, modelNames="VVV", G=8)
#BIC <- mclustBIC(dots)
#ICL <- mclustICL(dots)
#summary(BIC)
#summary(ICL)

visual <- fviz_cluster(dots.Mclust, 
             ellipse=FALSE,
             data=dots.Mclust["GRNHLin", "RED2HLin"],
             shape=20, 
             ellipse.alpha = 0.1,
             alpha=0.450, 
             geom = c("point"),
             show.clust.cent = FALSE,
             main = FALSE,
             legend = c("right"),
             palette = "npg",
             legend.title = "Clusters") +
  labs(x="Green Fluorescence Intensity", y="Red Fluorescence Intensity")
  #scale_x_continuous(#breaks = trans_breaks("log10", function(x) 10^x),
                #labels = trans_format("log10", math_format(10^.x)),
                #limits = c(0,6)) +
  #scale_y_continuous(#breaks = trans_breaks("log10", function(x) 10^x),
                #labels = trans_format("log10", math_format(10^.x)), 
                #limits = c(-7,6))
visual
head(dots.Mclust)

聚集散点图（注意左侧和 0 以下的值）。

根据 head(dots.Mclust) （以及我的彻底分析），没有负值。

$data
           GRNHLin    RED2HLin
   [1,]   81.50364  176.379654
   [2,]   57.94751  116.310577
   [3,]   42.89310  119.758621
   [4,]   41.82213  275.607971
   [5,]  437.14648  141.309647
   [6,]   15.20952  177.128616
   [7,]   18.88731  257.249207
   [8,]  768.64935  172.374069
   [9,]   24.66220  118.283150
  [10,]   17.12160   68.955154
  [11,]   73.00019   71.517052
  [12,] 1182.08911  180.694122

这种差异从何而来？fviz(cluster) 如何改变绘图上的值？是否进行了一些标准化或缩放？

4

0 回答 0