r - Making contingency table

Question

I'm having trouble with contingency table.

I want to convert that kind of table:

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

to this:

Don't be afraid, it's just Polish language. For that moment I only have table which look like this:

Answer 1

xtabs should do the trick:

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