nwickelmaier/mtt_haum
nwickelmaier/mtt_haum
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated labels for power law plots

Browse Source
This commit is contained in:
Nora Wickelmaier 2024-04-03 17:53:39 +02:00
parent dc489b4aa9
commit 76aa35da3f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/11_investigate-variants.R
View File

@ -60,7 +60,7 @@ pdf("../../thesis/figures/freq-traces_powerlaw.pdf", height = 3.375,
width = 3.375, pointsize = 10) width = 3.375, pointsize = 10)
par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0)) par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0))
plot(x, y, log = "xy", xlab = "Absolute Frequency of Traces", plot(x, y, log = "xy", xlab = "Process variants sorted by frequency",
ylab = "Frequency", pch = 16, col = rgb(0.262, 0.309, 0.309, 0.5)) ylab = "Frequency", pch = 16, col = rgb(0.262, 0.309, 0.309, 0.5))
lines(x, pre, col = "#434F4F") lines(x, pre, col = "#434F4F")
legend("topright", paste0("Proportion of traces only occurring once: ", legend("topright", paste0("Proportion of traces only occurring once: ",
@ -73,7 +73,7 @@ pdf("../../thesis/figures/freq-traces_powerlaw_bw.pdf", height = 3.375,
width = 3.375, pointsize = 10) width = 3.375, pointsize = 10)
par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0)) par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0))
plot(x, y, log = "xy", xlab = "Absolute Frequency of Traces", plot(x, y, log = "xy", xlab = "Process variants sorted by frequency",
ylab = "Frequency", pch = 16, col = rgb(0.3, 0.3, 0.3, 0.5)) ylab = "Frequency", pch = 16, col = rgb(0.3, 0.3, 0.3, 0.5))
lines(x, pre, col = "#434F4F") lines(x, pre, col = "#434F4F")
legend("topright", paste0("Proportion of traces only occurring once: ", legend("topright", paste0("Proportion of traces only occurring once: ",
@ -129,7 +129,7 @@ pdf("../../thesis/figures/freq-traces_powerlaw_2019.pdf", height = 3.375,
width = 3.375, pointsize = 10) width = 3.375, pointsize = 10)
par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0)) par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0))
plot(x, y, log = "xy", xlab = "Absolute Frequency of Traces", plot(x, y, log = "xy", xlab = "Process variants sorted by frequency",
ylab = "Frequency", pch = 16, col = rgb(0.262, 0.309, 0.309, 0.5)) ylab = "Frequency", pch = 16, col = rgb(0.262, 0.309, 0.309, 0.5))
lines(x, pre, col = "#434F4F") lines(x, pre, col = "#434F4F")
legend("topright", paste0("Proportion of traces only occurring once: ", legend("topright", paste0("Proportion of traces only occurring once: ",
@ -142,7 +142,7 @@ pdf("../../thesis/figures/freq-traces_powerlaw_2019_bw.pdf", height = 3.375,
width = 3.375, pointsize = 10) width = 3.375, pointsize = 10)
par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0)) par(mai = c(.6,.6,.1,.1), mgp = c(2.4, 1, 0))
plot(x, y, log = "xy", xlab = "Absolute Frequency of Traces", plot(x, y, log = "xy", xlab = "Process variants sorted by frequency",
ylab = "Frequency", pch = 16, col = rgb(0.3, 0.3, 0.3, 0.5)) ylab = "Frequency", pch = 16, col = rgb(0.3, 0.3, 0.3, 0.5))
lines(x, pre, col = "#434F4F") lines(x, pre, col = "#434F4F")
legend("topright", paste0("Proportion of traces only occurring once: ", legend("topright", paste0("Proportion of traces only occurring once: ",