Question

我试图通过设置值的特定位置来比较xts中的两个值。由于无法在xts中获得结果，因此我尝试将coredata()提取到数据帧中。数据框中的比较也会失败。

问题：为什么它无法在xts和数据帧中执行比较？

临时解决方案：将值提取到向量中并进行比较。这不是解决方案，因为我需要在一个大的xts / dataframe中比较许多值。

理想的解决方案：我需要能够通过在xts和dataframe中进行子设置来比较值。应该这样做，而无需加载更多的程序包，然后再从R core获得数据帧，并安装xts。

下面您会看到我的尝试的不同变化：

#########################################
# Create dataframe [df1]
#########################################
date <- as.POSIXct(c("2018-10-01 09:01:00", "2018-10-01 09:02:00"))
open                     <- c(0, 1)
high                     <- c(0, 4)
low                      <- c(0, 3)
close                    <- c(0, 6) 

df1 <- data.frame(
  date,
  open,
  high,
  low,
  close
)

#############
# Create xts1
#############
# Build an xts based on dataframe components
xts1 <- xts(df1[-1], order.by=df1[,1])

##########################################################
# Attempt 1 to compare xts(column2,row2 with column3,row2)
##########################################################
isTRUE(xts1[2,2] > xts1[2,3]) # Returns false, why?
  # Tests:
  xts1[2,2] # Not stored, just for printout confirmation.
  xts1[2,3] # Not stored, just for printout confirmation.
  isTRUE(4 > 3) # Returns true, correct.


####################################
# Attempt 2 - move xts to dataframe.
####################################
df1 <- coredata(xts1)
isTRUE(df1[2,2] > df1[2,3]) # Returns false, why?
  # Tests:
  df1[2,2] # Not stored, just for printout confirmation.
  df1[2,3] # Not stored, just for printout confirmation.

###################################################
# Attempt 3 - move xts to dataframe, extract values
###################################################
df2 <- coredata(xts1)
extracted.value.1 <- as.numeric(df2[2,2]) # Extract value
extracted.value.2 <-as.numeric(df2[2,3]) # Extract value
isTRUE(extracted.value.1 > extracted.value.2) # Returns true, correct.

以下是sessionInfo()的信息：

> sessionInfo()
R version 3.4.4 (2018-03-15)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 18.04.1 LTS

Matrix products: default
BLAS: /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.7.1
LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.7.1

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=sv_SE.UTF-8        LC_COLLATE=en_US.UTF-8     LC_MONETARY=sv_SE.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=sv_SE.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C             LC_MEASUREMENT=sv_SE.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] xts_0.11-2 zoo_1.8-4 

loaded via a namespace (and not attached):
[1] compiler_3.4.4  tools_3.4.4     grid_3.4.4      lattice_0.20-35

dput（xts1）的结果

structure(c(0, 1, 0, 4, 0, 3, 0, 6), .Dim = c(2L, 4L), .Dimnames = list(
    NULL, c("open", "high", "low", "close")), index = structure(c(1538377260, 
1538377320), tzone = "", tclass = c("POSIXct", "POSIXt")), class = c("xts", 
"zoo"), .indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct", 
"POSIXt"), .indexTZ = "", tzone = "")

dput（df1）的结果

structure(c(0, 1, 0, 4, 0, 3, 0, 6), .Dim = c(2L, 4L), .Dimnames = list(
    NULL, c("open", "high", "low", "close")))

Answer 1

知道了！这是一个R版本问题，而不是xts版本问题。

这是isTRUE()中的一个已知的“ in昧”，已在here中进行了描述，并在3.5版之后进行了修复。

注意：在R 3.5之前，isTRUE（当前版本！）被定义为“ isTRUE <-function（x）same（x，TRUE）”（请参阅更改日志here）。这似乎很聪明，但是在命名逻辑值上却失败了（违反了最不惊奇的原则）：

您可以更新R或将isTRUE重新定义为

isTRUE <- function(x) { is.logical(x) && length(x) == 1 && !is.na(x) && x }

或使用isTRUE(unname(x),unname(y))。这是?isTRUE当前版本的说明：

“ isTRUE（x）”与“ {is.logical（x）&& length（x）== 1 && ！is.na（x）&& x}’； “ isFALSE（）”的定义与此类似。因此，“ if（isTRUE（cond））”可能比“ if（cond）”更合适因为“ NA”。在较早的R版本中，“ isTRUE <-function（x）same（x，TRUE）”，缺点是例如“ x <-c（val = TRUE）”为假。

xts和数据帧中的单个值比较失败

1 个答案: