Каковы некоторые хорошие ресурсы для изучения Grails? [закрытый]

##Create table ready for making stacked bar graph for Phylums <1%##
# get abundance in %
phy <- transform_sample_counts(data, function(x) 100*x/sum(x))
# agglomerate taxa
glom <- tax_glom(phy, taxrank = 'Phylum')
# create dataframe from phyloseq object
dat <- psmelt(glom)
# convert Phylum to a character vector from a factor because R
dat$Phylum <- as.character(dat$Phylum)
# group dataframe by Phylum, calculate median rel. abundance
medians <- ddply(dat, ~Phylum, function(x) c(median=median(x$Abundance)))
# find Phyla whose rel. abund. is less than 1%
Other <- medians[medians$median <= 1,]$Phylum
# change their name to "Other Prokaryotes"
dat[dat$Phylum %in% Other,]$Phylum <- 'Other Prokaryotes'
#remove all Phylums labeled Other Prokaryotes
dat <-dat[!dat$Phylum=="Other Prokaryotes",]
#remove unncessary columns
dat <- subset(dat, select=c(Sample, Abundance, Phylum))
#Arrange by Abundance
dat <- arrange(dat, Abundance)
#Create a table that is the leftover Prokaryotes
Abundance <- ddply(dat, ~Sample, function(x) c(Abundance=100-sum(x$Abundance)))
#Add a column labeling the leftover Prokaryotes
Abundance$Phylum<- "Other Prokaryotes"
#combine with original table
OnePhylumdatAb <- rbind(dat, Abundance)