根據姓氏中的子字符串更改coltypes

Question

我有一個非常大的銷售數據（df8）數據框。加載時，我想將數字加載的一些變量作爲chr加載。我想要將colname包含單詞「Order」的每一列從chr更改爲numeric。我怎樣才能做到這一點？

Answer 1

我將使用函數grepl來查找「order」的出現次數並遍歷每列並將其轉換爲數字。請注意，該變量實際上是字符，如果你的數據是一個因素，它不會工作（即需要（as.numeric(as.character(x))）。

# create data.frame with characters 
xy <- data.frame(a = runif(5), b.order = runif(5), cOrder = runif(5)) 
xy[, c(2, 3)] <- sapply(xy[, c(2, 3)], FUN = as.character) 
str(xy) 
'data.frame': 5 obs. of 3 variables: 
$ a  : num 0.914 0.468 0.106 0.624 0.841 
$ b.order: chr "0.363523897947744" "0.56488766730763" "0.42081760126166" "0.560672372812405" ... 
$ cOrder : chr "0.949268750846386" "0.596737345447764" "0.368769273394719" "0.717566329054534" ... 

with.order <- grepl("order", names(xy), ignore.case = TRUE) 

xy[, with.order] <- sapply(xy[, with.order], FUN = as.numeric) 
str(xy) 
'data.frame': 5 obs. of 3 variables: 
$ a  : num 0.914 0.468 0.106 0.624 0.841 
$ b.order: num 0.364 0.565 0.421 0.561 0.768 
$ cOrder : num 0.949 0.597 0.369 0.718 0.417