library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.2.5
library(grid)
setwd("D:/RData/heat/21genes")
data = read.table("data-1.txt",head=T)
tmp = data$expression
tmp[tmp>2]=2
tmp[tmp < -2]=-2
data$expression = tmp
periods = read.table("period.txt",head=F)
xlabs = periods[,1]