r 中 2x3 数据帧的意外事件 table
Contingency table from a 2x3 dataframe in r
我有这个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
如何使用简单的代码块来完成?
(我需要多次复制这个,我不想每次都写向量)
谢谢!
也许你可以试试下面的代码
`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))
我们可以使用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))
我有这个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
如何使用简单的代码块来完成? (我需要多次复制这个,我不想每次都写向量)
谢谢!
也许你可以试试下面的代码
`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))
我们可以使用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))