Określa niestandardowy format daty dla argumentu colClasses w read.tabela / Czytaj.csv
Pytanie:
Czy istnieje sposób na określenie formatu daty Podczas używania argumentu colClasses w read.tabela / Czytaj.csv?
(zdaję sobie sprawę, że mogę przekonwertować po zaimportowaniu, ale przy wielu kolumnach daty takich jak ta, łatwiej byłoby to zrobić w kroku importu)
Przykład:
Mam .plik csv z kolumnami daty w formacie%d/%m/%Y.
dataImport <- read.csv("data.csv", colClasses = c("factor","factor","Date"))
To powoduje, że konwersja jest błędna. Na przykład, 15/07/2008 staje się 0015-07-20.
Kod:
data <-
structure(list(func_loc = structure(c(1L, 2L, 3L, 3L, 3L, 3L,
3L, 4L, 4L, 5L), .Label = c("3076WAG0003", "3076WAG0004", "3076WAG0007",
"3076WAG0009", "3076WAG0010"), class = "factor"), order_type = structure(c(3L,
3L, 1L, 1L, 1L, 1L, 2L, 2L, 3L, 1L), .Label = c("PM01", "PM02",
"PM03"), class = "factor"), actual_finish = structure(c(4L, 6L,
1L, 2L, 3L, 7L, 1L, 8L, 1L, 5L), .Label = c("", "11/03/2008",
"14/08/2008", "15/07/2008", "17/03/2008", "19/01/2009", "22/09/2008",
"6/09/2007"), class = "factor")), .Names = c("func_loc", "order_type",
"actual_finish"), row.names = c(NA, 10L), class = "data.frame")
write.csv(data,"data.csv", row.names = F)
dataImport <- read.csv("data.csv")
str(dataImport)
dataImport
dataImport <- read.csv("data.csv", colClasses = c("factor","factor","Date"))
str(dataImport)
dataImport
A oto jak wygląda wyjście:
3 answers
Możesz napisać własną funkcję, która akceptuje ciąg znaków i konwertuje go na datę w żądanym formacie, a następnie użyć setAs, aby ustawić ją jako metodę as. Następnie możesz użyć swojej funkcji jako części colClasses.
Spróbuj:
setAs("character","myDate", function(from) as.Date(from, format="%d/%m/%Y") )
tmp <- c("1, 15/08/2008", "2, 23/05/2010")
con <- textConnection(tmp)
tmp2 <- read.csv(con, colClasses=c('numeric','myDate'), header=FALSE)
str(tmp2)
Następnie zmodyfikuj w razie potrzeby swoje dane.
Edit - - -
Możesz najpierw uruchomić setClass('myDate'), aby uniknąć ostrzeżenia (możesz zignorować ostrzeżenie, ale może się to denerwować, jeśli robisz to często i jest to proste połączenie, które dostaje pozbyć się).
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2013-08-30 17:45:34
Jeśli istnieje tylko 1 format daty, który chcesz zmienić, możesz użyć pakietu Defaults, Aby zmienić domyślny format w as.Date.character
library(Defaults)
setDefaults('as.Date.character', format = '%d/%M/%Y')
dataImport <- read.csv("data.csv", colClasses = c("factor","factor","Date"))
str(dataImport)
## 'data.frame': 10 obs. of 3 variables:
## $ func_loc : Factor w/ 5 levels "3076WAG0003",..: 1 2 3 3 3 3 3 4 4 5
## $ order_type : Factor w/ 3 levels "PM01","PM02",..: 3 3 1 1 1 1 2 2 3 1
## $ actual_finish: Date, format: "2008-10-15" "2009-10-19" NA "2008-10-11" ...
Myślę, że odpowiedź @ Greg Snow jest o wiele lepsza, ponieważ nie zmienia domyślnego zachowania często używanej funkcji.
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2012-10-23 01:45:59
W przypadku, gdy potrzebujesz czasu również:
setClass('yyyymmdd-hhmmss')
setAs("character","yyyymmdd-hhmmss", function(from) as.POSIXct(from, format="%Y%m%d-%H%M%S"))
d <- read.table(colClasses="yyyymmdd-hhmmss", text="20150711-130153")
str(d)
## 'data.frame': 1 obs. of 1 variable:
## $ V1: POSIXct, format: "2015-07-11 13:01:53"
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2015-07-11 17:54:42