Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/ajax/6.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将千字节、兆字节等转换为R中的字节_R_Byte - Fatal编程技术网

将千字节、兆字节等转换为R中的字节

将千字节、兆字节等转换为R中的字节,r,byte,R,Byte,R中是否有标准函数来转换表示字节数的字符串,例如 11855276K 113米 2.40G 到整数字节数 我在gdata包中遇到了humanReadable,但这会反过来进行转换。我知道我可以解析字符串,然后自己做数学运算,但我想知道是否已经存在了一些东西。一个简单的函数可以做到这一点: x <- c("11855276K", "113M", "2.40G", "1234") convb <- function(x){ ptn <- "(\\d*(.\\d+)*)(.

R中是否有标准函数来转换表示字节数的字符串,例如

  • 11855276K
  • 113米
  • 2.40G
到整数字节数


我在gdata包中遇到了
humanReadable
,但这会反过来进行转换。我知道我可以解析字符串,然后自己做数学运算,但我想知道是否已经存在了一些东西。

一个简单的函数可以做到这一点:

x <- c("11855276K", "113M", "2.40G", "1234")

convb <- function(x){
  ptn <- "(\\d*(.\\d+)*)(.*)"
  num  <- as.numeric(sub(ptn, "\\1", x))
  unit <- sub(ptn, "\\3", x)             
  unit[unit==""] <- "1" 

  mult <- c("1"=1, "K"=1024, "M"=1024^2, "G"=1024^3)
  num * unname(mult[unit])
}

convb(x)
[1] 12139802624   118489088  2576980378        1234

x好的,这是解析字符串然后自己做数学的方法。我的问题是CRAN包中是否存在现有函数。将此作为第一行添加以避免出现问题,或:x=gsub(“,”,“,”,x)