Question

我有一个data.frame，其中带有time的列05:39:18 23-Oct-2016。我尝试运行as.POSIXct创建另一列，但返回NA。我做了很多事情，但没有任何改变。

structure
(list(id = c(111868L, 111868L, 111868L, 111868L, 111868L, 
111868L), 
time = c("05:39:18 23-Oct-2016", "08:08:56 23-Oct-2016", "08:50:41 23-Oct-2016", "09:39:41 23-Oct-2016", "10:30:41 23-Oct-2016", "11:11:11 23-Oct-2016"), 
lq = c("3", "B", "A", "2", "B", "B"), 
lat = c(-20.3108, -20.3103, -20.3108, -20.3098, -20.3091, -20.3087),
lon = c(-40.2825, -40.2822, -40.2861, -40.2815, -40.2804, -40.2802), 
error_semimajor_axis = c(770L, 33105L, 4046L, 651L, 1282L, 10379L), 
error_semiminor_axis = c(48L, 42L, 31L, 123L, 1077L, 83L), 
error_ellipse_orientation = c(109L, 110L, 77L, 147L, 83L, 94L)), 
row.names = c(NA, 6L), 
class = "data.frame")

srt（l）

'data.frame':   26462 obs. of  8 variables:
 $ id                       : int  111868 111868 111868 111868 111868 111868 111868 111868 111868 111868 ...
 $ time                     : chr  "05:39:18 23-Oct-2016" "08:08:56 23-Oct-2016" "08:50:41 23-Oct-2016" "09:39:41 23-Oct-2016" ...
 $ lq                       : chr  "3" "B" "A" "2" ...
 $ lat                      : num  -20.3 -20.3 -20.3 -20.3 -20.3 ...
 $ lon                      : num  -40.3 -40.3 -40.3 -40.3 -40.3 ...
 $ error_semimajor_axis     : int  770 33105 4046 651 1282 10379 2281 698 8101 1577 ...
 $ error_semiminor_axis     : int  48 42 31 123 1077 83 808 124 126 110 ...
 $ error_ellipse_orientation: int  109 110 77 147 83 94 93 14 105 165 ...

我的数据是遥测数据，覆盖了南大西洋的一个大片区域，我不知道这是否是问题。我尝试使用Sys.setlocale设置位置，但是没有任何效果。

我需要运行此代码，第一个运行，但是当我运行其他代码时，列变为NA。

更改日期格式：添加仅包含日期而不是小时的列日期：: min :: sec

时间最初是在GMT中从门户网站检索的原始文件中。

l$date <- sapply(strsplit(l$time, split=' ', fixed=TRUE), function(x) (x[2]))

l$date <- as.POSIXct(l$date, format = "%d-%b-%Y",tz = "GMT", usetz = TRUE)

l$time <- as.POSIXct(l$time, format = "%H:%M:%S %d-%b-%Y",tz = "GMT", usetz = TRUE)

谢谢！

Answer 1

我能想到的唯一错误是与系统的语言环境有关。下面的示例显示了我的语言环境会发生什么。

发布的数据字符串。

 private fun imageRecognition() {

        var bitmap = MediaStore.Images.Media.getBitmap(this.contentResolver, fileUri)
        var  image = FirebaseVisionImage.fromBitmap(bitmap)
        val labeler = FirebaseVision.getInstance().visionLabelDetector
        labeler.detectInImage(image)
                .addOnSuccessListener { labels ->
                    for (label in labels) {
                        val text = label.label
                        val entityId = label.entityId
                        val confidence = label.confidence

                        Log.d("TAG", "$text $confidence") //logcat works

                        firebaseVisionLabels?.add(label)
                        //Main problem??
                        rec_view.adapter = firebaseVisionLabels?.let { MainAdapter(this, it) }
                    }
                }.addOnFailureListener { e ->
                    // Task failed with an exception
                    // ...
                    detect_button.isEnabled = true
                    Log.d(TAG,e.toString())
                }

}

再现错误。

x <- "05:39:18 23-Oct-2016"

此解决方案与语言环境无关。

as.POSIXct(x, format = "%H:%M:%S %d-%b-%Y", tz = "GMT")
#[1] NA

并返回原始图片

old_loc <- Sys.getlocale("LC_TIME")
Sys.setlocale("LC_TIME", "en_US.UTF-8")

as.POSIXct(x, format = "%H:%M:%S %d-%b-%Y", tz = "GMT")
#[1] "2016-10-23 05:39:18 GMT"

错误的是月份缩写，在我国，正确的缩写是Sys.setlocale("LC_TIME", old_loc)（"out"）。因此，以下内容在首次尝试时不会影响语言环境设置。

"outubro"

如何解决NA中的as.POSIXct返回？

1 个答案: