删除因子在R的矩阵列中只出现一次的列

# 创建一个示例矩阵
matrix <- matrix(c("A", "B", "C", "D", "A", "E", "F", "G", "H"), nrow = 3, ncol = 3, byrow = TRUE)
print("原始矩阵：")
print(matrix)

# 转置矩阵
transposed_matrix <- t(matrix)

# 计算每个因子的频数
frequencies <- table(transposed_matrix)

# 找出频数为1的因子所在的行索引
rows_to_delete <- which(frequencies == 1)

# 删除这些行
filtered_matrix <- matrix[-rows_to_delete, ]

# 再次转置矩阵
final_matrix <- t(filtered_matrix)

print("删除因子出现一次的列后的矩阵：")
print(final_matrix)