Thanks for the update. You are right the difference between the trimmed means is significant.
There is the statistics:
Group First Second
Mean 37.80 48.02
SD 20.90 43.23
SEM 1.60 3.33
N 171 169
I wonder, what argument should I specify, so that plotCounts() shows the outlier-replaced normalized counts?
I added the "replaced=TRUE" argument but it seems it is not working and the generated plot is still with the outlier.
> dat <- plotCounts(dds, gene, "group", replaced=TRUE)
Warning message:
In .local(object, ...) :
there are no assays named 'replaceCounts', using original.
calling DESeq() will replace outliers if they are detected and store this assay.
I think another option is to extract the normalized counts from DESeq2 then winsorize the data and do further exploratory analysis or generate plots. Please let me know if this is not making sense.
Perhaps plotCounts should plot replaced counts using a different color or shape to make it more obvious which counts have been replaced.