format: change title to caption

This commit is contained in:
Martin Chan 2021-01-07 11:17:55 +00:00
Родитель b1ad559564
Коммит d6bb198814
2 изменённых файлов: 6 добавлений и 8 удалений

Просмотреть файл

@ -183,8 +183,8 @@ network_leiden <- function(data,
plot.background = element_rect(fill = bg_fill),
text = element_text(colour = font_col),
axis.line = element_blank()) +
labs(title = "Person to person collaboration with Community Detection",
subtitle = "Based on Leiden algorithm and Strong Tie Score",
labs(caption = "Person to person collaboration with Community Detection
based on the Leiden algorithm. ",
y = "",
x = "")
@ -266,8 +266,7 @@ network_leiden <- function(data,
plot.background = element_rect(fill = bg_fill),
text = element_text(colour = font_col),
axis.line = element_blank()) +
labs(title = "Person to person collaboration",
subtitle = paste0("Showing ", hrvar),
labs(caption = paste0("Person to person collaboration showing ", hrvar, ". "), # spaces intentional
y = "",
x = "")

Просмотреть файл

@ -180,8 +180,8 @@ network_louvain <- function(data,
plot.background = element_rect(fill = bg_fill),
text = element_text(colour = font_col),
axis.line = element_blank()) +
labs(title = "Person to person collaboration with Community Detection",
subtitle = "Based on Louvain algorithm and Strong Tie Score",
labs(caption = "Person to person collaboration with Community Detection
based on the Louvain algorithm. ",
y = "",
x = "")
@ -265,8 +265,7 @@ network_louvain <- function(data,
plot.background = element_rect(fill = bg_fill),
text = element_text(colour = font_col),
axis.line = element_blank()) +
labs(title = "Person to person collaboration",
subtitle = paste0("Showing ", hrvar),
labs(caption = paste0("Person to person collaboration showing ", hrvar, ". "), # spaces intentional
y = "",
x = "")