Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(chronochrt)
library(ggplot2)
library(knitr)
## ----setup, eval=FALSE--------------------------------------------------------
# library(chronochrt)
## ----plot_structure_data, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
chrons <- add_chron(
region = c("region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = A", "region = B", "region = B", "region = B"),
name = c("level = 1\nadd =\nFALSE", "level = 2\nadd =\nFALSE", "level = 3\nadd =\nFALSE", "level = 4\nadd =\nFALSE", "level = 5\nadd =\nFALSE","level = 1\nadd =\nTRUE","level = 2\nadd =\nTRUE","level = 2\nadd =\nTRUE", "add =\nTRUE", "level = 3", "add = TRUE", "level = 4", "level = 1\nadd = FALSE", "level = 2\nadd = FALSE", "level = 3\nadd = FALSE"),
start = c(-500, -500, -500, -500, -500, -400, -400, 0, 0, "200/200", "200/200", "275_325", -500, -500, -500),
end = c(500, 500, 500, 500, 500, 400, -50, 400, "200/200", 400, "275_325", 400, 500, 500, 500),
level = c(1, 2, 3, 4, 5, 1, 2, 2, 3, 3, 4, 4, 1, 2, 3),
add = c(FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE),
new_table = TRUE)
# How does it look like?
print(chrons)
## ----plot_structure_plot, echo=FALSE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
plot_chronochrt(chrons, size_text = 4, line_break = 20) +
ggplot2::scale_x_continuous(name = NULL, breaks = seq(0, 2, 0.1), minor_breaks = NULL, expand = c(0,0)) +
ggplot2::theme(axis.text.x = ggplot2::element_text(),
axis.ticks.x = ggplot2::element_line())
## ----unclear, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
data <- add_chron(region = "earlier/later",
name = c("1", "2", "1a", "1b"),
start = c(-100, "50/100", -100, "-25_25"),
end = c("50/100", 200, "-25_25", "50/100"),
level = c(1, 1, 2, 2),
add = FALSE,
new_table = TRUE) %>%
add_chron(region = "later/earlier",
name = c("1", "2", "1a", "1b"),
start = c(-100, "100/50", -100, "25_-25"),
end = c("100/50", 200, "25_-25", "100/50"),
level = c(1, 1, 2, 2),
add = FALSE,
new_table = FALSE) %>%
add_chron(region = "mixed",
name = c("1", "2", "1a", "1b"),
start = c(-100, "50/100", -100, "-25_25"),
end = c("50/100", 200, "25_-25", "100/50"),
level = c(1, 1, 2, 2),
add = FALSE,
new_table = FALSE) %>%
add_chron(region = "same",
name = c("1", "2", "1a", "1b"),
start = c(-100, "100/100", -100, "25_25"),
end = c("100/100", 200, "25_25", "100/100"),
level = c(1, 1, 2, 2),
add = FALSE,
new_table = FALSE) %>%
arrange_regions(order = c("earlier/later", "later/earlier", "same", "mixed"))
plot_chronochrt(data)
## ----label, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
text <- add_label_text(region = "earlier/later",
year = 50,
position = 0.95,
label = "This date in front of the /.",
new = TRUE)
text <- add_label_text(data = text,
region = "later/earlier",
year = 100,
position = 0.9,
label = "This date in\nfront of the /.",
new = FALSE) %>%
add_label_text(region = "mixed",
year = 75,
position = 0.75,
label = "Both dates are\nin front of the /.",
new = FALSE)
text <- add_label_text(data = text,
region = "same",
year = 100,
position = c(0.4, 0.9),
label = "same", new = FALSE)
plot_chronochrt(data, labels_text = text)
## ----label2, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
image <- add_label_image(region = "earlier/later",
year = 50,
position = 0.5,
image_path = "https://www.r-project.org/logo/Rlogo.png",
new = TRUE) %>%
add_label_image(region = "same",
year = 0,
position = 0.5,
image_path = "https://www.r-project.org/logo/Rlogo.svg",
new = FALSE)
plot_chronochrt(data, labels_image = image)
## ----eval=FALSE, echo=TRUE----------------------------------------------------
#
# plot_chronochrt(chrons, size_chrons = 4, line_break = 20) +
# ggplot2::scale_x_continuous(name = NULL, breaks = seq(0, 2, 0.1), minor_breaks = NULL, expand = c(0,0)) +
# ggplot2::theme(axis.text.x = ggplot2::element_text(),
# axis.ticks.x = ggplot2::element_line())
#
## ----eval=FALSE, include=FALSE------------------------------------------------
# library(ggplot2)
# library(ChronochRt)
#
# ggplot() +
# geom_chronochRt(data = data, mapping = aes(region = region, name = name, start = start, end = end, level = level, add = add)) +
# geom_text(data = label, aes(x = position, y = year, label = label)) +
# geom_chronochRtImage(data = image, aes(x = position, y = year, image_path = image_path)) +
# facet_grid(cols = vars(region), scales = "free_x", space = "free_x")
## ----advanced1, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
plot <- ggplot() +
geom_chronochRt(data = data, mapping = aes(region = region, name = name, start = start, end = end, level = level, add = add)) +
geom_text(data = text, aes(x = position, y = year, label = label)) +
geom_chronochRtImage(data = image, aes(x = position, y = year, image_path = image_path)) +
facet_grid(cols = vars(region))
plot
## ----advanced2, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
plot + theme_chronochrt()
## ----advanced3, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
ggplot() +
geom_chronochRt(data = chrons, mapping = aes(region = region, name = name, start = start, end = end, level = level, add = add)) +
facet_grid(cols = vars(region)) +
theme_chronochrt()
## ----advanced4, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
ggplot() +
geom_chronochRt(data = chrons, mapping = aes(region = region, name = name, start = start, end = end, level = level, add = add)) +
scale_x_continuous(expand = c(0,0)) +
scale_y_continuous(name = "Year", expand = c(0,0)) +
facet_grid(cols = vars(region), scales = "free_x", space = "free_x") +
theme_chronochrt()
## ----advanced5, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
ggplot() +
geom_chronochRt(data = data, mapping = aes(region = region, name = name, start = start, end = end, level = level, add = add)) +
geom_text(data = text, aes(x = position, y = year, label = label)) +
geom_chronochRtImage(data = image, aes(x = position, y = year, image_path = image_path)) +
scale_x_continuous(expand = c(0,0)) +
scale_y_continuous(name = "Year", expand = c(0,0)) +
facet_grid(cols = vars(region), scales = "free_x", space = "free_x") +
theme_chronochrt()
## ----advanced6, echo=TRUE, fig.align='center', fig.width=10, message=FALSE, out.width="100%"----
points <- data.frame(x = seq(0, 2, 0.5),
y = seq(-500,-100, 100))
ggplot() +
geom_chronochRt(data = chrons, aes(region = region, name = NULL, start = start, end = end, level = level, add = add)) +
geom_point(data = points, aes(x = x, y = y), size = 5, colour = "red") +
facet_grid(cols = vars(region), scales = "free_x", space = "free_x") +
theme_void()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.