-
Notifications
You must be signed in to change notification settings - Fork 54
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Ellipses colour do not match plot points colour #307
Comments
Hello - please note that I also tried running your Case Study of sPLS-DA with SRBCT dataset using the exact code provided and I encountered the same issue. The blue and orange data points were switched around and did not match the image provided in the tutorial, but the ellipses were correct. |
I am having the same issue (and have for a few versions now but it seems to have not been fixed) when using plotIndiv - I much prefer using mixOmics for my work, but I am having to find alternative for plotting results at the moment as it makes it hard to interpret |
Also mentioned by post in mixOmics discussion forum: |
Is there a way to install the pre-release version with this fix? |
Hi @samuelmontgomery yes the github version needed a version bump because of the new Bioconductor release, thanks for pointing that out have just done that! If you run the following command this will install the Github version of mixOmics which is ahead of the Bioconductor version (currently at 6.30.3) and should have the fix incorporated. Please let me know if you have any issues! |
Hello - I am trying to run an sPLSDA showing beta diversity data for 3 different weeks. When the plot is produced the ellipses are correct for all 3 weeks, but the colour of the data points for 2 of the weeks does not match the colour of the ellipses - they are switched around. I tried restarting Rstudio and reloading mixOmics from github but it is still happening.
betaplot$Week <- factor(betaplot$Week, levels = c("1", "5", "11"), labels = c("Week 1", "Week 5", "Week 11"))
taxon = taxa %>% rownames_to_column('Sample ID') %>% semi_join(betaplot, taxa, by = 'Sample ID') %>% column_to_rownames('Sample ID')
result = splsda(taxon, betaplot$Week, ncomp = 2, keepX = c(466,466))
plot = plotIndiv(result,centroid = FALSE, ellipse = TRUE,ind.names = FALSE, title = "sPLSDA - Beta diversity by Week", legend=TRUE)
I have tried to upload the resulting image here:
![Capture](https://private-user-images.githubusercontent.com/129808407/334604623-bb6b3ac2-b61a-42b7-8493-d522559197fb.PNG?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3MzkwNzk4NzEsIm5iZiI6MTczOTA3OTU3MSwicGF0aCI6Ii8xMjk4MDg0MDcvMzM0NjA0NjIzLWJiNmIzYWMyLWI2MWEtNDJiNy04NDkzLWQ1MjI1NTkxOTdmYi5QTkc_WC1BbXotQWxnb3JpdGhtPUFXUzQtSE1BQy1TSEEyNTYmWC1BbXotQ3JlZGVudGlhbD1BS0lBVkNPRFlMU0E1M1BRSzRaQSUyRjIwMjUwMjA5JTJGdXMtZWFzdC0xJTJGczMlMkZhd3M0X3JlcXVlc3QmWC1BbXotRGF0ZT0yMDI1MDIwOVQwNTM5MzFaJlgtQW16LUV4cGlyZXM9MzAwJlgtQW16LVNpZ25hdHVyZT02OWY4ZjEyNDA5Mjg0MTE1OGQwODViN2RlMjFkYjhiOWZkNjU5ZGQzNDM4MzRiNTEyNmNmNGY3ODk4NjkwZjBkJlgtQW16LVNpZ25lZEhlYWRlcnM9aG9zdCJ9.0A_AkmWBUzlO2Oa8wJ0U_lDJARFHBJedidvfWWhe2sg)
The text was updated successfully, but these errors were encountered: