R prcomp エラー 'x' must be numeric

csvファイルを読み込み、以下のコードでRで主成分分析をしようとしました。

  df2 %>%
 　 dplyr::select(name, sweet, color, juice, acidity) %>%
  　data.frame(name=c("A","B","C","D"),x=runif(4),y=runif(4)) %>%
    lapply(., as.numeric) %>%
    df2.pro <- prcomp(df2[2:5]) %>%
    df2.pro

これに対し

Error in colMeans(x, na.rm = TRUE) : 'x' must be numeric

というエラーが出てしまいます。調べると、nameなどのラベルが数値型でないとエラーが出てしまうという場合もあるということだったので、as.numericで一応数値型にしたつもりですが、同じようなエラーが出てしまいます。（そもそも、prcomp内で分析しようとしてるデータにはnameが無く、数値型のみなので、あまり関係ない気もします。）初学者で、いたらない質問ですが、よろしくお願いします。