将R中的数据框中的值用于名称和行名

Question

我是ShinyR的新手，我想将现有数据框的列中的值转换为行名，并将列中的值转换为col名。像这样的数据：

   Date             Type  Count 
  23 May 2005        A     2
  24 May 2005        B     1 
  25 May 2005        D     3  
  26 May 2005        D     3   
  26 May 2005        A     3   

进入此：

   23 May 2005   24 May 2005  25 May 2005   26 May 2005 
 A        2          0             0             3
 B        0          1             1             0
 Other    0          0             3             3 

我尝试过：

vcol <- length(data$date)
table119 <- matrix(data$count, ncol=vcol,byrow=TRUE)
rownames(table119) <- data$type
colnames(table119) <- data$date
table_stathas <- - DT::renderDataTable({table119()})

但它不起作用

它与Convert the values in a column into row names in an existing data frame in R不同，我想使用日期和类型列的值（不是唯一的）来更改列名和行名

Answer 1

一个base R选项将会

df$Type[!df$Type %in% c("A", "B")] <- "Other"
xtabs(Count ~ Type + Date, df)