hier mein Gegenentwurf zu diesem Codestück:R_Student hat geschrieben: ↑Do Jun 11, 2020 1:59 pm Hey hab hier mal ein vereinfachtes Beispiel erstellt. Dieses funktioniert jedoch
Code: Alles auswählen
# orginal Datensatz: Datensatz1 <- read.spss("Datensatz1", to.data.frame = TRUE, use.value.labels = FALSE, stringsAsFactors = FALSE) # hab ich jetzt hier nicht ganz perfekt mal als Beispiel vereinfacht: CODE <- c("AB1","AB1","CD2","CD2","EF3") as.character(CODE) Variable1 <- c(1,3,2,1,3) DatensatzMatrix1 <- rbind(CODE,Variable1) Datensatz1 <- as.data.frame(t(DatensatzMatrix1)) rm(CODE)
Code: Alles auswählen
Datensatz1 <- data.frame(CODE=c("AB1","AB1","CD2","CD2","EF3"), Variable1=c(1,3,2,1,3), stringsAsFactors = FALSE)
attach() ist Teufelszeug.
Nachtrag
Hier ist mein Gegenentwurf zum Gesamtkunstwerk:
Code: Alles auswählen
Datensatz1 <- data.frame(CODE=c("AB1","AB1","CD2","CD2","EF3"), Variable1=c(1,3,2,1,3), stringsAsFactors = FALSE)
Datensatz2 <- aggregate(Variable1 ~ CODE, data=Datensatz1, FUN=mean, na.rm=TRUE)
names(Datensatz2)[2] <- "MW_Variable1"
Datensatz3 <- data.frame(CODE=c("AB1","CD2", "EF3", "GH4"), Variable2=c(1,2,3,4), stringsAsFactors = FALSE)
merge(Datensatz2, Datensatz3, by="CODE")
Es geht auch
Code: Alles auswählen
merge(Datensatz2, Datensatz3)
Gruß, Jörg