Skip to main content
se añadieron 17 caracteres en el cuerpo
Origen Enlace
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 la función solo te retornael 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 valorelemento de cada elementovector de la lista y con unlist dejamos listo el resultado como un sencillo vectorde 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"

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 la función solo te retorna un único valor, el problema es el acceso, 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 valor de cada elemento de la lista y con unlist dejamos listo el resultado como un sencillo vector.

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"

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"
Origen Enlace
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 la función solo te retorna un único valor, el problema es el acceso, 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 valor de cada elemento de la lista y con unlist dejamos listo el resultado como un sencillo vector.

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"