这是一个简单的问题,但它开始让我恼火,因为我找不到解决方案……
我希望在使用paste或paste0时使用0.0作为输出时能够保持0.0,所以如果我有以下内容:
y <- c(-1.5,-1.0,-0.5,0.0,0.5,1.0,1.5)
> y
[1] -1.5 -1.0 -0.5 0.0 0.5 1.0 1.5
paste0("x",y,"x")
我得到了:
[1] "x-1.5x" "x-1x" "x-0.5x" "x0x" "x0.5x" "x1x" "x1.5x"
但是想要:
[1] "x-1.5x" "x-1.0x" "x-0.5x" "x0.0x" "x0.5x" "x1.0x" "x1.5x"
发布于 2012-09-03 14:47:28
您可以使用sprintf()
paste0("x", sprintf("%.1f", y), "x")
发布于 2012-09-03 15:02:31
还有formatC
paste0("x", formatC(y, digits = 1, format = "f"), "x")
发布于 2012-09-03 14:56:25
还有format
和drop0trailing
paste0('x',format(y,drop0Trailing = F),'x')
而且,如果您真的想用0.0
替换0
,而不是(1.0
或-1.0
),那么
paste0('x',gsub(x = gsub(x = format(y, drop0trailing = T),'0$', '0.0'),' ',''),'x')
## [1] "x-1.5x" "x-1x" "x-0.5x" "x0.0x" "x0.5x" "x1x" "x1.5x"
或者,就像@mrdwab建议的那样(并且不那么键入)
paste0('x',gsub("^0$", "0.0", as.character(y)),'x')
https://stackoverflow.com/questions/12243071
复制相似问题