Given that you start with a character vector, this is relatively easy :
minPerGame <- c("4:30","2:20","34:10")
sapply(strsplit(minPerGame,":"),
function(x) {
x <- as.numeric(x)
x[1]+x[2]/60
}
)
gives
[1] 4.500000 2.333333 34.166667
Make sure you checked that you used read.csv()
with the option as.is=TRUE
. Otherwise you'll have to convert using as.character()
.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…