如何在单元格中分隔多个数值数据值并查找每列的总数？

Question

我在一个单元格中有两个数字数据值，我想将它们分开以查找每列的总数和百分比。

等:

tbody> <<tr>12111

组织	媒体
1, 2	1
	1, 2
	1
	1
	1
	1

我们可以试试

lapply(df1,  function(x) proportions(table(as.numeric(unlist(strsplit(x, ","))))))

或

lapply(df1,  function(x) addmargins(table(as.numeric(unlist(strsplit(x, ","))))))

数据

df1 <- structure(list(Organization = c("1,2", "1", "2", "1", "3", "1", 
"1"), Media = c("1", "1,2", "3", "1,4", "4", "1", "2")), class = "data.frame", row.names = c(NA, 
-7L))