load("/Users/sonja/Desktop/2025-07-22Cambridge/Sweeteners/Manuscript/SB-figs+dat/20250629_Sweetener_MolSysBiol_revision/Figures_data/Figure1/Vinita fig1 edit files/sig_bliss.rda")
View(sig_bliss)
load("sig_bliss.rda")
#CairoSVG(file="../Figures/sig_bliss_interactions.svg", width = 7, height = 7, bg = "white")
sig_bliss %>%
filter(bliss_null > 0.2 | bliss_null < -0.2 & !(compound %in% c('MIN-3-035','MIN-0-60','MIN-3-100'))) %>%
ggplot(aes(x=Sp_short,y=compound)) +
facet_grid(~Plate_no, scales = 'free') +
geom_tile(aes(fill=bliss_null)) +
theme_bw() +
#th +
theme(axis.text.x = element_text(angle = 90,hjust = 1), axis.ticks = element_blank(), panel.grid = element_blank()) +
#scale_fill_viridis_b() +
#scale_fill_gradientn(colors = wes_palette("Zissou1", 2, type = "continuous")) +
#scale_fill_gradientn(colors = colours) +
#scale_fill_gradientn(colors = colours, , limits = c(-0.5, 1)) +
scale_fill_gradientn(colors = c("red", "white", "blue", "darkblue")) +
#scale_fill_gradient2(low = "#FF4242",mid = "#FFFFFF",high = "#0000FF", midpoint = 0, transform = "identity") +
#guides(fill = guide_colorbar(barwidth = 0.5, barheight = 10,
#                            title.position = "top", title.hjust = 0.5,
#                             labels = scales::number_format(accuracy = 0.1))) +
scale_y_discrete(name = "compounds")
library(wesanderson)
library(dplyr)
load("sig_bliss.rda")
#CairoSVG(file="../Figures/sig_bliss_interactions.svg", width = 7, height = 7, bg = "white")
sig_bliss %>%
filter(bliss_null > 0.2 | bliss_null < -0.2 & !(compound %in% c('MIN-3-035','MIN-0-60','MIN-3-100'))) %>%
ggplot(aes(x=Sp_short,y=compound)) +
facet_grid(~Plate_no, scales = 'free') +
geom_tile(aes(fill=bliss_null)) +
theme_bw() +
#th +
theme(axis.text.x = element_text(angle = 90,hjust = 1), axis.ticks = element_blank(), panel.grid = element_blank()) +
#scale_fill_viridis_b() +
#scale_fill_gradientn(colors = wes_palette("Zissou1", 2, type = "continuous")) +
#scale_fill_gradientn(colors = colours) +
#scale_fill_gradientn(colors = colours, , limits = c(-0.5, 1)) +
scale_fill_gradientn(colors = c("red", "white", "blue", "darkblue")) +
#scale_fill_gradient2(low = "#FF4242",mid = "#FFFFFF",high = "#0000FF", midpoint = 0, transform = "identity") +
#guides(fill = guide_colorbar(barwidth = 0.5, barheight = 10,
#                            title.position = "top", title.hjust = 0.5,
#                             labels = scales::number_format(accuracy = 0.1))) +
scale_y_discrete(name = "compounds")
library(ggplot2)
load("sig_bliss.rda")
#CairoSVG(file="../Figures/sig_bliss_interactions.svg", width = 7, height = 7, bg = "white")
sig_bliss %>%
filter(bliss_null > 0.2 | bliss_null < -0.2 & !(compound %in% c('MIN-3-035','MIN-0-60','MIN-3-100'))) %>%
ggplot(aes(x=Sp_short,y=compound)) +
facet_grid(~Plate_no, scales = 'free') +
geom_tile(aes(fill=bliss_null)) +
theme_bw() +
#th +
theme(axis.text.x = element_text(angle = 90,hjust = 1), axis.ticks = element_blank(), panel.grid = element_blank()) +
#scale_fill_viridis_b() +
#scale_fill_gradientn(colors = wes_palette("Zissou1", 2, type = "continuous")) +
#scale_fill_gradientn(colors = colours) +
#scale_fill_gradientn(colors = colours, , limits = c(-0.5, 1)) +
scale_fill_gradientn(colors = c("red", "white", "blue", "darkblue")) +
#scale_fill_gradient2(low = "#FF4242",mid = "#FFFFFF",high = "#0000FF", midpoint = 0, transform = "identity") +
#guides(fill = guide_colorbar(barwidth = 0.5, barheight = 10,
#                            title.position = "top", title.hjust = 0.5,
#                             labels = scales::number_format(accuracy = 0.1))) +
scale_y_discrete(name = "compounds")
#dev.off()
sig_bliss <- read.csv("20241113filter_hits.csv", sep = ',', header = TRUE)
View(sig_bliss)
View(sig_bliss)
sig_bliss <- read.csv("sig_bliss.rda", sep = ',', header = TRUE)
load("/Users/sonja/Desktop/2025-07-22Cambridge/Sweeteners/Manuscript/SB-figs+dat/20250629_Sweetener_MolSysBiol_revision/Figures_data/Figure1/Vinita fig1 edit files/filter_hits.rda")
View(filter_hits)
View(filter_hits)
View(filter_hits)
getwd()
setwd("/Users/sonja/Desktop/2025-07-22Cambridge/Sweeteners/Manuscript/SB-figs+dat/20250629_Sweetener_MolSysBiol_revision/Figures_data/Figure1/Fig1_source-data/Fig1c/)
""
setwd("/Users/sonja/Desktop/2025-07-22Cambridge/Sweeteners/Manuscript/SB-figs+dat/20250629_Sweetener_MolSysBiol_revision/Figures_data/Figure1/Fig1_source-data/Fig1c/")
sig_bliss <- read.csv("sig_bliss.csv", sep = ',', header = TRUE)
sig_bliss %>%
filter(bliss_null > 0.2 | bliss_null < -0.2 & !(compound %in% c('MIN-3-035','MIN-0-60','MIN-3-100'))) %>%
ggplot(aes(x=Sp_short,y=compound)) +
facet_grid(~Plate_no, scales = 'free') +
geom_tile(aes(fill=bliss_null)) +
theme_bw() +
#th +
theme(axis.text.x = element_text(angle = 90,hjust = 1), axis.ticks = element_blank(), panel.grid = element_blank()) +
#scale_fill_viridis_b() +
#scale_fill_gradientn(colors = wes_palette("Zissou1", 2, type = "continuous")) +
#scale_fill_gradientn(colors = colours) +
#scale_fill_gradientn(colors = colours, , limits = c(-0.5, 1)) +
scale_fill_gradientn(colors = c("red", "white", "blue", "darkblue")) +
#scale_fill_gradient2(low = "#FF4242",mid = "#FFFFFF",high = "#0000FF", midpoint = 0, transform = "identity") +
#guides(fill = guide_colorbar(barwidth = 0.5, barheight = 10,
#                            title.position = "top", title.hjust = 0.5,
#                             labels = scales::number_format(accuracy = 0.1))) +
scale_y_discrete(name = "compounds")
