Skip to main content
2 de 2
se añadieron 17 caracteres en el cuerpo
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

El problema que tienes es este:

> gregexpr(',',emp.data$emp_name)[[1]][1]-1
[1] 11

Estas usando esto para determinar hasta dónde "recortar" cada valor de emp.data$emp_name, gregexpr() te retorna una lista con las posiciones de cada coma, (ninguna, una o varias) de cada uno de los valores de emp_name, sin embargo, puedes ver que el retorno final es un único valor, el problema es el acceso por índices que intentas, de ninguna forma funciona como lo has planteado. Creo que la forma más sencilla, es hacer esto:

> unlist(lapply(gregexpr(',',emp.data$emp_name), `[[`, 1))-1
[1] 11 11 13

Conceptualmente lo que estamos haciendo con lapply es lo siguiente:

c(gregexpr(',',emp.data$emp_name)[[1]][1] - 1,
  gregexpr(',',emp.data$emp_name)[[2]][1] - 1,
  gregexpr(',',emp.data$emp_name)[[3]][1] - 1)

Es decir, obtenemos el primer elemento de cada vector de la lista y con unlist dejamos listo el resultado de forma más "plana".

Finalmente, quedaría todo así:

> substr(emp.data$emp_name,7,stop=unlist(lapply(gregexpr(',',emp.data$emp_name), `[[`, 1))-1)
[1] "UCI-1"   "UCI-3"   "MARRIB2"
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72