制作应急表

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