Вы также можете сделать что-то вроде этого:
library(tidyverse)
generatedMatrix <- matrix(rnorm(900), ncol = 30)>.5
generatedMatrix %>% as.vector %>%
tibble(value = ., row = rep(1:nrow(generatedMatrix), times = ncol(generatedMatrix)),
col = rep(1: ncol(generatedMatrix), each = nrow(generatedMatrix))) %>%
ggplot(aes(x = row, y = col, colour = value)) +
geom_point(size = 2) +
scale_color_manual(values = c('black','white'))+
theme_minimal()
library(tidyverse)
generatedMatrix <- matrix(rbinom(900,size = 1,prob = .5), ncol = 30)
generatedMatrix %>% as.vector %>%
tibble(value = ., row = rep(1:nrow(generatedMatrix), times = ncol(generatedMatrix)),
col = rep(1: ncol(generatedMatrix), each = nrow(generatedMatrix))) %>%
ggplot(aes(x = row, y = col, fill = value)) +
geom_tile(size = 2) +
scale_fill_gradient(low = 'black',high = 'white')+
theme_minimal() +
theme(legend.position = 'none')