Beschreibung

Ein Kreisdiagramm ist ein Kreis, der in verschiedene Kreissektoren aufgeteilt ist. Der Kreis kann in zwei oder mehr Kreissektoren aufgeteilt werden, welche nicht gleich groß sein müssen. 100% entsprechen dem ganzen Kreis, also 360°. Zum Beispiel entsprechen 25% einem Viertelkreis und somit 1/4⋅360° = 360° : 4 = 90°.

Um also Prozentsätze in einem Kreisdiagramm darzustellen, rechnest du entweder mit der Prozentformel oder mit dem Dreisatz die entsprechenden Winkelgrößen aus.

Das Kreisdiagramm, auch Torten- oder Kuchendiagramm (engl. Pie chart) genannt, ist eine kreisförmige grafische Darstellung von relativen Anteilen, Prozenten oder Häufigkeiten verschiedener Klassen eines quantitativen statistischen Merkmals oder nominalskalierten Merkmals. Entsprechend der Häufigkeit oder des Anteils werden die Klassen in unterschiedlich großen Segmenten im Diagramm abgebildet. So sind die relativen Größen und damit die Bedeutung der einzelnen Klassen auf den ersten Blick zu erfassen.

Code

data <- data.frame(
  name=c( rep("braunhaarig",15),  
          rep("blond",5),
          rep("rothaarig",10),
          rep("schwarzhaarig",12),
          rep("bunthaarig",4))
  )
head(data)

BASE

mytable <- table(data$name)
mytable


        blond   braunhaarig    bunthaarig     rothaarig 
            5            15             4            10 
schwarzhaarig 
           12

pie (mytable) # einfaches Kreisdiagramm

myClr <- c("gold", "brown","green","red", "black") #Farbe

lbls <- paste(names(mytable),#Beschriftung
              "\n", #Zeilenumbruch
              mytable, sep="") #Anzahl der Ausprägungen

pie( # Erstelle ein Kreisdiagramm
  
  mytable, #Daten
    labels = lbls,#Bezeichnung
    col = myClr, #Farbe
   main="Kreidiagramm\n Haarfarben")

GGPlot

data <- data.frame(
 name <- c("blond","braunhaarig","bunthaarig","rothaarig","schwarzhaarig"),
 zahl <- c(mytable[1],mytable[2],mytable[3],mytable[4],mytable[5])
    )

colnames(data)[1] <- "name" #Spaltenname ändern
colnames(data)[2] <- "zahl"#Spaltenname ändern

head(data)


library(ggplot2)
 
ggplot(data, aes (x="", y = zahl, fill = factor(name))) + #Daten  einlesen
  geom_bar(width = 1, stat = "identity") + #immer so 
    coord_polar("y")+ # Kreisdiagramm
  geom_text(aes(label = paste(round(zahl / sum(zahl) * 100, 1), "%")), #Berechnung der Prozente
            position = position_stack(vjust = 0.5)) + #Position mittig
  
  theme_classic() + #Farbe
  
  theme(plot.title = element_text(hjust=0.5), #Titel Höhe
        axis.line = element_blank(), # keine Linie
        axis.text = element_blank())+ # keine Linietext

  
  
  labs(fill = "Haarfarbe", #Legend 
       x = NULL, # keine Achsenwerte 
       y = NULL, # keine Achsenwerte 
       title = "Kreisdiagramm") # Titel des Kreisdiagramms

data$name<-factor(data$name, levels=c("bunthaarig", "blond", "rothaarig","schwarzhaarig","braunhaarig")) # Anordnung aufsteigend der Prozente

head(data)

library(ggplot2)
 
ggplot(data, aes (x="", y = zahl, fill = factor(name))) + #Daten  einlesen
  geom_bar(width = 1, stat = "identity") + #immer so 
    coord_polar("y")+ # Kreisdiagramm
  geom_text(aes(label = paste(round(zahl / sum(zahl) * 100, 1), "%")), #Berechnung der Prozente
            position = position_stack(vjust = 0.5)) + #Postion mittig
  
  theme_classic() + #Farbe
  
  theme(plot.title = element_text(hjust=0.5), #Titel höhe
        axis.line = element_blank(), # keine Linie
        axis.text = element_blank(), # keine Linie
        axis.ticks = element_blank()) + # keine Linie
  
  
  labs(fill = "Haarfarbe", #Legend 
       x = NULL, # keine Achsenwerte 
       y = NULL, # keine Achsenwerte 
       title = "Kreisdiagramm") # Titel des Kreisdiagramms

