r使用粘贴或粘贴0时保持0.0

Question

这是一个简单的问题，但它开始困扰我，因为我找不到解决方案。。。。

当使用粘贴或粘贴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" 

Answer 1

您可以使用sprintf():

paste0("x", sprintf("%.1f", y), "x")

Answer 2

还有formatC:

paste0("x", formatC(y, digits = 1, format = "f"), "x")

Answer 3

还有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')