Edito en base a lo que me respondiste:
El problema radica en que solo estas quitando la columna 4, dejando las primeras 3 que no son numéricas, prueba con esto:
df <- scale(data[-(1:4)])
Otra forma muy practica seria utilizar lo siguiente:
df %>%
mutate_if(is.numeric, scale)
Es decir, a todas las variables de tu df, si son numéricas, que aplique la función scale