Re:forとapplyの速度比較

helpを求められたような気がしたので。

• http://blog.m884.jp/2009/11/30/forとapplyの速度比較

最後に。誰かggplot2できれいにプロットしてください。そこまでする余力がありませんでした…。

書いてみました。

d <- read.table("/tmp/hoge.csv", sep="\t", header=TRUE)
d <- data.frame(num = rep(d[, 1], ncol(d) - 1),
           time = as.numeric(as.matrix(d[, -1])),
           label = Reduce(c, sapply(names(d[, -1]), function(x){rep(x, nrow(d))}), c()))

q <- ggplot(d, aes(x = num, y = time, group = label))
q <- q + geom_line(aes(colour = label))
q <- q + scale_x_log10()
print(q)