• file: bar_AllelicSizeRang.r
• documentation page: 3

code:

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

nrow(Data) -> a
ncol(Data) -> b

Data2 <- as.matrix.data.frame(Data)

Data3 <- Data2[1:(a-2),1:(b-3)]
  Data3
 
barplot(Data3, beside=TRUE, legend.text=TRUE, main="Allelic size range
         at different loci", xlab="Populations", ylab="Allelic size",
         ylim=c(0,(max(Data3)+(max(Data3)/4))))

• file: lines_AllelicSizeRang.r
• document page: 10

code:

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

a <- nrow(Data)
b <- ncol(Data)

Data <- as.matrix.data.frame(Data)

Data <- Data[1:(a-2),1:(b-3)]
nRow <- nrow(Data)
nCol <- ncol(Data)

x <- 1
               
plot(Data[x,], type="l", xlab="Population", ylab="Allelic size",
     main="Allelic size range at different loci", ylim=c(0,(max(Data)+(max(Data)/4))),
     xaxt="n", col=x, lwd=1.5)
    
    x <- x + 1
    while(x <= nRow){
        lines(Data[x,], col=x, lwd=1.5)
        x <- x + 1
    }
    axis(1, 1:nCol)
    legendlegend("topright", legend=c("Locus:", (1:(x-1))), lty=1, bty="n", col=c(0:x), lwd=1.5)