• file: matrix_FstMatrix.r
• document page: 2

code:

read.table("D:/Heidi/Master/R_Daten/FstMatrix/DistanceMatrix_mic.txt",
            header=TRUE, skip=1 ,row.names=1, fill=TRUE ) -> Data

as.matrix.data.frame(Data) -> Matrix
  Matrix
a <- ncol(Matrix)
b <- nrow(Matrix)
x <- c(1:a)
y <- c(1:b)

library(fields)
  ColorRamp <- rgb( seq(1,0,length=256),  # Red
                    seq(1,0,length=256),  # Green
                    seq(1,1,length=256))  # Blue

  image.plot(x,y,Matrix, col=ColorRamp, main="Distance matrix: No. of
              different alleles (FST)", xlab="Populations",
              ylab="Populations", legend.lab="Number of different Allels (FST)")