R 如何创建一个矩阵，每行有四个 1 交错排列

1 0 0
1 0 0
1 0 0
1 0 0
0 1 0 
0 1 0
0 1 0 
0 1 0 
0 0 1
0 0 1
0 0 1
0 0 1

unname(model.matrix(~gl(3,4) + 0))

      [,1] [,2] [,3]
 [1,]    1    0    0
 [2,]    1    0    0
 [3,]    1    0    0
 [4,]    1    0    0
 [5,]    0    1    0
 [6,]    0    1    0
 [7,]    0    1    0
 [8,]    0    1    0
 [9,]    0    0    1
[10,]    0    0    1
[11,]    0    0    1
[12,]    0    0    1

as.matrix(Matrix::bdiag(rep(list(rep(1,4)),3)))

      [,1] [,2] [,3]
 [1,]    1    0    0
 [2,]    1    0    0
 [3,]    1    0    0
 [4,]    1    0    0
 [5,]    0    1    0
 [6,]    0    1    0
 [7,]    0    1    0
 [8,]    0    1    0
 [9,]    0    0    1
[10,]    0    0    1
[11,]    0    0    1
[12,]    0    0    1

as.matrix(Matrix::bdiag(replicate(3, numeric(4)+1, FALSE)))

R相关问答推荐

如何在热图中绘制一个图形，但在每个单元格中通过饼形图显示？

从gtsummary包中使用tBL_strata()和tBL_summary()时删除变量标签

r替换lme S4对象的字符串的一部分

计算时间段的ECDF(R)

标识R中多个列中缺少的唯一值

使用整齐的计算(curl -curl )和杂音

使用rvest从多个页面抓取时避免404错误

如何基于两个条件从一列中提取行

计算数据帧中指定值之前的行数，仅基于每行之后的future 行，单位为r

基于Key->Value数据帧的基因子集相关性提取

远离理论值的伽马密度曲线下面积的近似

如果条件匹配，则使用Mariate粘贴列名

减少雨云面之间的间距并绘制所有统计数据点

是否可以将线性模型的p值添加到tbl_summary中

R中治疗序列的相对时间指数

主题(Legend.key=Element_RECT(Fill=&Quot；White&Quot；))不起作用

是否有一个R函数可以输出在输入的字符向量中找到的相应正则表达式模式？

替换在以前工作的代码中有x行&q；错误(geom_sf/gganimate/dow_mark)

策略表单连接两个非常大的箭头数据集，而不会 destruct 内存使用

如何在一种 colored颜色 中设置数值变量的 colored颜色 和高于阈值的 colored颜色 点？