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