varcila/bscpkgs
1
0
Fork 0
forked from rarias/bscpkgs
Code Pull Requests Activity

fwi: update io figure

Browse Source
This commit is contained in:
Rodrigo Arias 2021-04-14 17:18:24 +02:00
parent 8ce2a68cd7
commit eab323a13a
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
garlic/fig/fwi/strong_scaling_io.R → garlic/fig/fwi/io.R
View File

@ -15,28 +15,25 @@ dataset = jsonlite::stream_in(file(input_file)) %>%
jsonlite::flatten() jsonlite::flatten()
# We only need the nblocks and time # We only need the nblocks and time
df = select(dataset, config.blocksize, config.ioFreq, config.gitBranch, config.nodes, time) %>% df = select(dataset, config.blocksize, config.ioFreq, config.gitBranch, config.nodes, time, unit) %>%
rename( rename(
blocksize=config.blocksize, blocksize=config.blocksize,
io=config.ioFreq, enableIO=config.enableIO,
gitBranch=config.gitBranch, gitBranch=config.gitBranch,
nodes=config.nodes nodes=config.nodes
) %>% ) %>%
filter(blocksize == 1) %>% filter(blocksize == 1) %>%
group_by(nodes, gitBranch, io) %>% group_by(unit) %>%
mutate(mtime = median(time)) %>% mutate(mtime = median(time)) %>%
mutate(nxmtime = mtime * nodes) %>% mutate(nxmtime = mtime * nodes) %>%
mutate(nxtime = time * nodes) %>% mutate(nxtime = time * nodes) %>%
ungroup() ungroup()
df$gitBranch = as.factor(df$gitBranch) df$gitBranch = as.factor(df$gitBranch)
df$io = as.factor(df$io) df$enableIO = as.factor(df$enableIO)
df$blocksize = as.factor(df$blocksize) df$blocksize = as.factor(df$blocksize)
df$nodes = as.factor(df$nodes) df$nodes = as.factor(df$nodes)
df$io = fct_recode(df$io, enabled = "-1", disabled = "9999")
ppi=300 ppi=300
h=5 h=5
w=5 w=5
@ -46,7 +43,7 @@ w=5
#################################################################### ####################################################################
png("time.png", width=w*ppi, height=h*ppi, res=ppi) png("time.png", width=w*ppi, height=h*ppi, res=ppi)
p = ggplot(df, aes(x=nodes, y=time, group=io, color=io)) + p = ggplot(df, aes(x=nodes, y=time, group=enableIO, color=enableIO)) +
geom_point() + geom_point() +
geom_line() + geom_line() +
theme_bw() + theme_bw() +
@ -66,7 +63,7 @@ dev.off()
#################################################################### ####################################################################
png("nxtime.png", width=w*ppi, height=h*ppi, res=ppi) png("nxtime.png", width=w*ppi, height=h*ppi, res=ppi)
p = ggplot(df, aes(x=nodes, y=nxtime, group=io, color=io)) + p = ggplot(df, aes(x=nodes, y=nxtime, group=enableIO, color=enableIO)) +
geom_point() + geom_point() +
geom_line() + geom_line() +
theme_bw() + theme_bw() +