Die Verteilung von Zwei Daten-Frames (in die Andere) in R

Wie würde ich das unterteilen einer Daten-frame von einem anderen? Die zwei Daten-Rahmen haben die gleichen Spalten und die gleichen Zeilen, aber ich muss mich teilen alle schneiden mit den entsprechenden schneiden, in eine neue Daten-frame, z.B. unter:

DF1
Name    Jan    Feb    Mar
Aaron     2      4      3
Blake     5      6      4

DF2
Name    Jan    Feb    Mar
Aaron     4      6      6
Blake     7      6      5

DF1/DF2 = DF3

DF3 (result)
Name    Jan    Feb    Mar
Aaron   0.5    0.7    0.5
Blake   0.7    1.0    0.8

Ich bin mit der Teilmenge dann dcast bauen jedes Daten-frame, aber haben eine harte Zeit, herauszufinden, wie Sie zu teilen. Vielen Dank für Ihre Hilfe!

InformationsquelleAutor stevenjoe | 2015-11-08
  1. 6

    Teilen wir die numerische Spalten in beiden 'DF1' und 'DF2' (durch entfernen der ersten Spalte) und cbind mit der ersten Spalte.

    DF3 <- cbind(DF1[1],round(DF1[-1]/DF2[-1],1))
DF3
#    Name Jan Feb Mar
# 1 Aaron 0.5 0.7 0.5
# 2 Blake 0.7 1.0 0.8
    • Funktioniert das mit dataframes mit einigen Spalten und Zeilen, die nicht übereinstimmen?
    • Hier sind wir nur unter Berücksichtigung der Abmessungen zu entsprechen
    InformationsquelleAutor akrun
  2. 2

    Da Sie erwähnen, dass Sie verwendet werden subset und dcast bauen jedes Daten-frame, ich vermute, Sie haben diese Daten bereits alle in einem Daten-frame, in dem Fall die Zuweisung der Rolle des numerator und denominator mag alles, was Sie tun müssen, um starten Sie die Berechnung mit ddply. Zum Beispiel als ich mit deinen Beispiel-Daten und Schmelzen ihn wieder in eine long-form-Daten-frame, würde Ihnen die folgenden mit einer einzigen ddply:

    # data
DF1 <- data.frame(Name = c("Aaron", "Blake"), Jan = c(2, 5), Feb = c(4, 6), Mar = c(3, 4))
DF2 <- data.frame(Name = c("Aaron", "Blake"), Jan = c(4, 7), Feb = c(6, 6), Mar = c(6, 5))

# long format with 'numerator' and 'denominator' roles assigned
# (unnecessary if you already have long format, just assign numerator/denomninator)
library(reshape2)
df <- rbind(
  transform(
    melt(DF1, id.vars = "Name", variable.name = "Month"),
    role = "numerator"),
  transform(
    melt(DF2, id.vars = "Name", variable.name = "Month"),
    role = "denominator")
)

# ddply 
library(plyr)
ddply(df, .(Name, Month), summarize, 
      Result = value[role == "numerator"] / value[role == "denominator"])

#   Name Month     Result
# 1 Aaron   Jan 0.5000000
# 2 Aaron   Feb 0.6666667
# 3 Aaron   Mar 0.5000000
# 4 Blake   Jan 0.7142857
# 5 Blake   Feb 1.0000000
# 6 Blake   Mar 0.8000000
    • +1, wenn die Daten bereits in einem data.frame, es könnte sauberer sein, zu berechnen, sind die Ergebnisse dieser langen form. Mit Ihrem vorgeschlagenen long-Daten.Rahmen df und die tidyr und dplyr Pakete dies könnte auch getan werden, als: df %>% spread(role, value) %>% mutate(Result = numerator / denominator)
    • Danke für die Mühe und Bildung! Immer gut zu sehen, einen anderen Weg zu gehen darüber. Danke!!!
    InformationsquelleAutor sebkopf
Schreibe einen Kommentar