data <- read.csv("Daten.csv")

print(data)

                             Linkin_Park        Test Zahl
1  http://www.wikidata.org/entity/Q13171 Reanimation    1
2  http://www.wikidata.org/entity/Q13171 Reanimation    1
3  http://www.wikidata.org/entity/Q13171 Reanimation    1
4  http://www.wikidata.org/entity/Q13171 Reanimation    1
5  http://www.wikidata.org/entity/Q13171 Reanimation    1
6  http://www.wikidata.org/entity/Q13171 Reanimation    1
7  http://www.wikidata.org/entity/Q13171 Reanimation    1
8  http://www.wikidata.org/entity/Q13171 Reanimation    1
9  http://www.wikidata.org/entity/Q13171 Reanimation    1
10 http://www.wikidata.org/entity/Q13171 Reanimation    1
11 http://www.wikidata.org/entity/Q13171 Reanimation    1
12 http://www.wikidata.org/entity/Q13171 Reanimation    1
13 http://www.wikidata.org/entity/Q13171 Reanimation    1
14 http://www.wikidata.org/entity/Q13171 Reanimation   14
15 http://www.wikidata.org/entity/Q13171 Reanimation   15
16 http://www.wikidata.org/entity/Q13171 Reanimation   16
17 http://www.wikidata.org/entity/Q13171 Reanimation   17
18 http://www.wikidata.org/entity/Q13171 Reanimation   18
19 http://www.wikidata.org/entity/Q13171 Reanimation   19
20 http://www.wikidata.org/entity/Q13171 Reanimation   20
21 http://www.wikidata.org/entity/Q13171 Reanimation   21
22 http://www.wikidata.org/entity/Q13171 Reanimation   22
23 http://www.wikidata.org/entity/Q13171 Reanimation   23
24 http://www.wikidata.org/entity/Q13171 Reanimation   24
25 http://www.wikidata.org/entity/Q13171 Reanimation   25

sub <- subset(data, Zahl == 1)
write.csv(sub, file="Datenfilter.csv")