network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both") +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both") +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
suppressWarnings(
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both") +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
)
suppressWarnings(
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both") +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both") +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
ggVennDiagram()
ggVennDiagram::ggVennDiagram
?geom_label
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_label("CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_text("CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_text(aes(label = "CORE"))
df <- data.frame(
x = 1,
y = 1,
text = "CORE"
)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_text(df, aes(label = text))
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_text(df, aes(lx, y, label = text))
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_text(df, aes(x, y, label = text))
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
geom_text(aes(label = "text"), position = position_stack(vjust = 0.5))
?annotate
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = 4, y = 10, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = 1, y = -20, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = 1, y = -1, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = 0, y = -1, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1, y = -1, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -2, y = -1, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -2, y = 0.5, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.7, y = 0.5, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.5, y = 0.5, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.2, y = 0.5, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.5, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 1, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = -1.3, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = -3, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = 3, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = 5, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = 7, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = 6, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = 5.5, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE") +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_continuous() +
guides(fill = FALSE) +
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_continuous() +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradientn(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", "")) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
?ggVennDiagram
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -0.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 1.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.5, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.5, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 1, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 1, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.5, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.5, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "white", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "black", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2) +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2, color = "black") +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2, color = "black") +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE) +
geom_label(fill = "none")
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2, color = "black") +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE) +
geom_label(aes(fill = "none"))
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2, color = "black") +
annotate("text", x = -1.3, y = 0.7, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.7, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2, color = "black") +
annotate("text", x = -1.3, y = 0.75, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.75, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE)
list(
core = taxa_in_core_by_any_method,
network = human_node_list
) %>%
ggVennDiagram::ggVennDiagram(label = "both", category.names = c("", ""), size = 2, color = "black") +
annotate("text", x = -1.3, y = 0.8, label = "CORE", fontface =2) +
annotate("text", x = 5.3, y = 0.8, label = "NETWORK", fontface =2) +
scale_fill_gradient(high = "grey", low = "white") +
guides(fill = FALSE)
devtools::load_all()
arabidopsis_m21_4
arabidopsis_ps
