Tengo una imagen y quiero trazar solo un cuadrado de 100 * 100 con la esquina inferior izquierda a 0,0. cuando uso los siguientes comandos. ¿Por qué obtengo un espacio en blanco alrededor de mi imagen recortada? ¿Cómo puedo evitarlo y asegurarme de obtener una imagen exacta de 100 * 100?

Si desea repetir mi ejemplo, puede usar cualquier imagen en la línea 1 (siempre que la imagen sea mayor que 100 * 100 píxeles)

r <- raster("C:/Users/nnnn/Desktop/geo.jpg")
vector= getValues(r)
plot(r)
r


par(mar=c(0,0,0,0))
par(oma=c(0,0,0,0))
par(mai=c(0,0,0,0))
par(omi=c(0,0,0,0))
plot(r,xlim=c(0,100),ylim=c(0,100),legend=FALSE,axes=FALSE)