r - 如何在 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();