Skip to content

Instantly share code, notes, and snippets.

@tklebel

tklebel/graph.R

Created August 17, 2015 12:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tklebel/200a101d65ad0a530a50 to your computer and use it in GitHub Desktop.
Save tklebel/200a101d65ad0a530a50 to your computer and use it in GitHub Desktop.
Download ZIP
Recreating graph from simulation study with ggplot
Raw
graph.R
### cpd beta1 Coverage
# hinzufügen zu Zeile 335 (ca)
library(ggplot2)
df <- as.data.frame(cpd.coverB1)
ggplot(df, aes(cpd.coverB1, fill = cpd.coverB1)) +
geom_bar() +
geom_hline(yintercept = 950, linetype = 'dashed', colour = "blue") +
ylim(c(0, 1000)) +
theme_bw() +
labs(title = expression(paste("cpd-Coverage ",beta[1])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment