记住缺失值，记住矩形

Question

我有一个数据集，其中数字表示特定的颜色。由于我有大量数据集，我正在共享样本数据和工作。我期待着创造这个

输出

d <- matrix(c(
     1, 1,  1,  1,  1,  1,
1,  1,  1,  1,  1,  1,
1,  1,  1,  1,  1,  1,
1,  2,  2,  2,  2,  1,
1,  2,  3,  3,  2,  1,
1,  2,  3,  3,  2,  1,
1,  2,  3,  3,  2,  1,
1,  2,  3,  3,  2,  1,
1,  2,  2,  2,  2,  1,
1,  1,  1,  1,  1,  1,
1,  1,  1,  1,  1,  1,
1,  1,  1,  1,  1,  1,
1,  1,  1,  1,  1,  1), nrow=13, byrow = TRUE)

来自输入：

d_mi <- d
d_mi[ sample(1:length(d), length(d)*0.3) ] <- NA
d_mi

可选：输出（彩色模式）