У меня есть кадр данных в именах R в качестве данных.
data <- as.xts(read.zoo("data1.csv",sep=",",tz="" ,header=T))
индекс данных в формате 2004-01-04 09:44:00 IST
Я применил операцию, чтобы изменить индекс на даты
index(data) <- as.Date(index(data))
Вывод должен быть 2004-01-04, но система выдает 2004-01-03.
Это правильно работает в Windows, но не работает в Linux.
Арун прав, проблема в локали. В ваших данных указана отметка стандартного индийского времени, а у вас местный стандарт США, который отстает как минимум на 10,5 часов. Следовательно, время 09:44 на самом деле поздно вечером предыдущего дня в вашем часовом поясе.
Даты и время ужасно сложны, и R использует базовые возможности ОС для выполнения своих вычислений, поэтому вы видите разные результаты на разных машинах. Linux совместим с POSIX и понимает часовые пояса, такие как «IST», что позволяет вносить изменения в предыдущую ночь. Windows этого не делает, поэтому дата указывается как 01-04. Чтобы получить правильное обновление часового пояса в Windows, необходимо указать полное название часового пояса «Азия/Калькутта». В Википедии есть список названий часовых поясов.
РЕДАКТИРОВАТЬ: На самом деле, R поставляется с файлом, содержащим все имена «Континент/Город» (в стиле Олсона), которые он принимает. Он хранится в
file.path(R.home("share"), "zoneinfo", "zone.tab")
и пример на странице справки ?Sys.timezone говорит вам, как программно прочитать его.
Я считаю, что пакет lubridate немного упрощает понимание того, что происходит.
library(lubridate)
x <- ymd_hms("2004-01-04 09:44:00 IST", tz = "Asia/Kolkata")
x
# [1] "2004-01-04 09:44:00 IST"
with_tz(x, "America/New_York")
# [1] "2004-01-03 23:14:00 EST"
Date <- c("2010-01-04 09:04:00", "2010-01-04 09:05:00")
Open <- c(5222.9, 5220.2)
Low <- c(5224.6, 5222.95)
High <- c(5220.1, 5218.6)
Close <- c(5220.35, 5222.95)
x <- data.frame(Date = Date, Open = Open, Low = Low, High = High, Close = Close)
as.Date(x$Date)
Выход:
[1] "2010-01-04" "2010-01-04"
Мне кажется, все в порядке.
Edit:
require(zoo)
data <- as.xts(read.zoo("data1.csv",sep=",",tz="" ,header=T))
> dput(data)
structure(c(5222.9, 5220.2, 5224.6, 5222.95, 5220.1, 5218.6,
5220.35, 5222.95), .Dim = c(2L, 4L), .Dimnames = list(NULL, c("Open",
"Low", "High", "Close")), index = structure(c(1262592240, 1262592300
), tzone = "", tclass = c("POSIXct", "POSIXt")), class = c("xts",
"zoo"), .indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct",
"POSIXt"), .indexTZ = "", tzone = "")
> as.Date(index(data))
[1] "2010-01-04" "2010-01-04"
На моем Mac это работает правильно. Я подозреваю, что ваша системная локаль установлена неправильно. Кроме того, вы можете проверить это в R.
Что вам дает эта команда Sys.getlocale() в Windows и в Linux в R?
