我使用的是语法
df$new_column_name <- format(as.Date(df$original_column_name, format = "%d/%m/%Y"),"%m/%d/%Y")
转换名为Dailyactivity_Records的数据框中列的日期格式。ActvityDate列的原始日期格式为chr格式的mm/dd/YYYY。如控制台所示。
> dailyactivity_Records <- read.csv("dailyActivity_calories_intensities_steps.csv")
> str(dailyactivity_Records)
'data.frame': 940 obs. of 15 variables:
$ Id : num 1.5e+09 1.5e+09 1.5e+09 1.5e+09 1.5e+09 ...
$ ActivityDate : chr "04/12/2016" "4/13/2016" "4/14/2016" "4/15/2016" ...
$ TotalSteps : int 13162 10735 10460 9762 12669 9705 13019 15506 10544 9819 ...
$ TotalDistance : num 8.5 6.97 6.74 6.28 8.16 6.48 8.59 9.88 6.68 6.34 ...
$ TrackerDistance : num 8.5 6.97 6.74 6.28 8.16 6.48 8.59 9.88 6.68 6.34 ...
$ LoggedActivitiesDistance: num 0 0 0 0 0 0 0 0 0 0 ...
$ VeryActiveDistance : num 1.88 1.57 2.44 2.14 2.71 3.19 3.25 3.53 1.96 1.34 ...
$ ModeratelyActiveDistance: num 0.55 0.69 0.4 1.26 0.41 0.78 0.64 1.32 0.48 0.35 ...
$ LightActiveDistance : num 6.06 4.71 3.91 2.83 5.04 2.51 4.71 5.03 4.24 4.65 ...
$ SedentaryActiveDistance : num 0 0 0 0 0 0 0 0 0 0 ...
$ VeryActiveMinutes : int 25 21 30 29 36 38 42 50 28 19 ...
$ FairlyActiveMinutes : int 13 19 11 34 10 20 16 31 12 8 ...
$ LightlyActiveMinutes : int 328 217 181 209 221 164 233 264 205 211 ...
$ SedentaryMinutes : int 728 776 1218 726 773 539 1149 775 818 838 ...
$ Calories : int 1985 1797 1776 1745 1863 1728 1921 2035 1786 1775 ...
在最后一行代码中指定的列activitydate所需的转换日期格式为"%d/% "其中转换后的日期格式为%Y/%m/%d(我认为这是R中日期的默认日期格式)。有人能说明原因吗?
请参阅下面的控制台:
> ## converting column ID to character and ACtivityDate to date format
> dailyactivity_Records$Id <- as.character(dailyactivity_Records$Id)
> dailyactivity_Records$Date_ddmm = as.Date(dailyactivity_Records$ActivityDate, format = "%m/%d/%Y", "%d/%m")
> str(dailyactivity_Records)
'data.frame': 940 obs. of 16 variables:
$ Id : chr "1503960366" "1503960366" "1503960366" "1503960366" ...
$ ActivityDate : chr "04/12/2016" "4/13/2016" "4/14/2016" "4/15/2016" ...
$ TotalSteps : int 13162 10735 10460 9762 12669 9705 13019 15506 10544 9819 ...
$ TotalDistance : num 8.5 6.97 6.74 6.28 8.16 6.48 8.59 9.88 6.68 6.34 ...
$ TrackerDistance : num 8.5 6.97 6.74 6.28 8.16 6.48 8.59 9.88 6.68 6.34 ...
$ LoggedActivitiesDistance: num 0 0 0 0 0 0 0 0 0 0 ...
$ VeryActiveDistance : num 1.88 1.57 2.44 2.14 2.71 3.19 3.25 3.53 1.96 1.34 ...
$ ModeratelyActiveDistance: num 0.55 0.69 0.4 1.26 0.41 0.78 0.64 1.32 0.48 0.35 ...
$ LightActiveDistance : num 6.06 4.71 3.91 2.83 5.04 2.51 4.71 5.03 4.24 4.65 ...
$ SedentaryActiveDistance : num 0 0 0 0 0 0 0 0 0 0 ...
$ VeryActiveMinutes : int 25 21 30 29 36 38 42 50 28 19 ...
$ FairlyActiveMinutes : int 13 19 11 34 10 20 16 31 12 8 ...
$ LightlyActiveMinutes : int 328 217 181 209 221 164 233 264 205 211 ...
$ SedentaryMinutes : int 728 776 1218 726 773 539 1149 775 818 838 ...
$ Calories : int 1985 1797 1776 1745 1863 1728 1921 2035 1786 1775 ...
$ Date_ddmm : Date, format: "2016-04-12" "2016-04-13" "2016-04-14" "2016-04-15" ...
首先，如果您读取?as.Date(强烈建议)，您将看到您的第三个参数(未命名)被解释为tryFormats = "%d/%m"。然而,由于
tryFormats: 'character' vector of 'format' strings to try if 'format'
is not specified.
并且包含formats=，则它不做任何事情。
第二，你想做的应该分两步完成:首先转换为Date，然后根据需要将它从一个类似数字的对象转换为字符串。从这里开始，顺便说一句，你的日期不再是日期，它们将不再是你可以做日期数学运算的东西(例如，加/减/差)。
vec <- c("04/12/2016", "4/13/2016", "4/14/2016", "4/15/2016")
as.Date(vec, format = "%m/%d/%Y")
# [1] "2016-04-12" "2016-04-13" "2016-04-14" "2016-04-15"
as.Date(vec, format = "%m/%d/%Y") + 5
# [1] "2016-04-17" "2016-04-18" "2016-04-19" "2016-04-20"
format(as.Date(vec, format = "%m/%d/%Y"), "%d/%m")
# [1] "12/04" "13/04" "14/04" "15/04"
format(as.Date(vec, format = "%m/%d/%Y"), "%d/%m") + 5
# Error in format(as.Date(vec, format = "%m/%d/%Y"), "%d/%m") + 5 :
# non-numeric argument to binary operator
如果需要对其进行类似数字的操作(包括范围)，则必须将其保留为Date。如果是这种情况，我建议您考虑将其作为所有处理的日期，然后只有当您呈现用于可视化(图，表等)的数据时，才需要%d/%m的字符串表示形式。您可以将其作为另一列添加到"real"Date对象，可能
dailyactivity_Records$ActivityDate <- as.Date(dailyactivity_Records$ActivityDate, format = "%m/%d/%Y")
dailyactivity_Records$Date_ddmm <- format(dailyactivity_Records$ActivityDate , "%d/%m")