8 Figure7

8.1 Fig.7b

df = read.table('data/7b_data',header = T)
boxplot(df,col= c('#87CEEB','#FFA500'),
        ylim = c(0.8,1.4),outline = F,las = 1,
        boxwex = .6,ylab = 'FoldChange(ActD/Ctrl)')

8.2 Fig.7c

trans = read.table('data/7c_data',header = T)
boxplot(trans,col= c('#F96A58','#BADB33'),
        outline = F,las = 1,
        boxwex = .6,ylab = 'FoldChange(ActD/Ctrl)')

8.3 Fig.7d

cis = read.table('data/7d_data',header = T)
boxplot(cis,col= c('#F96A58','#BADB33'),
        outline = F,las = 1,
        boxwex = .6,ylab = 'FoldChange(ActD/Ctrl)')

8.4 Fig.7h

suppressMessages(library(matlab))
suppressMessages(library(fields))
library(RColorBrewer)
col.ls <-
  colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan",
                     "#7FFF7F", "yellow", "#FF7F00", "red",                          "#7F0000"))(100)
xdata = read.table('data/7h_data')
xdata <- as.matrix(xdata)
image.plot(x = 1:nrow(xdata), y = 1:ncol(xdata), z = xdata,  xlab = "", ylab = "", col = col.ls, cex = 1, axes=F,legend.cex = 0)
box()