我有一个二维对象（数字），我正在尝试创建以下输出，用于表格（markdown格式）。 当前对象只有7x7，所以我已经手动完成了，但是预计未来会有更大的对象，并且想要找出正确的方法。
我想在保持行不变的情况下迭代列，然后将行对象迭代一次并继续该过程。
我尝试编写各种函数并传递多个参数，并与apply一起但无法找出边距/模式。
paste(dalym[1,1], "|", dalym[1,2], " (", dalym[1,3], ")|", dalym[1,4], " (", dalym[1,5], ")|", dalym[1,6], " (", dalym[1,7], ")|", dalyp[1,],"%", sep="")
paste(dalym[2,1], "|", dalym[2,2], " (", dalym[2,3], ")|", dalym[2,4], " (", dalym[2,5], ")|", dalym[2,6], " (", dalym[2,7], ")|", dalyp[2,],"%", sep="")
paste(dalym[3,1], "|", dalym[3,2], " (", dalym[3,3], ")|", dalym[3,4], " (", dalym[3,5], ")|", dalym[3,6], " (", dalym[3,7], ")|", dalyp[3,],"%", sep="")
paste(dalym[4,1], "|", dalym[4,2], " (", dalym[4,3], ")|", dalym[4,4], " (", dalym[4,5], ")|", dalym[4,6], " (", dalym[4,7], ")|", dalyp[4,],"%", sep="")
paste(dalym[5,1], "|", dalym[5,2], " (", dalym[5,3], ")|", dalym[5,4], " (", dalym[5,5], ")|", dalym[5,6], " (", dalym[5,7], ")|", dalyp[5,],"%", sep="")
paste(dalym[6,1], "|", dalym[6,2], " (", dalym[6,3], ")|", dalym[6,4], " (", dalym[6,5], ")|", dalym[6,6], " (", dalym[6,7], ")|", dalyp[6,],"%", sep="")
paste(dalym[7,1], "|", dalym[7,2], " (", dalym[7,3], ")|", dalym[7,4], " (", dalym[7,5], ")|", dalym[7,6], " (", dalym[7,7], ")|", dalyp[7,],"%", sep="")