te.plot: Translational efficiency plots

Description Usage Arguments Details Value Examples

View source: R/TE_plots.R

Description

Create 2 TE plots of:
- Within sample (TE log2 vs mRNA fpkm) ("default")
- Between all combinations of samples (x-axis: rna1fpkm - rna2fpkm, y-axis rfp1fpkm - rfp2fpkm)

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
te.plot(
  df.rfp,
  df.rna,
  output.dir = paste0(dirname(df.rfp$filepath[1]), "/QC_STATS/"),
  type = c("default", "between"),
  filter.rfp = 1,
  filter.rna = 1,
  collapse = FALSE,
  plot.title = "",
  width = 6,
  height = "auto"
)

Arguments

df.rfp

a experiment of Ribo-seq or 80S from TCP-seq.

df.rna

a experiment of RNA-seq

output.dir

directory to save plots, plots will be named "TE_between.png" and "TE_within.png"

type

which plots to make, default: c("default", "between"). Both plots.

filter.rfp

numeric, default 1. minimum fpkm value to be included in plots

filter.rna

numeric, default 1. minimum fpkm value to be included in plots

collapse

a logical/character (default FALSE), if TRUE all samples within the group SAMPLE will be collapsed to one. If "all", all groups will be merged into 1 column called merged_all. Collapse is defined as rowSum(elements_per_group) / ncol(elements_per_group)

plot.title

title for plots, usually name of experiment etc

width

numeric, default 6 (in inches)

height

numeric or character, default "auto", which is: 3 + (ncol(RFP_CDS_FPKM)-2). Else a numeric value of height (in inches)

Details

Ribo-seq and RNA-seq must have equal nrows, with matching samples. Only exception is if RNA-seq is 1 single sample. Then it will use that for each of the Ribo-seq samples. Same stages, conditions etc, with a unique pairing 1 to 1. If not you can run collapse = "all". It will then merge all and do combined of all RNA-seq vs all Ribo-seq

Value

a data.table with TE values, fpkm and log fpkm values, library samples melted into rows with split variable called "variable".

Examples

1
2
3
4
5
6
##
# df.rfp <- read.experiment("zf_baz14_RFP")
# df.rna <- read.experiment("zf_baz14_RNA")
# te.plot(df.rfp, df.rna)
## Collapse replicates:
# te.plot(df.rfp, df.rna, collapse = TRUE)

ORFik documentation built on March 27, 2021, 6 p.m.