r 中 2x3 数据帧的意外事件 table

Question

我有这个df

Genero   Frustrado  No frustrado
<chr>      <int>        <int>
Hombre      138           9 
Mujer       145          12

我需要把它变成这样的应急措施table：


                Frustrado  
Genero       Si          No
    
Hombre      138           9 
Mujer       145          12

如何使用简单的代码块来完成？（我需要多次复制这个，我不想每次都写向量）

谢谢！

Answer 1

也许你可以试试下面的代码

`dimnames<-`(
  as.table(as.matrix(df[-1])),
  list(Genero = df$Genero, Frustrado = c("si", "No"))
)

这给出了

        Frustrado
Genero    si  No
  Hombre 138   9
  Mujer  145  12

数据

> dput(df)
structure(list(Genero = c("Hombre", "Mujer"), Frustrado = c(138L,
145L), `No frustrado` = c(9L, 12L)), class = "data.frame", row.names = c(NA,
-2L))

Answer 2

我们可以使用column_to_rownames

library(tibble)
out <- df %>%
          column_to_rownames('Genero') %>%
          as.matrix

names(dimnames(out)) <- names(df)[1:2]

数据

df <- structure(list(Genero = c("Hombre", "Mujer"), Frustrado = c(138L,
145L), `No frustrado` = c(9L, 12L)), class = "data.frame", row.names = c(NA,
-2L))

r 中 2x3 数据帧的意外事件 table

Contingency table from a 2x3 dataframe in r

r

arrays

dataframe

contingency

数据