> str(query_GPS)

'data.frame':? ? ? ? 13150 obs. of??9 variables:

$ id? ?? ?: chr??"1010852" "1010852" "1010852" "1010852" ...

$ 車牌號(hào)碼: chr??"鄂A3QD28" "鄂A3QD28" "鄂A3QD28" "鄂A3QD28" ...

$ 速度? ? : chr??"34.0" "33.0" "34.0" "0.0" ...

$ 經(jīng)度? ? : chr??"114.299067" "114.312943" "114.328343" "114.327282" ...

$ 緯度? ? : chr??"30.642155" "30.687871" "30.742519" "30.662274" ...

$ 里程數(shù)??: chr??"10419.10" "10426.60" "10435.70" "10447.50" ...

$ 地址? ? : chr??"湖北省武漢市江岸區(qū)興業(yè)南路 中百超市(盛世東方店)東北132米" "湖北省武漢市江岸區(qū)岱山二橋 岱家山大橋附近13米" "湖北省武漢市黃陂區(qū) 牌樓塆東南522米" "湖北省武漢市江岸區(qū)漢黃路 省客集團(tuán)新榮客運(yùn)站內(nèi),武漢市農(nóng)村商業(yè)銀行(岱山支行)北259米" ...

$ 點(diǎn)火時(shí)間: chr??"2018-09-01 12:38:59" "2018-09-01 13:00:20" "2018-09-01 14:06:20" "2018-09-01 14:30:01" ...

$ 熄火時(shí)間: chr??"2018-09-01 12:59:50" "2018-09-01 13:28:52" "2018-09-01 14:29:53" "2018-09-01 14:52:03" ...

數(shù)據(jù)框 中 各列數(shù)據(jù) 都是 chr 型；

我想 更改$ id : ,$ 速度 :??,$ 經(jīng)度 :,$ 緯度 :,$ 里程數(shù) :??為數(shù)值型

$ 車牌號(hào)碼: ，$ 地址 :??為??chr

$ 點(diǎn)火時(shí)間: ，$ 熄火時(shí)間:? ?為時(shí)間型
sapply(query_GPS, as.numeric)??這段代碼 全部改變了類型 怎么指定需要更改 列？

解決方法參考：

library(tidyverse)

library(lubridate)

newData <- query_GPS %>%

??mutate_at(.vars = vars(id, 速度, 經(jīng)度, 緯度, 里程數(shù)), .fun = as.numeric) %>%

??mutate_at(.vars = vars(點(diǎn)火時(shí)間, 熄火時(shí)間), .fun = as_date) %>%
??mutate(速度 = round(速度, 1))