Sorry! I accidently printed the dataset below the other output. This should be it: (Note that the "Valuta" is currency and although all these might be "1" they are not for all observations)
And thanks!
structure(list(KOB = c(353, 353, 353, 676, 676, 676, 687, 687,
687, 687, 802, 802, 880, 880, 880, 921, 921, 921, 988, 988),
Erklaering = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 5L, 5L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Revision",
"Udvidet", "Review", "Assistance", "Ingen"), class = "factor"),
Aarets_res = c(-499, -464, -65, NA, NA, NA, -5, 17, 9, -5,
-210, -147, 59574, 63310, 55724, -17, 84, 31, 1822, 982),
Res_foer_skat = c(-666, -619, -72, NA, NA, NA, -5, 23, 12,
-3, -210, -147, 60609, 64540, 56781, -21, 111, 42, 2354,
1289), Valuta = c("DKK", "DKK", "DKK", "DKK", "DKK", "DKK",
"DKK", "DKK", "DKK", "DKK", "DKK", "DKK", "DKK", "DKK", "DKK",
"DKK", "DKK", "DKK", "DKK", "DKK"), aar = c("2012", "2011",
"2010", "2013", "2011", "2010", "2013", "2012", "2011", "2010",
"2011", "2010", "2012", "2011", "2010", "2012", "2011", "2010",
"2011", "2010"), Daekningsmaaneder = c(12, 12, 12, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12
), Hovedbranche = c(467400, 467400, 467400, 464210, 464210,
464210, 477110, 477110, 477110, 477110, 649900, 649900, 463300,
463300, 463300, 475220, 475220, 475220, 999999, 999999),
Ansatte = c("D", "D", "D", "I", "I", "I", "B", "B", "B",
"B", "B", "B", "B", "B", "B", "C", "C", "C", "B", "B"), Regionskode = c("Region Hovedstaden",
"Region Hovedstaden", "Region Hovedstaden", "Region Syddanmark",
"Region Syddanmark", "Region Syddanmark", "Region Hovedstaden",
"Region Hovedstaden", "Region Hovedstaden", "Region Hovedstaden",
"Region Syddanmark", "Region Syddanmark", "Region Midtjylland",
"Region Midtjylland", "Region Midtjylland", "Region Midtjylland",
"Region Midtjylland", "Region Midtjylland", "Region Midtjylland",
"Region Midtjylland"), IVS = c("APS", "APS", "APS", "Øvrige",
"Øvrige", "Øvrige", "APS", "APS", "APS", "APS", "APS", "APS",
"Øvrige", "Øvrige", "Øvrige", "APS", "APS", "APS", "A/S",
"A/S"), Branche = c("Taertier", "Taertier", "Taertier", "Taertier",
"Taertier", "Taertier", "Taertier", "Taertier", "Taertier",
"Taertier", "Taertier", "Taertier", "Taertier", "Taertier",
"Taertier", "Taertier", "Taertier", "Taertier", "Taertier",
"Taertier"), Nchar = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L,
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), DB07 = c("46",
"46", "46", "46", "46", "46", "47", "47", "47", "47", "64",
"64", "46", "46", "46", "47", "47", "47", "99", "99"), Valutacut = c("K",
"K", "K", "K", "K", "K", "K", "K", "K", "K", "K", "K", "K",
"K", "K", "K", "K", "K", "K", "K"), Valuta.y = c("Danish Krone",
"Danish Krone", "Danish Krone", "Danish Krone", "Danish Krone",
"Danish Krone", "Danish Krone", "Danish Krone", "Danish Krone",
"Danish Krone", "Danish Krone", "Danish Krone", "Danish Krone",
"Danish Krone", "Danish Krone", "Danish Krone", "Danish Krone",
"Danish Krone", "Danish Krone", "Danish Krone"), Valuta09 = c(1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1),
Valuta10 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1), Valuta11 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1), Valuta12 = c(1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), Valuta13 = c(1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1),
Valuta14 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1), Valuta15 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1), Valuta16 = c(1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), Valuta17 = c(1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1),
Valuta18 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1), Valuta19 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1)), row.names = c(NA, -20L), class = c("spec_tbl_df",
"tbl_df", "tbl", "data.frame"))