Question

我有一个像这样的矢量：

time <- c(0, 0.5, 1, 1.5, 2, 2.5)

如果我必须在图表中编写第三个元素，我必须使用此命令：

text(7.5,75, time[3])

它显示为1，但我希望它为1.0，如何显示第一个十进制数字？

Answer 1

使用sprintf("%.1f", time)，您将十进制数字设置为1。

Answer 2

这是一种包裹sprintf的方法。这是我为报道而保留的一个。请注意，它还会删除不重要的前导零。

numfor <- function (val, digits, override = FALSE) {

    if (all(is.Integer(val), na.rm = TRUE) & !override) {
        sub("^(-?)0.", "\\1.", sprintf(paste0("%.0f"), val))
    } else {
        sub("^(-?)0.", "\\1.", sprintf(paste0("%.", digits, "f"), val))
    }
}

is.Integer <- function(x, tol = .Machine$double.eps^0.5)  {
    abs(x - round(x)) < tol
}

time <- c(0, 0.5, 1, 1.5, 2, 2.5)
numfor(time, 1)

## [1] ".0"  ".5"  "1.0" "1.5" "2.0" "2.5"

override做了什么：

## > numfor(1:10, 1)
##  [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

## > numfor(1:10, 1, override=TRUE)
##  [1] "1.0"  "2.0"  "3.0"  "4.0"  "5.0"  "6.0"  "7.0"  "8.0"  "9.0"  "10.0"

在带有十进制数字的图上写一个数字

2 个答案: