Compare commits
No commits in common. "76852dfaf82f377e72ea6e76bde3c450880d4246" and "3e3c184153cf384dbc87b05308fa1a8a23347e5b" have entirely different histories.
76852dfaf8
...
3e3c184153
|
@ -1,7 +0,0 @@
|
||||||
#+title: Comparative Genomics Project
|
|
||||||
#+author: Samuel Ortion
|
|
||||||
#+date: 2024-2025
|
|
||||||
|
|
||||||
Analysis of Tandemly Arrayed Genes in /Glycine max/ (soy) proteome.
|
|
||||||
|
|
||||||
Part of the "Comparative Genomics" teaching unit in M2 GENomics Informatics and Mathematics for Health and Environment (GENIOMHE) at Université d'Évry Paris-Saclay.
|
|
|
@ -1 +0,0 @@
|
||||||
|
|
|
@ -1,7 +0,0 @@
|
||||||
library/
|
|
||||||
local/
|
|
||||||
cellar/
|
|
||||||
lock/
|
|
||||||
python/
|
|
||||||
sandbox/
|
|
||||||
staging/
|
|
1305
renv/activate.R
1305
renv/activate.R
File diff suppressed because it is too large
Load Diff
|
@ -1,19 +0,0 @@
|
||||||
{
|
|
||||||
"bioconductor.version": null,
|
|
||||||
"external.libraries": [],
|
|
||||||
"ignored.packages": [],
|
|
||||||
"package.dependency.fields": [
|
|
||||||
"Imports",
|
|
||||||
"Depends",
|
|
||||||
"LinkingTo"
|
|
||||||
],
|
|
||||||
"ppm.enabled": null,
|
|
||||||
"ppm.ignored.urls": [],
|
|
||||||
"r.version": null,
|
|
||||||
"snapshot.type": "implicit",
|
|
||||||
"use.cache": true,
|
|
||||||
"vcs.ignore.cellar": true,
|
|
||||||
"vcs.ignore.library": true,
|
|
||||||
"vcs.ignore.local": true,
|
|
||||||
"vcs.manage.ignores": true
|
|
||||||
}
|
|
|
@ -1,24 +0,0 @@
|
||||||
#!/usr/bin/env Rscript
|
|
||||||
library(dplyr)
|
|
||||||
library(ggplot2)
|
|
||||||
|
|
||||||
args <- commandArgs(trailingOnly=TRUE)
|
|
||||||
input_file <- args[1]
|
|
||||||
output_file <- args[2]
|
|
||||||
title <- args[3]
|
|
||||||
|
|
||||||
family_df <- read.table(input_file, header=FALSE)
|
|
||||||
colnames(family_df) <- c("geneid", "familyid")
|
|
||||||
|
|
||||||
count_df <- family_df %>% count(familyid)
|
|
||||||
distribution_df <- count_df %>% count(n)
|
|
||||||
|
|
||||||
theme_set(theme_grey(base_size=20))
|
|
||||||
|
|
||||||
ggplot(distribution_df, aes(x=n, y=nn)) +
|
|
||||||
geom_bar(stat='identity') +
|
|
||||||
labs(title="Duplicate Gene Family Sizes",
|
|
||||||
subtitle=title) +
|
|
||||||
xlab("family size") +
|
|
||||||
ylab("count")
|
|
||||||
ggsave(output_file)
|
|
Loading…
Reference in New Issue