Buenos días;
Estoy trabajando en una nube de palabras y suelo usar el r-studio. Estoy trabajando con el siguiente codigo
library(tm)
library(wordcloud)
ejemplo=VCorpus(DirSource("ejemplo",encoding="UTF-8"),readerControl=list(language="spa"))
sin embargo me aparece este error "Error in inherits(x, "Source") : empty directory".
si trabajo en R no tengo problemas y el codigo funciona.
¿Como puedo trabajar esto en r-studio?
y= b (x) c
Estoy llamando a un archivo RMD desde un formulario access y todo perfecto, pero me gustaría que, en lugar de que se abra el archivo y el usuario tenga que pulsar en la opción Run All, se ejecutara automáticamente, es decir seria como pasarle ctrl+alt+R. Ahora lo que tengo y funciona es:
Shell("C:\Program Files\RStudio\bin\rstudio.exe C:\Users\usuario\Desktop\micarpeta\mimodulo.RMD")
Si a la última parte le pudiese pasar un argumento que equivaliese a Run ALL es decir ctrl+alt+R creo que podria funcionar pero no sé si se puede ni en caso que se pueda como hacerlo.
Gracias
Buenos días,
Tengo este grupo de datos. La primera columna es el nombre del sensor, las 3 siguientes sus coordenadas, la quinta el dia medido contado desde el 1-1-1975, la sexta el nivel (es la variable de la que quiero obtener una media mensual), la siguiente un contador de datos y la última es la fecha real de medida.
1 1 2 20 105 1 1 16-04-1975
1 1 2 20 173 2 1 23-04-1975
1 1 2 20 201 1 1 25-04-1975
2 2 2 20 232 3 1 21-08-1975
2 2 2 20 271 1 1 29-09-1975
2 2 2 20 300 4 1 30-09-1975
3 3 2 20 313 1 1 10-11-1975
3 3 2 20 338 5 1 05-12-1975
3 3 2 20 388 1 1 24-01-1976
4 4 2 20 419 6 1 24-02-1976
4 4 2 20 447 1 1 24-02-1976
4 4 2 20 500 7 1 24-02-1976
5 5 2 20 502 1 1 17-05-1976
5 5 2 20 532 8 1 16-05-1976
5 5 2 20 574 1 1 28-07-1976
Me gustaría saber la media mensual de las medidas de LEVEL pero que R me de la salida por nombre (columna 1)
data <- read.table("C:/Rmapa/Rdatos/prueba.txt", stringsAsFactors=FALSE)
colnames(data)<- c("name","x","y","z","time","level","contador","fecha")
head
str(data)
name <- data[,1]
date <- data[,5]
level <- as.numeric(as.character(data[,6]))
date_format <- as.Date(date,origin="1975-01-01")
install.packages("zoo")
library(xts)
ts <- xts(data$level, as.Date(data$fecha,"%d-%m-%Y"))
ts_m = apply.monthly(ts,FUN=mean)
time(ts_m)<-as.yearmon(time(ts_m))
ts_m
He aplicado este script pero me da como salida la media mensual pero de todos los datos en general, es decir la media mensual de todo enero de 1975 para todos los sensores, y yo necesito que sea para el sensor 1, la media del nivel es X en enero de 1975 y asi sucesivamente para los meses en los que existan medidas, ya que la serie temporal real es irregular y tiene gaps en algunos meses
Preguntas:
1. ¿Como puedo conseguir que me lo haga mensual para cada sensor ? xts de zoo es el paquete adecuado?
2. ¿Como puedo importar la salida que obtenga a un txt en el que conserve todos los datos asociados al sensor (name, x, y, z, time(month-year), media de las medidas mensual)?
Muchisimas gracias de antemano
Buenas tardes amigos
Tengo una serie de valores en una sola columna que corresponden a fechas y horas, y quisiera modificarla eliminando las horas y quedándome solo con las fechas.
"Fecha"
2016/03/13 01:11:00
2016/03/14 11:20:00
Y así sucesivamente... entonces se me ocurren dos cosas: de algún modo separar esta información contenida en una sola columna en dos independientes o eliminar lo que no me sirve "por ahora" (las horas). Algún aporte?
Gracias por el apoyo!!
Buenas tardes,
No puedo pasar las comas a punto de la siguiente columna.
He puesto el siguiente código:
as.character(TablaconcatenadaFINAL$IBEX.ult)
a = gsub(",","\\.",TablaconcatenadaFINAL$IBEX.ult)
a = gsub("\\,","",TablaconcatenadaFINAL$IBEX.ult)
b = as.numeric(a)/100
options(digits=2)
Pero me aparece (he intentado trampear quitando los decimales y dividiendo posteriormente):
Me podríais echar una mano por favor?
Buenas tardes,
tengo una tabla con nombres de especies vegetales, cada columna se corresponde a una característica, fijación de CO2, etc. Me gustaría saber que función tengo que utilizar para saber que especies se repiten en todas las columnas que tengo.
Gracias
Me gustaría eliminar la "M" de la última columna (REP.vol) usando R, pero no encuentro la manera. Me podríais echar una mano por favor?Gracias!
Estimados, su ayuda porfavor, necesito crear una sentencia for para un i, j, el codigo que tengo es el siguiente pero se me cae:
a=c(13,14)
b=c(528,20)
for(i in a)
{for (i in b)
C_i=datos[datos$Codigo_Producto==i,]
set.seed(100)
indx_j=sample(nrow(C_i),size=j)
M_j=C_i[indx_j,]
print(summary(M_j))}}
La idea es que el 13 del a me lo haga con el 14 del b y el 528 del a con el 20 del b.
En resumen lo que hago acá (con a) es filtrar por el código de producto que necesito, y luego la idea del b es para la obtención de muestra aleatoria del tamaño que indico.
¿Alguien me puede ayudar porfis??? Muchas gracias!
Hola!
Llevo unas horas intentando haberiguar por qué no me deja recodificar mis variables de factor que hace solo unos meses sí podía (!!!)
Esta es mi base de datos:
> str(ersa)
'data.frame': 1034 obs. of 29 variables:
$ grupoedad: Factor w/ 6 levels "16 a 24","25 a 34",..: 2 4 5 6 4 6 5 6 5 6 ...
$ habitat : Factor w/ 6 levels "Menos de 10000",..: 6 6 1 1 4 6 4 6 6 6 ...
$ isei : num 70 53 NA 21 40 21 16 53 19 43 ...
$ p0001 : Factor w/ 2 levels "Hombre","Mujer": 2 2 2 1 2 2 2 2 1 1 ...
$ p0002 : num 29 50 58 76 45 70 60 71 56 75 ...
$ p1003a : num 9 5 5 4 10 5 9 5 8 5 ...
$ p1003b : num 10 5 6 6 10 7 9 7 9 6 ...
$ p1004a : num 8 5 6 5 10 7 8 7 8 5 ...
$ p1004b : num 9 6 6 6 10 5 7 6 7 5 ...
$ p1004c : num 8 0 0 NA NA NA 6 NA 8 NA ...
$ p1004d : num 8 5 6 6 10 6 6 7 8 5 ...
$ p1004e : num 8 0 7 9 10 10 7 8 10 8 ...
$ p1004f : num 5 0 5 5 5 0 5 3 0 0 ...
$ p1004g : num 6 0 5 4 8 8 8 3 0 0 ...
$ p1004h : num 6 0 6 4 9 7 8 6 0 2 ...
$ p1008 : Factor w/ 4 levels "Si","No","NS",..: 2 2 2 2 1 2 2 2 2 1 ...
$ p4001a : Factor w/ 4 levels "Sí","No","NS",..: 1 2 2 2 2 2 2 2 2 2 ...
$ p4001b : Factor w/ 4 levels "Sí","No","NS",..: 1 2 2 2 2 2 2 2 2 2 ...
$ p4001c : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 1 2 2 2 2 ...
$ p4001d : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 1 2 2 2 2 ...
$ p4001e : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 1 1 2 2 2 ...
$ p4001f : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 1 2 2 2 2 ...
$ p4001g : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 2 2 2 2 2 ...
$ p4001h : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 2 2 2 2 2 ...
$ p4001i : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 2 2 2 2 2 ...
$ p4001j : Factor w/ 4 levels "Sí","No","NS",..: 2 2 2 2 2 2 2 2 2 2 ...
$ p5005 : Factor w/ 12 levels "Izquierda","1",..: 4 12 5 12 3 1 4 8 6 5 ...
$ p5008 : Factor w/ 9 levels "Soltero","Casado",..: 7 2 2 2 5 2 2 1 2 2 ...
$ p5009 : Factor w/ 13 levels "No ha realizado ningún tipo de estudios, y no sabe leer o es",..: 10 5 4 3 6 3 4 6 6 2 ...
# Esta es mi código para la recodificación de la variable p5008, por ejemplo.
ersa <- within(ersa, {
ecivil <- Recode(p5008, '"Separado legalmente"="Soltero"; "Divorciado"="Soltero"; "Pareja de hecho"="Casado"; "Conviviendo en pareja"="Casado"; "NS"=NA; "NC"=NA',
as.factor.result=TRUE)
})
Tanto esta, como todas las de factor me dan "ERROR:" sin más información. Me imagino que tiene que ser una tontería pero ¿Podríais ayudarme? Gracias!
Un saludo,