R 混合格式的表格-长和宽

我有一个表，其中每个变量都有一定数量的类。我想知道每堂课的观察量。我所有的变量都以长格式组织，只有一个-

HINCFEL

。我想把变量转换成长格式，就像所有其他变量一样，并添加一个包含观察计数的列：例如，我知道我对

GNDR

的观察数为1，同时

AGE

为1，同时

EDUC

为1，同时

ACTIVITY

为1，同时

HINCFEL

为1

structure(c("       ", "\"CNTRY\"", "\"BE\"   ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "       ", 
            "       ", "       ", "       ", "       ", "       ", "      ", 
            "\"GNDR\"", "\"1\"   ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "      ", "      ", "      ", "      ", 
            "      ", "      ", "      ", "     ", "\"AGE\"", "\"1\"  ", 
            "     ", "     ", "     ", "     ", "     ", "     ", "     ", 
            "     ", "     ", "     ", "     ", "     ", "     ", "     ", 
            "\"2\"  ", "     ", "     ", "     ", "     ", "     ", "     ", 
            "     ", "     ", "     ", "     ", "     ", "     ", "     ", 
            "     ", "\"3\"  ", "     ", "     ", "     ", "     ", "     ", 
            "     ", "     ", "     ", "     ", "     ", "     ", "     ", 
            "     ", "     ", "\"4\"  ", "     ", "     ", "     ", "     ", 
            "      ", "\"EDUC\"", "\"1\"   ", "      ", "      ", "      ", 
            "      ", "\"2\"   ", "      ", "      ", "      ", "      ", 
            "\"3\"   ", "      ", "      ", "      ", "      ", "\"1\"   ", 
            "      ", "      ", "      ", "      ", "\"2\"   ", "      ", 
            "      ", "      ", "      ", "\"3\"   ", "      ", "      ", 
            "      ", "      ", "\"1\"   ", "      ", "      ", "      ", 
            "      ", "\"2\"   ", "      ", "      ", "      ", "      ", 
            "\"3\"   ", "      ", "      ", "      ", "      ", "\"1\"   ", 
            "      ", "      ", "      ", "      ", "          ", "\"ACTIVITY\"", 
            "\"1\"       ", "\"2\"       ", "\"3\"       ", "\"4\"       ", 
            "\"5\"       ", "\"1\"       ", "\"2\"       ", "\"3\"       ", 
            "\"4\"       ", "\"5\"       ", "\"1\"       ", "\"2\"       ", 
            "\"3\"       ", "\"4\"       ", "\"5\"       ", "\"1\"       ", 
            "\"2\"       ", "\"3\"       ", "\"4\"       ", "\"5\"       ", 
            "\"1\"       ", "\"2\"       ", "\"3\"       ", "\"4\"       ", 
            "\"5\"       ", "\"1\"       ", "\"2\"       ", "\"3\"       ", 
            "\"4\"       ", "\"5\"       ", "\"1\"       ", "\"2\"       ", 
            "\"3\"       ", "\"4\"       ", "\"5\"       ", "\"1\"       ", 
            "\"2\"       ", "\"3\"       ", "\"4\"       ", "\"5\"       ", 
            "\"1\"       ", "\"2\"       ", "\"3\"       ", "\"4\"       ", 
            "\"5\"       ", "\"1\"       ", "\"2\"       ", "\"3\"       ", 
            "\"4\"       ", "\"5\"       ", "\"HINCFEL\"", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "         ", 
            "         ", "         ", "         ", "         ", "\"1\"", 
            "   ", "  4", "  0", "  0", " 25", "  1", " 10", "  1", "  0", 
            " 12", "  3", " 28", "  1", "  0", "  2", "  1", "  7", "  0", 
            "  0", "  0", "  1", " 27", "  0", "  0", "  0", "  0", " 41", 
            "  1", "  0", "  0", "  1", "  8", "  0", "  1", "  0", "  2", 
            " 34", "  0", "  2", "  0", "  2", " 33", "  0", "  1", "  0", 
            "  1", "  1", "  0", " 13", "  0", "  3", "\"2\"", "   ", "  7", 
            "  1", "  0", " 13", "  2", " 17", "  0", "  0", "  9", "  5", 
            " 15", "  0", "  0", "  3", "  0", "  8", "  0", "  0", "  0", 
            "  0", " 44", "  1", "  0", "  0", "  1", " 29", "  0", "  0", 
            "  0", "  1", " 24", "  1", "  3", "  0", "  5", " 34", "  0", 
            "  7", "  0", "  0", " 16", "  1", "  1", "  0", "  4", "  1", 
            "  1", " 41", "  0", "  1", "\"3\"", "   ", "  1", "  1", "  0", 
            "  5", "  2", "  5", "  4", "  0", "  2", "  0", "  1", "  2", 
            "  0", "  0", "  1", " 14", "  2", "  0", "  1", "  1", " 19", 
            "  5", "  0", "  0", "  3", "  4", "  1", "  0", "  1", "  0", 
            "  8", "  2", "  2", "  0", "  6", "  9", "  0", "  2", "  0", 
            "  3", "  5", "  0", "  0", "  0", "  1", "  2", "  0", " 19", 
            "  0", "  4", "\"4\"", "   ", "  2", "  0", "  0", "  1", "  0", 
            "  0", "  0", "  0", "  1", "  0", "  0", "  0", "  0", "  0", 
            "  0", "  1", "  4", "  0", "  0", "  0", "  1", "  2", "  0", 
            "  0", "  0", "  0", "  0", "  0", "  1", "  0", "  3", "  0", 
            "  0", "  0", "  1", "  0", "  1", "  0", "  0", "  3", "  0", 
            "  2", "  0", "  0", "  0", "  0", "  2", "  1", "  0", "  1"
), .Dim = c(52L, 10L), .Dimnames = list(c("", "", "", "", "", 
                                          "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
                                          "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
                                          "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""), 
                                        c("", "", "", "", "", "", "", "", "", "")), class = "noquote")

---

这些数据需要一个公平的工作，使之成为标准矩阵或数据帧，甚至在你考虑重新塑造它之前。它看起来像一个矩阵，但列名分布在实际数据的三行中。我会返回一两步，并从您的源数据第一次正确地导入它。如果它来自Excel PIVOT找到重复标签的选项，它将帮助数据需要一个公平的工作，使其成为标准矩阵或数据帧，甚至在考虑重新整形之前。它看起来像一个矩阵，但列名分布在实际数据的三行中。我会返回一两步，首先从源数据正确导入它。如果它来自excel pivot，请找到重复标签的选项，这会有所帮助