混合格式的表 - 长和宽

Question

我有这个表，其中每个变量都有一定数量的类。我想知道每个班级的观察数量。我的所有变量都以长格式组织，但只有一个 - 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")