将小数分隔符放在R中的前两位数字之后

发布于03月18日

我从一个小数点消失的数据记录器下载了一张温度数据表.以下是一个片段:

temperature<-c( 227725, 208957, 210834, 214588, 218342)
date<-c("2022-06-14 12:02:01 UTC", "2022-06-14 12:32:01 UTC", "2022-06-14 13:02:01 UTC", "2022-06-14 13:32:01 UTC", "2022-06-14 14:02:01 UTC")

df<-data.frame(date,temperature)


df
                     date temperature
1 2022-06-14 12:02:01 UTC      227725
2 2022-06-14 12:32:01 UTC      208957
3 2022-06-14 13:02:01 UTC      210834
4 2022-06-14 13:32:01 UTC      214588
5 2022-06-14 14:02:01 UTC      218342

我已经知道小数点应该在前两位数字之后.

有没有办法插入十进制分隔符？

提前感谢！

推荐答案

如果数字可能不全是六位数，但您确定小数点必须在第二位数之后，则应采用以下方法:

转换为角色as.character(df$temperature
用gsub替换前2个数字加上点gsub("^(\\d{2})", "\\1.", as.character(df$temperature))
转换回数字as.numeric(gsub("^(\\d{2})", "\\1.", as.character(df$temperature)))

我们开始吧.

df$temperature <- as.numeric(gsub("^(\\d{2})", "\\1.", as.character(df$temperature)))

print(df)
                     date temperature
1 2022-06-14 12:02:01 UTC     22.7725
2 2022-06-14 12:32:01 UTC     20.8957
3 2022-06-14 13:02:01 UTC     21.0834
4 2022-06-14 13:32:01 UTC     21.4588
5 2022-06-14 14:02:01 UTC     21.8342