Лучше ggplot
. Настроить проще.
При необходимости измените размер текста с помощью дополнительного аргумента size
внутри geom_text
.
# given a correlation matrix
corr_matrix <- cor(mtcars)
library(dplyr)
library(tidyr)
library(ggplot2)
corr_matrix %>%
as_tibble(rownames = "var1") %>%
gather(var2, value, -var1) %>%
ggplot(aes(x = var1, y = var2, fill = value)) +
geom_tile() +
geom_text(aes(label = round(value, digits = 2))) +
labs(x = "", y = "", fill = "Corr", title = "Correlation Matrix") +
coord_fixed() +
theme_minimal() +
scale_fill_gradientn(
limits = c(-1,1),
# here choose the colours you want
colours = c("blue", "green", "red"),
# here choose the intervals you want (must be inside rescale!)
values = scales::rescale(c(-1, 0.5, 0.7, 1)))
Просто с числами [лично я бы выбрал первый]
corr_matrix %>%
as_tibble(rownames = "var1") %>%
gather(var2, value, -var1) %>%
ggplot(aes(x = var1, y = var2, colour = value)) +
geom_tile(colour = "gray20", fill = "white") +
geom_text(aes(label = round(value, digits = 2))) +
labs(x = "", y = "", fill = "Corr", title = "Correlation Matrix") +
coord_fixed() +
theme_minimal() +
scale_colour_gradientn(colours = c("blue", "green", "red"),
values = scales::rescale(c(-1, 0.5, 0.7, 1)),
limits = c(-1,1))
РЕДАКТИРОВАТЬ
Я добавил это, чтобы решить проблему, связанную с сортировкой этикеток.
Прежде всего, я отредактирую mtcars
, чтобы он выглядел как ваши данные.
colnames(mtcars) <- paste0("Month", 1:11)
mtcars$Month12 <- rnorm(32)
Хорошо, теперь приступим к графику. Нам просто нужно внести небольшое изменение: мы сделаем имена переменных упорядоченными факторами.
corr_matrix <- cor(mtcars)
library(dplyr)
library(tidyr)
library(ggplot2)
corr_matrix %>%
as_tibble(rownames = "var1") %>%
gather(var2, value, -var1) %>%
# here is the additional line you need!
mutate(across(c(var1, var2), factor, levels = paste0("Month", 1:12), ordered = TRUE)) %>%
ggplot(aes(x = var1, y = var2, fill = value)) +
geom_tile() +
geom_text(aes(label = round(value, digits = 2))) +
labs(x = "", y = "", fill = "Corr", title = "Correlation Matrix") +
coord_fixed() +
theme_minimal() +
scale_fill_gradientn(
limits = c(-1,1),
# here choose the colours you want
colours = c("blue", "green", "red"),
# here choose the intervals you want (must be inside rescale!)
values = scales::rescale(c(-1, 0.5, 0.7, 1)))
Работает с dplyr
версией ›= 1.0.0.
Если у вас его нет, используйте вместо этого:
mutate_at(c("var1", "var2"), factor, levels = paste0("Month", 1:12), ordered = TRUE) %>%
person
Edo
schedule
17.08.2020