remove-digits

1 Aufgabe

2 Aufgabe

Schreiben Sie einen R-Code, der aus dem folgenden String-Vektor, die Anzahl der uniquen Werte ausgibt, nachdem alle Zahlen aus dem Vektor entfernt wurden.

Hier ist der String-Vektor:

col_names <- 
  c("key01",
    "key02",
    "value01",
    "value02")

die Lösung sollte also sein: “key, value”.

3 Lösung

Setup:

library(tidyverse)

Zahlen entfernen:

col_names_unique <- 
  col_names %>% 
  str_remove_all("[:digit:]") |>  # aus "stringr"
  unique()

col_names_unique

[1] "key"   "value"

Alternativen, um Zahlen zu entfernen:

col_names %>% 
  str_remove_all("[0-9]") 

[1] "key"   "key"   "value" "value"

Weitere Alternative:

col_names |> 
  str_remove_all("\\d+$") 

[1] "key"   "key"   "value" "value"

Alternative mit base-R:

gsub("[0-9]+$","", col_names) 

[1] "key"   "key"   "value" "value"