johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add new clusteriness score

Browse source
This commit is contained in:
Elias Projahn 2021-09-30 12:54:40 +02:00
parent ba7c624705
commit 91c15045cf
5 changed files with 43 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scatter_plot.R
View file

@ -20,11 +20,6 @@ scatter_plot <- function(results, species, genes, distances) {
by.x = "id", by.y = "gene"
)
for (gene_id in genes[, id]) {
cluster_species <- unlist(results[gene == gene_id, cluster_species])
data[id == gene_id, in_cluster := species %in% cluster_species]
}
ggplot(data) +
scale_x_discrete(
name = "Species",
@ -42,17 +37,11 @@ scatter_plot <- function(results, species, genes, distances) {
}
) +
scale_color_discrete(name = "Gene") +
scale_shape_discrete(
name = "Part of cluster",
breaks = c(TRUE, FALSE),
labels = c("Yes", "No")
) +
geom_point(
mapping = aes(
x = species,
y = distance / 1000000,
color = name,
shape = in_cluster
color = name
),
size = 5
) +