library(ggplot2)
library(plotly)
dat = read.csv("varlist.csv", header = TRUE)
plot_ly(data = dat,
x = ~listLength,
y = ~threadCount,
z = ~time,
type="scatter3d",
mode="markers",
marker=list(symobl="circle-dot", size="1.5"),
color= ~time) %>%
layout(title="Benchmark time for mutable list")
d <- dat[which(dat$threadCount %% 100 == 0),]
plot_ly(data = d,
x = ~listLength,
y = ~threadCount,
z = ~time,
type="scatter3d",
mode="markers",
marker=list(symobl="circle-dot", size="1.5"),
color = ~time)
ggplot(d, aes(x=listLength/1000, y=time, color=factor(threadCount))) +
geom_point() +
# geom_smooth(method = "lm", formula = y ~ exp(x*1.2), se = TRUE) +
geom_smooth(method = "lm", formula = y ~ poly(x,2)) +
# geom_smooth() +
geom_blank()
dl <- dat[which(dat$listLength %% 100 == 0),]
plot_ly(data = dl,
x = ~listLength,
y = ~threadCount,
z = ~time,
type="scatter3d",
mode="markers",
marker=list(symobl="circle-dot", size="1.5"),
color = ~time)
ggplot(dl, aes(x=threadCount/1000, y=time/10000, color=factor(listLength))) +
geom_point() +
# geom_smooth(method = "lm", formula = y ~ exp(x*1.2), se = TRUE) +
# geom_smooth(method = "lm", formula = y ~ poly(x,2)) +
geom_smooth(method = "loess", formula = y ~ x) +
geom_blank()
dat2 = read.csv("out2.csv", header = TRUE)
ggplot(dat2, aes(x=listLength/1000, y=time/1000)) +
geom_point() +
#geom_smooth(method = "lm", formula = y ~ exp(x), color="blue") +
geom_smooth(method = "lm", formula = y ~ poly(x,2)) +
# geom_smooth(color="red") +
geom_blank()
dat2$l2 <- dat1$listLength / 10000
dat2$t2 <- dat1$time / 1000
# summary(lm(data=dat2, formula = t2 ~ poly(l2,2)))
# summary(lm(data=dat2, formula = t2 ~ exp(l2*1.1)))
dat3 = read.csv("out3.csv", header = TRUE)
ggplot(dat3, aes(x=listLength/1000, y=time/1000)) +
geom_point() +
geom_smooth(method = "lm", formula = y ~ exp(x), color="blue") +
# geom_smooth(method = "lm", formula = y ~ poly(x,2), color="green") +
# geom_smooth(color="red") +
geom_blank()
dat4 = read.csv("out4.csv", header = TRUE)
ggplot(dat4, aes(x=threadCount/1000, y=time/100000, color=factor(listLength))) +
geom_point() +
# geom_smooth(method = "lm", formula = y ~ exp(x)) +
geom_smooth(method = "lm", formula = y ~ poly(x,2)) +
# geom_smooth() +
geom_blank()