Skip to content
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

Not displaying correctly with lots of data #34

Open
josiegleeson opened this issue Sep 9, 2019 · 4 comments
Open

Not displaying correctly with lots of data #34

josiegleeson opened this issue Sep 9, 2019 · 4 comments

Comments

@josiegleeson
Copy link

Hello,

I have been loving this package, it is a fantastic way to visualise data. However, I think I might have some datasets that are too big to be shown?

It works perfectly on my individual dataset, but then on the combined it doesn't. (1000 points VS around 9000). I also want to create one with about 3.8mil points... not sure if this is possible?

I'll show what happens when I generate the plots. Thank you.

diff2sequins
sequins3

@pog87
Copy link
Member

pog87 commented Sep 9, 2019

Hi @josiegleeson, thanks for using our package. Which language are you using? Could please you provide some reproducible example of your issue along with the code?

@josiegleeson
Copy link
Author

Hi,
Sure. I have attached the data set (csv saved as txt) I am using and this is the code I am using to run it in R.
Thanks for your help.

library(cowplot)
library(dplyr)
library(readr)
library(plotly)
source("R_rainclouds.R")

Import data set with excel #N/As and remove

seqs <- read.csv(file = "sequins_simple.csv", header = TRUE, na.strings="#N/A")
seqs <- na.omit(seqs)

Put different lengths into groups and factor

seqs$knownTranscriptLength <- cut(seqs$knownTranscriptLength, breaks=c(0,500,1000,1500,2000,7000), right=FALSE, dig.lab = 5)
seqs$knownTranscriptLength <- as.factor(seqs$knownTranscriptLength)

Want it all to be one colour across every length

seqs$constant = 1

p <- ggplot(seqs,aes(x=knownTranscriptLength,y=coverage, fill=constant))+
geom_flat_violin(position = position_nudge(x = .2, y = 0), adjust = 2, fill = "#AF7AC5", color="black")+
geom_point(position = position_jitter(width = .15), size = .25, color="#AF7AC5")+
ylab('Coverage')+xlab('Annotated Transcript Length')+theme_cowplot()+guides(fill = FALSE)
p

ggsave('sequins-s.png')

sequins_simple.txt

@josiegleeson
Copy link
Author

Hello,

Is there any update on this issue? I'd really like to include the raincloud plots in the study.

Thanks.

@pog87
Copy link
Member

pog87 commented Sep 23, 2019

Hi, I've just pinged the R experts for your issue. I hope they'll find a solution.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

2 participants