# Daten
values <- c(53.6, 7.2, 8.1, 1.09, 39.1)
labels <- c("Heterosexual", "Homosexual", "Lesbiana", "Bisexual", "Sin información")
percentages <- round(values / sum(values) * 100, 2)
labels <- paste(labels, "(", percentages, "%)", sep="")
colors <- c("lightblue", "lightgreen", "lightcoral", "lightyellow", "lightgray")

# Tortendiagramm erstellen
pie(values, labels = labels, col = colors, main = "Orientación sexual de las víctimas")