LS0tDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQojIERlZmludGlvbiANCkRhcyBLcmVpc2RpYWdyYW1tIHdpcmQgZsO8ciBkaWUgRGFyc3RlbGx1bmcgdm9uIEFudGVpbGVuIGluIGVpbmVyIEdydXBwZSB2ZXJ3ZW5kZXQuDQoNCiMgQmVzY2hyZWlidW5nDQoNCkVpbiBLcmVpc2RpYWdyYW1tIGlzdCBlaW4gS3JlaXMsIGRlciBpbiB2ZXJzY2hpZWRlbmUgS3JlaXNzZWt0b3JlbiBhdWZnZXRlaWx0IGlzdC4gRGVyIEtyZWlzIGthbm4gaW4gendlaSBvZGVyIG1laHIgS3JlaXNzZWt0b3JlbiBhdWZnZXRlaWx0IHdlcmRlbiwgd2VsY2hlIG5pY2h0IGdsZWljaCBncm/DnyBzZWluIG3DvHNzZW4uIDEwMCUgZW50c3ByZWNoZW4gZGVtIGdhbnplbiBLcmVpcywgYWxzbyAzNjDCsC4gWnVtIEJlaXNwaWVsIGVudHNwcmVjaGVuIDI1JSBlaW5lbSBWaWVydGVsa3JlaXMgdW5kIHNvbWl0IDEvNOKLhTM2MMKwID0gMzYwwrAgOiA0ID0gOTDCsC4NCg0KVW0gYWxzbyBQcm96ZW50c8OkdHplIGluIGVpbmVtIEtyZWlzZGlhZ3JhbW0gZGFyenVzdGVsbGVuLCByZWNobmVzdCBkdSBlbnR3ZWRlciBtaXQgZGVyIFByb3plbnRmb3JtZWwgb2RlciBtaXQgZGVtIERyZWlzYXR6IGRpZSBlbnRzcHJlY2hlbmRlbiBXaW5rZWxncsO2w59lbiBhdXMuDQoNCkRhcyBLcmVpc2RpYWdyYW1tLCBhdWNoIFRvcnRlbi0gb2RlciBLdWNoZW5kaWFncmFtbSAoZW5nbC4gUGllIGNoYXJ0KSBnZW5hbm50LCBpc3QgZWluZSBrcmVpc2bDtnJtaWdlIGdyYWZpc2NoZSBEYXJzdGVsbHVuZyB2b24gcmVsYXRpdmVuIEFudGVpbGVuLCBQcm96ZW50ZW4gb2RlciBIw6R1Zmlna2VpdGVuIHZlcnNjaGllZGVuZXIgS2xhc3NlbiBlaW5lcyBxdWFudGl0YXRpdmVuIHN0YXRpc3Rpc2NoZW4gTWVya21hbHMgb2RlciBub21pbmFsc2thbGllcnRlbiBNZXJrbWFscy4gRW50c3ByZWNoZW5kIGRlciBIw6R1Zmlna2VpdCBvZGVyIGRlcyBBbnRlaWxzIHdlcmRlbiBkaWUgS2xhc3NlbiBpbiB1bnRlcnNjaGllZGxpY2ggZ3Jvw59lbiBTZWdtZW50ZW4gaW0gRGlhZ3JhbW0gYWJnZWJpbGRldC4gU28gc2luZCBkaWUgcmVsYXRpdmVuIEdyw7bDn2VuIHVuZCBkYW1pdCBkaWUgQmVkZXV0dW5nIGRlciBlaW56ZWxuZW4gS2xhc3NlbiBhdWYgZGVuIGVyc3RlbiBCbGljayB6dSBlcmZhc3Nlbi4gDQoNCg0KIyBWb3JhdXNzZXR6dW5nDQoNCuKckyBEaWUgenUgdW50ZXJzdWNoZW5kZSBNZXJrbWFsZSBzb2xsZW4ga2F0ZWdvcmlhbCAobm9taW5hbC0gb2RlciBvcmRpbmFsc2thbGllcnQpIHNlaW4uDQoNCiMgR2VzdGFsdHVuZw0KDQogICAgRmFyYmUNCiAgICBBY2hzZW5iZW5lbm51bmcNCiAgICDDnGJlcnNjaHJpZnRlbg0KDQoNCiMgQ29kZSANCg0KYGBge3J9DQpkYXRhIDwtIGRhdGEuZnJhbWUoDQogIG5hbWU9YyggcmVwKCJicmF1bmhhYXJpZyIsMTUpLCAgDQogICAgICAgICAgcmVwKCJibG9uZCIsNSksDQogICAgICAgICAgcmVwKCJyb3RoYWFyaWciLDEwKSwNCiAgICAgICAgICByZXAoInNjaHdhcnpoYWFyaWciLDEyKSwNCiAgICAgICAgICByZXAoImJ1bnRoYWFyaWciLDQpKQ0KICApDQpoZWFkKGRhdGEpDQpgYGANCg0KDQojIwlCQVNFDQoJDQpgYGB7cn0NCm15dGFibGUgPC0gdGFibGUoZGF0YSRuYW1lKQ0KbXl0YWJsZQ0KYGBgDQoJDQpgYGB7cn0NCnBpZSAobXl0YWJsZSkgIyBlaW5mYWNoZXMgS3JlaXNkaWFncmFtbQ0KYGBgDQoNCgkNCmBgYHtyfQ0KbXlDbHIgPC0gYygiZ29sZCIsICJicm93biIsImdyZWVuIiwicmVkIiwgImJsYWNrIikgI0ZhcmJlDQoNCmxibHMgPC0gcGFzdGUobmFtZXMobXl0YWJsZSksI0Jlc2NocmlmdHVuZw0KICAgICAgICAgICAgICAiXG4iLCAjWmVpbGVudW1icnVjaA0KICAgICAgICAgICAgICBteXRhYmxlLCBzZXA9IiIpICNBbnphaGwgZGVyIEF1c3Byw6RndW5nZW4NCg0KcGllKCAjIEVyc3RlbGxlIGVpbiBLcmVpc2RpYWdyYW1tDQogIA0KICBteXRhYmxlLCAjRGF0ZW4NCiAgICBsYWJlbHMgPSBsYmxzLCNCZXplaWNobnVuZw0KICAgIGNvbCA9IG15Q2xyLCAjRmFyYmUNCiAgIG1haW49IktyZWlkaWFncmFtbVxuIEhhYXJmYXJiZW4iKSANCmBgYA0KCQ0KIyMJR0dQbG90ICANCg0KYGBge3J9DQpkYXRhIDwtIGRhdGEuZnJhbWUoDQogbmFtZSA8LSBjKCJibG9uZCIsImJyYXVuaGFhcmlnIiwiYnVudGhhYXJpZyIsInJvdGhhYXJpZyIsInNjaHdhcnpoYWFyaWciKSwNCiB6YWhsIDwtIGMobXl0YWJsZVsxXSxteXRhYmxlWzJdLG15dGFibGVbM10sbXl0YWJsZVs0XSxteXRhYmxlWzVdKQ0KICAgICkNCg0KDQpgYGANCg0KYGBge3J9DQpjb2xuYW1lcyhkYXRhKVsxXSA8LSAibmFtZSIgI1NwYWx0ZW5uYW1lIMOkbmRlcm4NCmNvbG5hbWVzKGRhdGEpWzJdIDwtICJ6YWhsIiNTcGFsdGVubmFtZSDDpG5kZXJuDQpgYGANCg0KYGBge3J9DQpoZWFkKGRhdGEpDQpgYGANCg0KDQpgYGB7cn0NCg0KbGlicmFyeShnZ3Bsb3QyKQ0KIA0KZ2dwbG90KGRhdGEsIGFlcyAoeD0iIiwgeSA9IHphaGwsIGZpbGwgPSBmYWN0b3IobmFtZSkpKSArICNEYXRlbiAgZWlubGVzZW4NCiAgZ2VvbV9iYXIod2lkdGggPSAxLCBzdGF0ID0gImlkZW50aXR5IikgKyAjaW1tZXIgc28gDQogICAgY29vcmRfcG9sYXIoInkiKSsgIyBLcmVpc2RpYWdyYW1tDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZShyb3VuZCh6YWhsIC8gc3VtKHphaGwpICogMTAwLCAxKSwgIiUiKSksICNCZXJlY2hudW5nIGRlciBQcm96ZW50ZQ0KICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSkpICsgI1Bvc2l0aW9uIG1pdHRpZw0KICANCiAgdGhlbWVfY2xhc3NpYygpICsgI0ZhcmJlDQogIA0KICB0aGVtZShwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGhqdXN0PTAuNSksICNUaXRlbCBow7ZoZQ0KICAgICAgICBheGlzLmxpbmUgPSBlbGVtZW50X2JsYW5rKCksICMga2VpbmUgTGluaWUNCiAgICAgICAgYXhpcy50ZXh0ID0gZWxlbWVudF9ibGFuaygpKSsgIyBrZWluZSBMaW5pZXRleHQNCg0KICANCiAgDQogIGxhYnMoZmlsbCA9ICJIYWFyZmFyYmUiLCAjTGVnZW5kIA0KICAgICAgIHggPSBOVUxMLCAjIGtlaW5lIEFjaHNlbndlcnRlIA0KICAgICAgIHkgPSBOVUxMLCAjIGtlaW5lIEFjaHNlbndlcnRlIA0KICAgICAgIHRpdGxlID0gIktyZWlzZGlhZ3JhbW0iKSAjIFRpdGVsIGRlcyBLcmVpc2RpYWdyYW1tcw0KDQpgYGANCg0KYGBge3J9DQpkYXRhJG5hbWU8LWZhY3RvcihkYXRhJG5hbWUsIGxldmVscz1jKCJidW50aGFhcmlnIiwgImJsb25kIiwgInJvdGhhYXJpZyIsInNjaHdhcnpoYWFyaWciLCJicmF1bmhhYXJpZyIpKSAjIEFub3JkbnVuZyBhdWZzdGVpZ2VuZCBkZXIgUHJvemVudGUNCg0KaGVhZChkYXRhKQ0KYGBgDQoNCg0KDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KIA0KZ2dwbG90KGRhdGEsIGFlcyAoeD0iIiwgeSA9IHphaGwsIGZpbGwgPSBmYWN0b3IobmFtZSkpKSArICNEYXRlbiAgZWlubGVzZW4NCiAgZ2VvbV9iYXIod2lkdGggPSAxLCBzdGF0ID0gImlkZW50aXR5IikgKyAjaW1tZXIgc28gDQogICAgY29vcmRfcG9sYXIoInkiKSsgIyBLcmVpc2RpYWdyYW1tDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZShyb3VuZCh6YWhsIC8gc3VtKHphaGwpICogMTAwLCAxKSwgIiUiKSksICNCZXJlY2hudW5nIGRlciBQcm96ZW50ZQ0KICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSkpICsgI1Bvc3Rpb24gbWl0dGlnDQogIA0KICB0aGVtZV9jbGFzc2ljKCkgKyAjRmFyYmUNCiAgDQogIHRoZW1lKHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoaGp1c3Q9MC41KSwgI1RpdGVsIGjDtmhlDQogICAgICAgIGF4aXMubGluZSA9IGVsZW1lbnRfYmxhbmsoKSwgIyBrZWluZSBMaW5pZQ0KICAgICAgICBheGlzLnRleHQgPSBlbGVtZW50X2JsYW5rKCksICMga2VpbmUgTGluaWUNCiAgICAgICAgYXhpcy50aWNrcyA9IGVsZW1lbnRfYmxhbmsoKSkgKyAjIGtlaW5lIExpbmllDQogIA0KICANCiAgbGFicyhmaWxsID0gIkhhYXJmYXJiZSIsICNMZWdlbmQgDQogICAgICAgeCA9IE5VTEwsICMga2VpbmUgQWNoc2Vud2VydGUgDQogICAgICAgeSA9IE5VTEwsICMga2VpbmUgQWNoc2Vud2VydGUgDQogICAgICAgdGl0bGUgPSAiS3JlaXNkaWFncmFtbSIpICMgVGl0ZWwgZGVzIEtyZWlzZGlhZ3JhbW1zDQpgYGANCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0K

Defintion

Beschreibung

Voraussetzung

Gestaltung

Code

BASE

GGPlot