Wie die Etiketten weiter vom Kreisdiagramm

Wie die Etiketten weiter vom Kreisdiagramm in R?

slices <- c(10, 12, 4, 16, 8)
lbls <- c("US", "UK", "Australia", "Germany", "France")
pct <- round(slices/sum(slices)*100)
lbls <- paste(lbls, pct) # add percents to labels
lbls <- paste(lbls,"%",sep="") # ad % to labels
pie(slices,labels = lbls, col=rainbow(length(lbls)), radius=.2)

Wie die Etiketten weiter vom Kreisdiagramm

  • Einfach nicht mit pie-charts. Ein bar-plot ist viel informativer.
  • Meinst du es gibt keine Möglichkeit? Dies ist nur ein Beispiel... ich bin mit dem Kreisdiagramm nur für die Legende von Sterne - Diagramm, aber ich will doch formatieren Sie das Kreisdiagramm.
  • Es ist wahrscheinlich ein Weg, dies zu tun, aber pie-charts sind nur auf einen sehr schlechten Weg, der Visualisierung von Daten.
  • Nur merken Sie sich diesen Rat: klmr.mir/pie
  • Nice one! Wie gesagt, ich bin hauptsächlich mit der stars chart. Das Kreisdiagramm ist nur meine Legende...
InformationsquelleAutor wittich | 2015-10-21
  1. 5

    Können Sie ändern Sie die pie-Funktion line 50-54 und speichern Sie es als eine neue Funktion pie2

    Typ

    pie

    Ändern Sie Zeile 50-54 zu

    if (!is.na(lab) && nzchar(lab)) {
  lines(c(1, 1.35) * P$x, c(1, 1.35) * P$y)
  text(1.5 * P$x, 1.5 * P$y, labels[i], xpd = TRUE, 
       adj = ifelse(P$x < 0, 1, 0), ...)
}

    Ändern Sie die Länge der Linie (default = 1.05)

      lines(c(1, 1.35) * P$x, c(1, 1.35) * P$y)

    Ändern Sie den Faktor (default = 1.1)

      text(1.5 * P$x, 1.5 * P$y, labels[i], xpd = TRUE, 
       adj = ifelse(P$x < 0, 1, 0), ...)

    Definieren Sie nun pie2 und führen Sie die neue Funktion

    pie2(slices,labels = lbls, col=rainbow(length(lbls)), radius=.2)

    Wie die Etiketten weiter vom Kreisdiagramm

    InformationsquelleAutor harre
  2. 3

    Könnte man manuell text platzieren mit text() und erstellen Sie keine Etiketten von rep("",times).

    Aber ich bin damit einverstanden, pie-charts sind eine schlechte Möglichkeit zur Visualisierung von Daten.

    Einige code,

    pie(slices,labels = rep("",5), col=rainbow(length(lbls)), radius=.8,lty=4)
text(0.9,0.6,"UK")
lines(c(0.6,0.85),c(0.45,0.55))

    und richten Sie alles wie Sie es möchten.

    Wenn Sie nur wollen, erstellen Sie ein einziges Kreisdiagramm ist dies eine option, aber immer alle diese Koordinaten Recht kann sehr frustrierend sein..

    Sorry, ich würde kommentiert haben, eher dann beantwortet werden, wenn ich hatte die option.

    • Fast, aber die Antworten, ist nur akzeptabel, wenn ich berechnen kann, die Positionen der text-und der linepoints...
    InformationsquelleAutor Sebastian
  3. 0

    Können Sie ggplot zu bilden, das pie-chart. Diese erhalten die Etiketten getrennt von der pie-chart als eine Legende.

    # R version 3.2.2
install.packages("ggplot2") 
library("ggplot2")
slices <- c(10, 12, 4, 16, 8)
lbls <- c("US", "UK", "Australia", "Germany", "France")
pct <- round(slices/sum(slices)*100)
lbls <- paste(lbls, pct) # add percents to labels
lbls <- paste(lbls,"%",sep="") # ad % to labels
df = data.frame(slices = slices,labels =  lbls)
ggplot(df,aes(x = factor(1),fill = labels))+
        geom_bar(width = 1)+
        coord_polar(theta = "y")+
        theme(axis.title = element_blank())

    Wie die Etiketten weiter vom Kreisdiagramm

    • Das war eigentlich nicht die Frage... Finden Sie die richtige Antwort aus @harre. Aber danke für den Versuch.
    InformationsquelleAutor Haritha Elango
Schreibe einen Kommentar