scan()La función en lenguaje R se utiliza para escanear y leer datos. Por lo general, se usa para leer datos en vectores, listas o archivos en R Language.
Sintaxis:
escanear («datos.txt», qué = «carácter»)Parámetro:
data.txt: archivo de texto a escanearDevoluciones: salida escaneada
Ejemplo 1: escaneo de texto
# R Program to scan a file
# Create example data.frame
data <- data.frame(x1 = c(1, 2, 2, 3),
x2 = c(4, 5, 6, 7),
x3 = c(8, 9, 10, 11))
data
# Write data as txt file to directory
write.table(data,
file = "data.txt",
row.names = FALSE)
# Get currently used directory
getwd()
# Apply scan function to txt file
data <- scan("data.txt", what = "character")
data
Producción :
x1 x2 x3 1 1 4 8 2 2 5 9 3 2 6 10 4 3 7 11 [1] "/home/cg/root/8121844" [1] "x1" "x2" "x3" "1" "4" "8" "2" "5" "9" "2" "6" "10" "3" "7" "11" Read 15 items
Ejemplo 2: escanear datos como texto
# R Program to scan a file
# Create example data.frame
data <- data.frame(x1 = c(1, 2, 2, 3),
x2 = c(4, 5, 6, 7),
x3 = c(8, 9, 10, 11))
data
# Write data as txt file to directory
write.table(data,
file = "data.txt",
row.names = FALSE)
# Read txt file into list
data <- scan("data.txt", what = list("", "", ""))
data
Producción:
x1 x2 x3 1 1 4 8 2 2 5 9 3 2 6 10 4 3 7 11 [[1]] [1] "x1" "1" "2" "2" "3" [[2]] [1] "x2" "4" "5" "6" "7" [[3]] [1] "x3" "8" "9" "10" "11" Read 5 records
Ejemplo 3: Saltar líneas con función de escaneo
# R Program to scan a file
# Create example data.frame
data <- data.frame(x1 = c(1, 2, 2, 3),
x2 = c(4, 5, 6, 7),
x3 = c(8, 9, 10, 11))
data
# Write data as txt file to directory
write.table(data,
file = "data.txt",
row.names = FALSE)
# Skip first line of txt file
data <- scan("data.txt", skip = 1)
data
Producción:
x1 x2 x3 1 1 4 8 2 2 5 9 3 2 6 10 4 3 7 11 [1] 1 4 8 2 5 9 2 6 10 3 7 11 Read 12 items
Ejemplo 4: escanear archivo CSV de Excel
# R Program to scan a file
# Create example data.frame
data <- data.frame(x1 = c(1, 2, 2, 3),
x2 = c(4, 5, 6, 7),
x3 = c(8, 9, 10, 11))
data
# Write data as csv file to directory
write.table(data,
file = "data.csv",
row.names = FALSE)
# Apply scan function to csv file
data <- scan("data.csv", what = "character")
data
Producción:
x1 x2 x3 x1 x2 x3 1 1 4 8 2 2 5 9 3 2 6 10 4 3 7 11 Read 15 items [1] "x1" "x2" "x3" "1" "4" "8" "2" "5" "9" "2" "6" "10" "3" "7" "11"
Ejemplo 5: Leer entrada desde el teclado.
# take input from keyboard z <- scan() 1 2 3 4 # print output on the screen print(z)
Producción:
Read 4 items [1] 1 2 3 4
Aquí, en el código anterior, la función escanear() tomará la entrada del usuario e imprimirá el valor usando la función imprimir().
Publicación traducida automáticamente
Artículo escrito por kaurbal1698 y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA