#Einlesen der Daten druck<-read.csv2("Druckfestigkeit.csv") #Schleiforte anzeigen druck$S #Häufigkeitstabelle table(druck$S) #Tortendiagramm pie(table(druck$S),main="Kreisdiagramm der Schleiforte") #Analog für Prüforte #Prüforte anzeigen druck$P #Häufigkeitstabelle table(druck$P) #Tortendiagramm pie(table(druck$P),main="Kreisdiagramm der Prüforte")