segunda-feira, 18 de junho de 2012

Gráfico de Degrau no R

Apanhei muito, mas era uma besteira...


f = read.table(file="C:\\Downloads\\fair.txt",
    sep=";",
    header=FALSE,
             skip = 0,
    dec=".",
             row.names = NULL,
             colClasses <- rep("numeric",3),
             comment.char = "#",
    na.strings = c("*", "-",-99.9, -999.9),
             col.names <- c("tempo", "taxa") )

plot(taxa~tempo, f, col=4, ylim = c(0, 6), type=c("s"), xlab="Execution Time (minutes)", ylab="Workload (httperf rate)", main="Workload at Time", lwd=3, xaxs="i", yaxs="i", font.axis=2, font.lab=2)





2 comentários:

  1. amigo gostaria de saber como fazer este gráfico! Gostaria de saber como é a tabela de entrada de dados

    ResponderExcluir
  2. o degrau é feito só pela função type c = s de plot !!!!!

    f = read.table(file="C:\\workload.txt",sep=";", header=FALSE)

    plot(V2~V1, f, col=4, type=c("s"), xlab="Execution Time (minutes)", ylab="Workload (httperf rate)", main="Workload at Time", lwd=3, xaxs="r", yaxs="r", font.axis=2, font.lab=2)

    workload.txt

    1;16
    2;16
    3;16
    4;16
    5;16
    6;30
    7;30
    8;30
    9;30
    10;30
    11;50
    12;50
    13;50
    14;50
    15;50
    16;30
    17;30
    18;30
    19;30
    20;30
    21;16
    22;16
    23;16
    24;16
    25;16
    26;60
    27;60
    28;60
    29;60
    30;60
    31;80
    32;80
    33;80
    34;80
    35;80
    36;100
    37;100
    38;100
    39;100
    40;100
    41;130
    42;130
    43;130
    44;130
    45;130
    46;16
    47;16
    48;16
    49;16
    50;16
    51;50
    52;50
    53;50
    54;50
    55;50
    56;10
    57;10
    58;10
    59;10
    60;10

    ResponderExcluir