El siguiente código R lee un archivo línea por línea.
path <- "/path/to/the/file"
print(path)
conn <- file(path,open="r")
lines <- readLines(conn)
for (i in 1:length(lines)){
print(lines[i])
}
close(conn)
|
A veces, es posible que desee ejecutar R Script mediante la línea de comandos. De esta manera, puede escribir un script bash y programar una tarea todos los días. Además, también puede pasar diferentes argumentos al programa R.
Cree un script de R «GetARgument.R»:
args <- commandArgs(TRUE)
if(length(args) == 0){
print("No arguments!")
# give a default value
date <- 20140502
}else{
for(i in 1:length(args)){
eval(parse(text=args[[i]]))
}
}
print(date)
Ejecute el siguiente comando:
R CMD BATCH '--args date=20140801' GetArgument.R
El programa generará un archivo de salida: «GetArgument.Rout». En este archivo, verá toda la salida en la consola.
Instalar R en Windows es bastante sencillo. Simplemente vaya a la página y descargue el archivo de instalación aquí.
Recuerde que debe agregar el directorio bin a su variable de entorno «Ruta».
Instalar R en Mac es muy sencillo. Simplemente descargue el archivo de instalación aquí: http://cran.r-project.org/bin/macosx/.
Los archivos bin se agregarán automáticamente a la RUTA.
En R, podemos escribir fácilmente un objeto de marco de fecha en un archivo csv. Usando el método write.csv, el archivo csv se puede generar en el mismo directorio de su script R.
write.csv(dataFrame, file="median.csv")
Si desea declarar un vector vacío en R, puede hacer lo siguiente:
vec <- vector()
Entonces puedes agregar un elemento a este vector:
vec <- c(vec, 1:10)
El valor de vec ahora es:
1 2 3 4 5 6 7 8 9 10
Puede trazar varios diagramas en una página utilizando par() para configurar el diseño de la página. El siguiente código R traza varios diagramas en una página.
# create a simple data frame
a <- c(1,2,3,4,5)
b <- c(1,2,3,4,4)
df <-data.frame(a,b)
# plot 3 lines
pdf("plot.pdf", width=8,height=11)
par(mfrow=c(2,2),mar=c(4,4,0.5,0.5), oma=c(1.5,2,1,1))
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
dev.off()
mar – Un vector numérico de la forma c (abajo, izquierda, arriba, derecha) que da el número de líneas de margen que se especificarán en los cuatro lados del gráfico. El valor predeterminado es c (5, 4, 4, 2) + 0.1.
oma – Un vector de la forma c (abajo, izquierda, arriba, derecha) que da el tamaño de los márgenes exteriores en líneas de texto.
Aquí solo agregué tres diagramas de líneas simples. El resultado se parece al siguiente:
Es posible que desee agregar un título para una página de gráfico que contiene varios diagramas. El siguiente código R traza 3 diagramas en una página y agrega un título a la página.
# create a simple data frame
a <- c(1,2,3,4,5)
b <- c(1,2,3,4,4)
df <-data.frame(a,b)
# plot 3 lines
pdf("plot.pdf", width=8,height=11)
par(mfrow=c(2,2),mar=c(4,4,0.5,0.5), oma=c(1.5,2,1,1))
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
# add title for the page
mtext("Three Diagrams in One Page", outer=TRUE, cex=1, line=-0.5)
dev.off()
En el código de arriba, cex controla el tamaño de la fuente. El valor predeterminado es 1. Puede consultar la documentación para cex.
Los archivos pdf generados tienen el siguiente aspecto:
El tamaño de la página se puede configurar usando la siguiente línea:
pdf("plot.pdf", width=8,height=11)
El código anterior establece el tamaño de la página en 8 multiplicado por 11, que es el tamaño de la letra.
El siguiente es un ejemplo completo.
# create a simple data frame
a <- c(1,2,3,4,5)
b <- c(1,2,3,4,4)
df <-data.frame(a,b)
# set up generated file name and page size.
pdf("plot.pdf", width=8,height=11)
# set number of diagrams on one page
par(mfrow=c(2,2),mar=c(4,4,0.5,0.5), oma=c(1.5,2,1,1))
# plot 3 lines
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
dev.off()
Cómo establecer el tamaño de fuente del título de la página no está claro en la documentación de R. Puede llevar mucho tiempo averiguar cómo establecer el tamaño de fuente. El siguiente código muestra cómo cambiar el tamaño de fuente.
# create a simple data frame
a <- c(1,2,3,4,5)
b <- c(1,2,3,4,4)
df <-data.frame(a,b)
# set up generated file name and page size.
pdf("plot.pdf", width=8,height=11)
# set number of diagrams on one page
par(mfrow=c(2,2),mar=c(4,4,0.5,0.5), oma=c(1.5,2,1,1))
# plot 3 lines
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
plot(df$a,df$b, type="l")
# add a title for the page
mtext("Three Diagrams in One Page", outer=TRUE, cex=1, line=-0.5)
dev.off()
El tamaño de fuente del título se puede configurar utilizando el cex parámetro de la mtext() método.
cex El parámetro controla el tamaño de la fuente. El valor predeterminado es 1. Consulte la documentación para más detalles.