如何在R中仅绘制二进制矩阵中的1（一）个元素

Question

我有一个稀疏矩阵.csv文件并保存矩阵，如：

v1 v2 v3 v4 v5 v6 ... vn
1 0  1  0  1  0  0
2 0  0  0  1  0  0
3 0  0  0  0  1  0
4 1  0  0  0  0  1
5 1  0  1  0  1  0
...
m

我想制作情节x value = v1~vn , y value = 1~m 并且仅标记非零元素（仅1）

在Matlab中

我使用spy（），但我不知道R中是怎么做的。

Answer 1

以下是使用ggplot2::ggplot的解决方案。

# Sample data
set.seed(2017);
df <- matrix(sample(c(0, 1), 100, replace = TRUE), nrow = 10);
df;

# Convert wide to long
library(reshape2);
df.long <- melt(df);

# Var1 = row
# Var2 = column
library(ggplot2);
gg <- ggplot(subset(df.long, value == 1), aes(x = Var2, y = Var1));
gg <- gg + geom_point(size = 2, fill = "blue", shape = 21);
gg <- gg + theme_bw();
gg <- gg + labs(y = "Row", x = "Column");
gg <- gg + scale_y_reverse();

Answer 2

您可以使用SparseM包：

m <- matrix(as.numeric(runif(100) > 0.9), ncol = 10) # create random sparse matrix library(SparseM) image(as.matrix.csr(m)) # plot it :)