Load data

library('scRNAseq')
scRNAData <- scRNAseq #Because ggplot2 builder needs the dataset to be in the Environment

Preview data structure

library('dplyr')
glimpse(scRNAData)
head(scRNAData,4) #Dummy datasets will be generated from these 4 rows

Generate dummy df

heart <- scRNAData[scRNAData$organ=='heart',]
brain <- scRNAData[scRNAData$organ=='brain',]
kidney <- scRNAData[scRNAData$organ=='kidney',]

Does the original df have any transcript appeared in more than 1 organ?


Assembly the df from 3 organs together in a proper way and name the new df as three_organ_df


FIlter the genes from heart out from three_organ_df


Conditional coloring in ggplot by stringr pattern detect

What gene types do you have in scRNAData?

sort(table(scRNAData$gene_type), decreasing = TRUE)

What is the average transcript lengthn for non-pseudogenes from brain? Make a plot to answer this.

Additional requirements:




hirscheylab/tidybiology documentation built on May 20, 2022, 10:55 p.m.