R將類DIFFTIME修改為hist

Question

在我的腳本中，我已經轉換了這個data.frame，如下所示：

df.modified<-transform(df, new.col= Payment.date-Selectionfinal$Invoice.Date)

結果如下：

    Client.Code. Invoice.Date Payment.date  new.col
1:      1004850   2016-01-31   2016-11-22 296 days
2:      1004850   2016-06-30   2016-11-22 145 days
3:      1004850   2016-06-30   2016-11-22 145 days
4:      1004850   2016-06-30   2016-11-22 145 days
5:      1004850   2016-09-30   2016-11-22  53 days

然后，我需要將其繪制成直方圖，但是我有這個問題：

> hist(df.modified[,c(4)])
Error in hist.default(Completo[, c(4)]) : 'x' must be numeric

這是我的df的str：

$ Client.Code.: int  1004850 1004850 1004850 1004850 1004850 1004850 1004850 1004874 1004874 1005133 ...
$ Invoice.Date: Date, format: "2016-01-31" "2016-06-30" "2016-06-30" "2016-06-30" ...
$ Payment.date: Date, format: "2016-11-22" "2016-11-22" "2016-11-22" "2016-11-22" ...
$ new.col     :Class 'difftime'  atomic [1:4430] 296 145 145 145 53 53 53 102 72 71 ...

請我想知道這個竅門。 謝謝。

Answer 1

正如Kristofersen已經指出，問題是在傳遞什么樣的數據類型hist功能。 該數據應為numeric ，並且不接受difftime 。

# some data mimicking your data
Client.Code. <- c(1004850, 1004849, 1004850, 1004850, 1004851)
Invoice.Date <- as.Date(c("2016-01-31", "2016-03-30", "2016-06-30", "2016-06-30", "2016-04-30"))
Payment.date <- as.Date(c("2016-11-22", "2016-10-22", "2016-09-22", "2016-08-22", "2016-10-09"))
# creating the new column in a similar way to your way
df <- data.frame(Client.Code., Invoice.Date, Payment.date)
df$new.col <- df$Payment.date - df$Invoice.Date

## the following 3 do not work because they pass difftime to hist()
hist(df[,c(4)])
hist(df[,4])
hist(df$new.col)

# class of difftime
class(df$new.col)

## these 3 do work: numeric is passed to hist()
hist(as.numeric(df$new.col))
hist(as.numeric(df[,4]))
hist(as.numeric(df[,c(4)]))