Cara memperbaiki: kesalahan di colmeans(x, na.rm = true): 'x' harus berupa numerik

Pesan kesalahan yang mungkin Anda temui saat menggunakan R adalah:

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

Kesalahan ini biasanya terjadi ketika Anda mencoba menggunakan fungsi prcomp() untuk melakukan analisis komponen utama di R , ketika satu atau lebih kolom dalam bingkai data yang Anda gunakan bukan numerik.

Ada dua cara untuk mengatasi kesalahan ini:

Metode 1: Ubah kolom non-numerik menjadi kolom numerik

Metode 2: Hapus kolom non-numerik dari bingkai data

Contoh berikut menunjukkan cara menggunakan masing-masing metode dalam praktik.

Bagaimana cara mereproduksi kesalahan tersebut

Misalkan kita mencoba melakukan analisis komponen utama pada bingkai data berikut yang berisi kolom karakter:

 #create data frame
df <- data. frame (team=c('A', 'A', 'C', 'B', 'C', 'B', 'B', 'C', 'A'),
                 points=c(12, 8, 26, 25, 38, 30, 24, 24, 15),
                 rebounds=c(10, 4, 5, 5, 4, 3, 8, 18, 22))

#view data frame
df

  team points rebounds
1 to 12 10
2 to 8 4
3 C 26 5
4 B 25 5
5 C 38 4
6 B 30 3
7 B 24 8
8 C 24 18
9 to 15 22

#attempt to calculate principal components
prcomp(df)

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

Kolom tim adalah kolom karakter, yang menyebabkan kesalahan saat mencoba menggunakan fungsi prcomp() .

Metode 1: Ubah kolom non-numerik menjadi kolom numerik

Salah satu cara untuk menghindari kesalahan ini adalah dengan mengubah kolom tim menjadi kolom numerik sebelum menggunakan fungsi prcomp() :

 #convert character column to numeric
df$team <- as. numeric (as. factor (df$team))

#view updated data frame
df

  team points rebounds
1 1 12 10
2 1 8 4
3 3 26 5
4 2 25 5
5 3 38 4
6 2 30 3
7 2 24 8
8 3 24 18
9 1 15 22

#calculate main components
prcomp(df)

Standard deviations (1, .., p=3):
[1] 9.8252704 6.0990235 0.4880538

Rotation (nxk) = (3 x 3):
                 PC1 PC2 PC3
team -0.06810285 0.04199272 0.99679417
points -0.91850806 0.38741460 -0.07907512
rebounds 0.38949319 0.92094872 -0.01218661

Kali ini kami tidak menerima kesalahan apa pun karena setiap kolom dalam bingkai data bersifat numerik.

Metode 2: Hapus kolom non-numerik dari bingkai data

Cara lain untuk menghindari kesalahan adalah dengan menghapus semua kolom non-numerik dari bingkai data sebelum menggunakan fungsi prcomp() :

 #remove non-numeric columns from data frame
df_new <- df[ , unlist(lapply(df, is. numeric ))]

#view new data frame
df_new

  rebound points
1 12 10
2 8 4
3 26 5
4 25 5
5 38 4
6 30 3
7 24 8
8 24 18
9 15 22

#calculate main components
prcomp(df_new)

Standard deviations (1, .., p=2):
[1] 9.802541 6.093638

Rotation (nxk) = (2 x 2):
                PC1 PC2
points 0.9199431 0.3920519
rebounds -0.3920519 0.9199431

Sekali lagi, kami tidak menerima kesalahan apa pun karena setiap kolom dalam bingkai data bersifat numerik.

Catatan : Dalam kebanyakan kasus, metode pertama adalah solusi yang lebih disukai karena menggunakan semua data daripada menghapus kolom tertentu.

Sumber daya tambahan

Tutorial berikut menjelaskan cara memperbaiki kesalahan umum lainnya di R:

Cara memperbaikinya di R: argumen melibatkan jumlah baris yang berbeda
Cara memperbaiki kesalahan R: dalam memilih argumen yang tidak digunakan
Cara memperbaiki di R: penggantian memiliki panjang nol