在R中组合两个表/数组

4nkexdtk 于 2023-01-06 发布在其他

关注(0)|答案(2)|浏览(97)

使用我的Data，我想知道是否有一种方法可以实现我的Desired_output（table或matrix类的对象）？
我尝试了以下方法，但没有成功：

with(Data, table(group, task_type, time.))

Data = data.frame(group=rep(c("Sim","Com"), each=4), 
           task_type = c(rep(c("S","C"),2),rep(c("C","S"),2)),
           time = time <- rep(1:4,2), 
           time. = ifelse(time%%2==1, "odd", "even"))


Desired_output="
               task_type
  group      C         S
   Com      odd       even
   Sim      even      odd
  "

来源：https://stackoverflow.com/questions/74998962/combining-two-tables-arrays-in-r

2条答案

按热度按时间

rqenqsqc1#

我们可以在用pivot_wider整形为"宽"并转换为table之前获得distinct行

library(dplyr)
library(tidyr)
out <- Data %>% 
   distinct(group, task_type, time.) %>%
   pivot_wider(names_from = task_type, values_from = time.) %>% 
   column_to_rownames("group") %>%
   as.matrix %>%
   as.table
names(dimnames(out)) <- names(Data)[1:2]

输出

> out
     task_type
group S    C   
  Sim odd  even
  Com even odd

赞(0）回复(0）举报 2023-01-06

gpnt7bae2#

或许：

bb <- with(Data, table(group, task_type, time.))[,,1]

bb[] <- matrix(c("odd", "even", "even", "odd"), ncol = 2)
bb

# Output:
    task_type
group C    S   
  Com odd  even
  Sim even odd

赞(0）回复(0）举报 2023-01-06

我来回答

在R中组合两个表/数组

2条答案

相关问题

热门标签

最新问答