work/table.R

In twesleyb/Uezu2016: iBioID Proteomics from Uezu, Kanak, Bradshaw et al., 2016

#!/usr/bin/env Rscript

suppressPackageStartupMessages({
  library(dplyr)
  library(data.table)
})

library(Uezu2016)

data(epsd)
data(ipsd_sig_prots)

x = setNames(head(sapply(sig_prots,length),3),nm=c("ARHGEF9","GPHN","INSYN1"))
df_x = as.data.table(c(x,DLG4=length(epsd)),keep.rownames=T)
colnames(df_x) <- c("Bait","nSig")

data(iPSD,package="geneLists")
data(ePSD,package="geneLists")

y = setNames(head(sapply(iPSD,length),3),nm=c("ARHGEF9","GPHN","INSYN1"))
df_y = as.data.table(c(y,DLG4=length(epsd)),keep.rownames=T)
colnames(df_y) <- c("Bait","nSig")


df = left_join(df_y,df_x,by="Bait",suffix=c("2016","2020"))

df %>% knitr::kable(format="latex")