Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
I
integration
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gad-public
integration
Commits
127bd55a
Commit
127bd55a
authored
2 years ago
by
Marine Bergot
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Upload New File
parent
914af42a
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
0 deletions
+21
-0
plot_gene.R
scripts_CNV/plot_gene.R
+21
-0
No files found.
scripts_CNV/plot_gene.R
0 → 100644
View file @
127bd55a
#!/usr/bin/env Rscript
library
(
ggplot2
)
args
=
commandArgs
(
trailingOnly
=
TRUE
)
tab
<-
read.table
(
args
[
1
],
header
=
T
,
sep
=
"\t"
)
colnames
(
tab
)
<-
c
(
"dijarn"
,
"gene"
)
tab
$
dijarn
<-
factor
(
tab
$
dijarn
,
levels
=
tab
$
dijarn
[
order
(
tab
$
gene
)])
p
<-
ggplot
(
tab
,
aes
(
x
=
dijarn
,
y
=
gene
))
p
<-
p
+
geom_point
(
shape
=
20
,
color
=
"red"
,
size
=
3
)
p
<-
p
+
theme_classic
()
pdf_name
<-
paste
(
args
[
4
],
"/"
,
args
[
2
],
"/plots/genes_by_TADs_"
,
args
[
2
],
"_"
,
args
[
3
],
".pdf"
,
sep
=
""
)
print
(
pdf_name
)
pdf
(
pdf_name
)
p
dev.off
()
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment