2016-05-18 9 views
0

Ich führe Deskriptive Analyse in Excel in diesen Tagen. Aber als R Lerner i (. Ca.) reproduzieren will die Excel-Grafiken in R durch R eigene Codierung verwendet wird, Pakete, etc. Hier ist ein Beispiel von Daten: dummy dataReproduzieren von Excel-Grafiken mit einigen Anmerkungen in R?

und Excel Graph ist

Excel output of above data

Als Anfänger beim Lernen von R meine Frage ist ziemlich einfach: "Wie dieses Excel-Diagramm in R mit Hilfe von Basis-Plotting, Gitter oder ggplot2, was auch immer ansprechend ist? Jede Hilfe würde sehr geschätzt werden !!!

+1

dies (http://www.inside-r.org/packages/cran/ggthemes/docs/theme_excel) sollte Ihnen beim Start helfen – MLavoie

+1

Wären Sie in der Lage, Ihre Daten mit einem Datensatz zu veröffentlichen, der leicht zu lesen ist R? Sehen Sie sich diese [post] (http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example?rq=1) Vorschläge an, wie Sie dies tun können. –

Antwort

1

Ihre Frage ist eine mehrteilige Frage, abhängig davon, welche Elemente der Handlung wichtig sind. Hier ist eine Methode, um diese Figur unter Verwendung ggplot2 zu reproduzieren.

Zunächst erstelle ich einen reproduzierbaren Daten-Set:

df <- data.frame(
Group1 = factor(rep(c("A", "Fially", "AC"), each = 3), 
    levels = c("A", "Fially", "AC")), 
Group2 = factor(c("B", "GGF", "Kp"), 
    levels = c(c("B", "GGF", "Kp"))), 
Value = c(100, 5, 6, 200, 42, 21, 300, 80, 15) 
) 

Beachten Sie, dass Sie benötigen, um Ihre Faktoren neu zu ordnen (siehe Reorder levels of a factor without changing order of values für weitere Hilfe bei diesem, wenn Sie es brauchen).

Zweitens, plotte ich die Daten mit ggplot2 mit einem Balken-Plot (siehe die Dokumentation here).

library(ggplot2) 
ggOut <- ggplot(data = df, aes(x = Group1, 
       y = Value, fill = Group2)) + 
     geom_bar(stat="identity", position="dodge") + 
     theme_bw() + 
     ylab("") + 
     xlab("") + 
     scale_fill_manual(name = "", 
          values = c("red", "blue", "black")) 

print(ggOut) 
ggsave(ggOut) 

Dieser Code gibt Ihnen diese Figur: enter image description here

die Legende zu ändern, folgte ich this guide.