Buen día, quisiera saber si alguien le ha sucedido esto. Estoy importando varias tablas desde excel para analizarlas en R, sin embargo he notado algunas cosas, por ejemplo, en la tabla que aparece en excel tiene los siguientes datos:
Lo que quiero hacer en R es restar el promedio de las celdas rosadas que están a la izquierda y derecha de cada celda azul para tener unos datos corregidos. Suena sencillo, y de hecho lo es, el problema es la respuesta que obtengo, abajo presento el código implementado:
library(readxl)
library(DT)
path<-"//CENAMEP-DC01/mecanica/D1_Docs/Validacion/CL-D1-001_TipoI_TipoII.xlsx"
data_geom_A<-read_xlsx(path, sheet = "Datos", range = "A67:L76",col_names = FALSE)
colnames(data_geom_A)<-c("Cero_Ini0","Posicion0","Cero_Fin0","Cero_Ini90","Posicion90","Cero_Fin90","Cero_Ini180","Posicion180","Cero_Fin180","Cero_Ini270","Posicion270","Cero_Fin270")
attach(data_geom_A)
ParAc_20Nm_0<-c();ParAc_20Nm_90<-c();ParAc_20Nm_180<-c();ParAc_20Nm_270<-c()
for(i in seq_along(Posicion0)){
ParAc_20Nm_0[i]<-round((Posicion0[i]-mean(Cero_Ini0[i],Cero_Fin0[i])),3)
i<-i+1
}
for(i in seq_along(Posicion90)){
ParAc_20Nm_90[i]<-round((Posicion90[i]-mean(Cero_Ini90[i],Cero_Fin90[i])),3)
i<-i+1
}
for(i in seq_along(Posicion180)){
ParAc_20Nm_180[i]<-round((Posicion180[i]-mean(Cero_Ini180[i],Cero_Fin180[i])),3)
i<-i+1
}
for(i in seq_along(Posicion270)){
ParAc_20Nm_270[i]<-round((Posicion270[i]-mean(Cero_Ini270[i],Cero_Fin270[i])),3)
i<-i+1
}
data_geom_AC<-data.frame(ParAc_20Nm_0,ParAc_20Nm_90,ParAc_20Nm_180,ParAc_20Nm_270)
prom_geomAC<-c(mean(ParAc_20Nm_0),mean(ParAc_20Nm_90),mean(ParAc_20Nm_180),mean(ParAc_20Nm_270))
data_geom_ACr<-rbind(data_geom_AC,prom_geomAC)
rownames(data_geom_ACr)[11]<-"Promedio"
datatable(data_geom_ACr)
El resultado que se obtiene es esta tabla:
Y observamos que no hay ningún valor corregido, por lo tanto el promedio que obtengo no representa lo que se busca en el código.
Llegué a pensar que era la última versión de excel, por eso convertí el archivo .xlsx a .xls y el problema persiste. Instalé la versión 4.2 de R, para descartar que el entorno tuviera algo que ver, y nada.
Alguien puede saber lo que pudiera estar sucediendo?. Gracias por la atención.