Woher wissen, ob ein Vektor aus denselben Elementen besteht?

12

Wie kann ich überprüfen, ob ein Vektor dieselben Elemente enthält?

Nehmen wir zum Beispiel an, ich habe:

vec1 = rep(10,20)
vec2 = seq(1:20)

Wie kann ich zeigen, dass vec1alle Elemente gleich sind?

Carlo
quelle
diff(vec1)gibt was zurück?
Rui Barradas
1
oder ein uniqueElement
rawr
1
@rawr Antwort als Codelength(unique(vec1)) == 1
GWD

Antworten:

12

Eine Option ist diff.

diff(vec1)

Wenn die Elemente gleich sind, ist ihre Differenz Null.

all(diff(vec1) == 0)
#[1] TRUE

Oder vergleichen Sie den Vektor mit seinem ersten Element.

all(vec1 == vec1[1])
#[1] TRUE

Bearbeiten.

Es wurden verschiedene Methoden zur Bestimmung, ob alle Elemente eines Vektors gleich sind, veröffentlicht, siehe RHertel , Yuriy Saraykin , tmfmnk . Hier sind Vergleichstests.

library(microbenchmark)
library(ggplot2)

f <- function(n){
  x <- rep(10, n)
  mb <- microbenchmark(
    var = var(x) == 0,
    sd = sd(x) == 0,
    diff = all(diff(x) == 0),
    extract = all(x == x[1]),
    unique = length(unique(x)) == 1
  )
  mb
}

sizes <- c(10, 100, seq(1e3, 1e4, by = 1e3))
mb_list <- lapply(sizes, f)
names(mb_list) <- sizes

res <- lapply(seq_along(mb_list), function(i){
  agg <- aggregate(time ~ expr, mb_list[[i]], median)
  agg$size <- sizes[i]
  agg
})
res <- do.call(rbind, res)

ggplot(res, aes(size, time, colour = expr)) +
  geom_point() +
  geom_line()

Geben Sie hier die Bildbeschreibung ein

Rui Barradas
quelle
7

Verwenden Sie die Varianz. Wenn alle Elemente eines Vektors gleich sind, ist die Varianz Null:

allElementsEqual <- function(x) {!var(x)}

#allElementsEqual(vec1)
#[1] TRUE
#allElementsEqual(vec2)
#[1] FALSE
RHertel
quelle
4

Zählen Sie die Anzahl der eindeutigen Werte

length(unique(vec1))
Yuriy Saraykin
quelle
2

Wir können n_distinctvon verwendendplyr

library(dplyr)
n_distinct(vec1)
akrun
quelle
1

Sie können es in einen Faktor umwandeln und die Ebenen erhalten, die nur 1 Wert sein sollten, wenn sie alle gleich sind.

vec1 <- (10,20)

vec <- factor(vec1)

levels(vec)
einsamer Lernender
quelle
1

Sie können auch die Standardabweichung berechnen und beurteilen, ob sie Null ist:

sd(vec1) == 0

[1] TRUE

Oder mit table():

length(table(vec1)) == 1

Oder mit rle():

length(rle(vec1)$lengths) == 1
tmfmnk
quelle