Anzahl der Zeilen des Ergebnis nicht ein Vielfaches von Vektor-Länge (arg 2) in R

Habe ich neue Frage im Zusammenhang mit diesem meinem Thema
löschen Ausreißer in r mit Berücksichtigung der Nenn-var.
In neuen Fall-Variablen x und x1 unterschiedliche Länge

x <- c(-10, 1:6, 50)
x1<- c(-20, 1:5, 60)
z<- c(1,2,3,4,5,6,7,8)

bx <- boxplot(x)
bx$out

bx1 <- boxplot(x1)
bx1$out


x<- x[!(x %in% bx$out)]
x1 <- x1[!(x1 %in% bx1$out)]


x_to_remove<-which(x %in% bx$out)
x <- x[!(x %in% bx$out)]

x1_to_remove<-which(x1 %in% bx1$out)
x1 <- x1[!(x1 %in% bx1$out)]

z<-z[-unique(c(x_to_remove,x1_to_remove))]
z  

data.frame(cbind(x,x1,z))

dann bekomme ich die Warnung

Warning message:
In cbind(x, x1, z) :
  number of rows of result is not a multiple of vector length (arg 2)

so, in der neuen dataframe die obs. der Z ist nicht entsprechend x und x1.
Wie kann ich entscheiden, das problem zu beheben?
Diese solustion wird mir nicht helfen
Rsolnp: In cbind(temp, funv) : Anzahl der Zeilen des Ergebnis nicht ein Vielfaches von Vektor-Länge (arg 1)
oder ich mache einfach etwas falsch.

Bearbeiten

x_to_remove<-which(x %in% bx$out)
x <- x[!(x %in% bx$out)]

x1_to_remove<-which(x1 %in% bx1$out)
x1 <- x1[!(x1 %in% bx1$out)]

z<-z[-unique(c(x_to_remove,x1_to_remove))]
z  

d=data.frame(cbind(x,x1,z))
d

ist es falsch
Warnung:

In cbind(x, x1, z) :
  number of rows of result is not a multiple of vector length (arg 2)

d

  x x1 z
1 1  1 2
2 2  2 3
3 3  3 4
4 4  4 5
5 5  5 6
6 6  1 2

Wie auf dieser 3 columg bekommen diese Ausgabe

Na  Na  Na
1   1   2
2   2   3
3   3   4
4   4   5
5   5   6
Na  Na  Na
Na  Na  Na

den six Reihe (d) ist überflüssig

  • Naja, man kann nicht Spalte binden 3-Vektor, der die verschiedenen Längen, ich verstehe nicht, was Ihr Ziel ist.
InformationsquelleAutor San.O | 2018-05-29
  1. 1

    Verschiedenen Längen in den ursprünglichen x -, x1-und z-Listen ist das erste problem, wie können Sie sagen, welche z-Werte ist in Bezug auf jedes x und x1 Werte?

    x <- c(-10, 1:6, 50)
x1<- c(-20, 1:5, 60)
z<- c(1,2,3,4,5,6,7,8)
length(x)
[1] 8
length(x1)
[1] 7
length(z)
[1] 8

    Ein weiteres problem ist hier:

    x<- x[!(x %in% bx$out)] #remove this
x1 <- x1[!(x1 %in% bx1$out)] #remove this


x_to_remove<-which(x %in% bx$out)
x <- x[!(x %in% bx$out)]

x1_to_remove<-which(x1 %in% bx1$out)
x1 <- x1[!(x1 %in% bx1$out)]

    Reinigen Sie x und x1 vor der Berechnung der x_to_remove und x1_to_remove

    BEARBEITEN:
    Um Ihre gewünschte Ausgabe zu versuchen, diesen code (/ode Linien Hinzugefügt, unterzeichnet in den Kommentaren):

    x <- c(-10, 1:6, 50)
x1<- c(-20, 1:5, 60)
z<- c(1,2,3,4,5,6,7,8)

length_max<-min(length(x),length(x1),length(z)) #Added: identify max length before outlier detection

bx <- boxplot(x)
bx1 <- boxplot(x1)

x_to_remove<-which(x %in% bx$out)
x <- x[!(x %in% bx$out)]

x1_to_remove<-which(x1 %in% bx1$out)
x1 <- x1[!(x1 %in% bx1$out)]

z<-z[-unique(c(x_to_remove,x1_to_remove))]

length_min<-min(length(x),length(x1),length(z)) #Minimum length after outlier remove

d=data.frame(cbind(x[1:length_min],x1[1:length_min],z[1:length_min])) #Bind columns
colnames(d)<-c("x","x1","z")

d_NA<-as.data.frame(matrix(rep(NA,(length_max-length_min)*3),nrow=(length_max-length_min))) #Create NA rows
 colnames(d_NA)<-c("x","x1","z")

d<-rbind(d,d_NA) #Your desired output
d
   x x1  z
1  1  1  2
2  2  2  3
3  3  3  4
4  4  4  5
5  5  5  6
6 NA NA NA
7 NA NA NA
    • Wie kann ich entscheiden, diese zwei Probleme?
    • Die erste ist in Bezug auf die Logik Ihrer Daten, wenn Sie verstehen, Ihre Daten und Ihr problem Sie bereits die Antwort. Das zweite problem ist einfach, entfernen Sie code-Zeilen mit Kommentar "#entfernen" in meiner Antwort.
    • Ich bearbeitet die post, können Sie es überprüfen
    • Hast du gelesen mein edit?
    • Antwort aktualisiert.
    InformationsquelleAutor Terru_theTerror
Schreibe einen Kommentar