制作列联表

Question

我在列联表方面遇到了麻烦。

我想转换那种表：

dat <- read.csv(text="Gatunek,Obecnosc,Lokalizacja,Frekwencja
Koń dziki,TAK,Polska,11
Koń dziki,NIE,Polska,14
Koń dziki,TAK,Kujawy,39
Koń dziki,NIE,Kujawy,31",header=TRUE)

#  Gatunek Obecnosc Lokalizacja Frekwencja
#Koń dziki      TAK      Polska         11
#Koń dziki      NIE      Polska         14
#Koń dziki      TAK      Kujawy         39
#Koń dziki      NIE      Kujawy         31

到此：

不要害怕，它只是波兰语。 那一刻我只有一张看起来像这样的桌子：

Answer 1

xtabs应该这样做：

x <- data.frame(a = c(1, 2, 1, 2), b = c("a", "a", "b", "b"), c = c(11, 14, 39, 31))
xtabs(c ~ a + b, data = x)

#   b
#a    a  b
#  1 11 39
#  2 14 31