分割的數據幀的一列

Question

我已列命名的變量和與它們相關聯的一些值：

Variable Value 
A D   5 
A D   5 
B D   5 
B E   5 
C E   5 
C E   5 

凡（AD），（BD），（BE），（CE）是一些名稱我正在分析。我怎樣才能拆我的專欄成2個獨立柱與柱1的一個因素柱：

Column1 
A:2 
B:2 
C:2 

和列2以下相似的結構：

Column2 
D:3 
E:3 

Answer 1

因爲列1和列2有不同行號，所以我用列表來存儲結果。

data <- data.frame(
    Variable = c("A D", "A D", "B D", "B E", "C E", "C E"), 
    Value = rep(5, 6) 
) 
split_var <- function(variable){ 
    return(strsplit(variable, " ")[[1]]) 
} 
variable_mat <- t(apply(matrix(data[,1], ncol=1), 1, split_var)) 
Column1_table <- table(variable_mat[,1]) 
Column1 <- paste(names(Column1_table), Column1_table, sep = ":") 

Column2_table <- table(variable_mat[,2]) 
Column2 <- paste(names(Column2_table), Column2_table, sep = ":") 

result_list <- list(Column1 = Column1, Column2 = Column2) 

而結果：

> result_list 
$Column1 
[1] "A:2" "B:2" "C:2" 

$Column2 
[1] "D:3" "E:3"