将R数据a帧转换为矩阵的行和列名称的两种元素。

I want to converting R data.frame to matrix with levels of two factors as row and column names of the matrix. Here is a MWE. It is a lot of code to get the desired result and there might be more compact code for this purpose. wit